re
le fichier ci-joint

bjr le forum,mth,guy
mth ce n'est pas que je ne veux pas joindre mon fichier mais il tres gros meme compresser il ne passait pas,j'ai crée une feuille essai1 que j'ai réduit au maxi pour passer.
la base de donnée réelle fait 20 colonnes et 700 lignes(C$4:V$700)
les données sont recopié d'apres les criteres(O2:R2) en X4:AQ...
LA reduite comme elle est elle fonctionne mais dans ma feuille les données en X4:AQ700 je n'ai que des ## de plus la formule en AS4:AT73 ne marche pas non plus ni les X2,Y2,Z2 diverse formules que j'ai essayé pour compter les lignes  de la matrice X4:X..
Voila j'espere n'avoir rien oublier
merci

bonjour le forum,mth
La plage de la matrice est faite de cette formule
"{=CalculRecherceRenvoieMatrice(O$3:Q$3;C$4:V$700)}
O$3:Q$3 plage des critères
C$4:V$700 plage de la matrice mais il peut y avoir que 500 lignes ou 600 ou 450 d'inscrites.
Chaque lignes entre C4 et C... n'a aucun blanc.
La formule NBVAL repond 1.
merci

bonjour le forum

Y a t-il une formule pour calculer le nombre de lignes d'une matrice,car avec NB.SI j'ai le résultat 0.
La longeur de la matrice varie tous les jours.
merci

bonjour le forum
j'ai téléchargé MDF XLDoublons,pour les lignes ou colonnes ça va mais pour les cellules comment faire.J'ai une plage de données qui fait 8 colonnes et 500 lignes et je voudrais éliminer tous les cellules qui sont en doublons. je peux y faire colonnes par colonnes mais y a-t-il un moyen plus simple.
merci

bonjour guy,le forum
j'ai un petit problème c'est que quand je fais un deuxieme calcul avec des combinaisons de longueur différentes, les anciennes données ne sont pas éffacees.
Que faut-il ajouter dans le code.
merci

bonjour guy,le forum
milles excuses guy,je n'avais pas fait attention au fichier joint,je l'ai ouvert et c'est parfait,juste ce qu'il me fallait,merci.
quand au but du programme c'est a partir d'une serie de chiffres(A5:H6) obtenir des combinaisons qui totalise la somme du critere(J1) avec pour longueur les criteres(B2 a B3).Les combinaisons étant en K2 je peux maintenant essayer d'adapter d'autres programmes pour éliminer les doublons,supprimer les combinaisons qui ont suivant leur longueur 4,5 ou 6 chiffres identiques.
Merci encore

bonjour guy,le forum
n'étant pas très doué en vba je suppose qu'il fallait recopier les ligne de ton code dans le mien;c'est ce que j'ai fait,j'ai gardé les anciennes lignes avec un ' devant
lorsque je clique sur calcul j'ai un message avec"erreur de compilation,variable non définie",la ligne "bs = -1" est en bleu.
voici le code:
Sub toto_1(cible As Range, data As Range, tmin%, tmax%)
Dim mgPlageRes As Range
'Dim oDat(), v#, n%, dn%, bs%, i&, j%, tmp#, s$, oCel As Range, oColl As New Collection
  bs = -1
  For Each oCel In data
    If Not IsEmpty(oCel) Then bs = bs + 1: ReDim Preserve oDat(bs): oDat(bs) = oCel.Value
  Next oCel
  tmax = WorksheetFunction.Min(bs, Abs(tmax) - bs * (tmax = 0))
  tmin = WorksheetFunction.Min(tmax, WorksheetFunction.Max(1, tmin))
  With cible
    v = Round(cible.Value, 5)
    If Not IsEmpty(.Offset(1, 0)) Then .Offset(1, 0).Resize(.End(xlDown).Row - 1, 1).ClearContents
    If bs > -1 Then
      For i = 0 To bs - 1
        For j = i + 1 To bs
          If oDat(i) < oDat(j) Then tmp = oDat(i): oDat(i) = oDat(j): oDat(j) = tmp
        Next j
      Next i
      For i = 0 To 2 ^ (bs + 1) - 1
        tmp = 0
        n = 0
        For j = 0 To bs
          dn = i \ (2 ^ j) Mod 2
          tmp = tmp + oDat(j) * dn
          n = n + dn
        Next j
        If Round(tmp, 5) = v Then
            If (tmin <= n) * (n <= tmax) Then
            s = "="
            For j = 0 To bs
            s = s & IIf(i \ (2 ^ j) Mod 2, oDat(j) & ";", "")
            's = s & IIf(i \ (2 ^ j) Mod 2, oDat(j) & "+", "")
            Next j
            Application.DisplayAlerts = False
            On Error Resume Next
            'plage des résultats est posée
            Set mgPlageRes = .Offset(1, 0).Resize(oColl.Count, 1)
            'oColl.Add Item:=Left$(s, Len(s) - 1), Key:=Left$(s, Len(s) - 1)
            'les données y sont déposées
             mgPlageRes.Value = oDat
            'les données sont distribuées dans les colonnes adjacentes
             For Each oCel In mgPlageRes.Cells
              oCel.TextToColumns Destination:=oCel.Offset(0, 1), DataType:=xlDelimited, consecutivedelimiter:=True, semicolon:=True
           
            On Error GoTo 0
          End If
        End If
      Next i
      If oColl.Count Then
        ReDim oDat(1 To oColl.Count, 0)
        For i = 1 To oColl.Count
          oDat(i, 0) = oColl(i)
        Next i
        .Offset(1, 0).Resize(oColl.Count, 1).Value = oDat
      End If
    End If
  End With
End Sub

Private Sub CommandButton1_Click()
  'Syntaxe :
  'toto_1 Cellule contenant le nombre à atteindre, Zone des données, Nb.minimum de termes, Nb.maximum de termes
  toto_1 [J1], Range("A5:H6"), [B2], [B3]
End Sub

'Private Sub Worksheet_Change(ByVal Target As Range)
'  If Target.Address(0, 0) = "N1" Then toto
'End Sub

merci

bonjour le forum,guy
voici le fichier avec en h2 mon souhait
merci

bonjour le forum
j'ai des données dans la cellule de ce type "50+42+34+56+12" j'aimerais qu'a la place du + chaque chiffre soit decale d'une cellule a droite.
ex:en K2 le 50 en L2 le 42 en M2 le 34.....
le code vba ou se trouve le + est:
For j = 0 To bs
  s =s & IIf (i \ (2 ^ j) Mod 2, oDat(j) & "+", "")
Next j
Par quoi faudrait-il remplacer "+","pour décaler d'une colonne vers la droite.
merci