dénombrer une combinaison avec VBA

Bonjour,

regarde le fil "enigme d'einstein" où dans mon approche je balaye systématiquement les combinaisons

For a1 = 1 To 5
recherche(5, 1) = tableau(5, a1)
For a2 = 1 To 5
If a2 <> a1 Then
recherche(5, 2) = tableau(5, a2)
For a3 = 1 To 5
If a3 <> a1 And a3 <> a2 Then
recherche(5, 3) = tableau(5, a3)
For a4 = 1 To 5
If a4 <> a1 And a4 <> a2 And a4 <> a3 Then
recherche(5, 4) = tableau(5, a4)
For a5 = 1 To 5
If a5 <> a1 And a5 <> a2 And a5 <> a3 And a5 <> a4 Then
recherche(5, 5) = tableau(5, a5)

'_______________opérations à préciser

End If
Next a5
End If
Next a4
End If
Next a3
End If
Next a2
Next a1

dans ton cas, il suffit de créer un tableau rempli avec les 5 chiffres (1 à 5)

A+

Eric

SAlut Cédric et le forum,

5 chiffres donc il te faut 5 boucle (for ...)
et 5 variables x1 x2 ....x5
+ la condition que si
x1=x2 et x2=x3 et x3= x4 et x4=x5 donc on prend cette combinaison...

Bye ++

Bonjour Cédric EricS et le forum

Une solution qui marche pour plus de 5 nombres.

Cordialement

CBernardT

Bonjour Eric, Jo, CBernardT le forum

Je vous remercie beaucoup pour toutes vos réponses si rapides;
c'est exatement ce qu'il me fallait.

Bonne journée à tous

Cordialement

Cédric