dénombrer une combinaison avec VBA

[Cédric]

Bonjour à tous,
j'ai un travail à réaliser avec Excel et VBA et j'ai un petit souci.
J'ai dans un tableau une combinaison de 5 chiffres; A chaque combinaison est associée un résultat.

Mon problème est que je ne sais pas comment faire pour écrire une macro qui me décrire toutes les solutions (toutes les combinaisons possibles de 5 chiffres (chaque nombre n'est utilisé qu'une seule fois), afin de connaitre la meilleure.
ex: 1 2 3 4 5
2 1 3 4 5
2 3 1 4 5
....

Je vous remercie d'avance pour vos réponses
A bientôt

 

[EricS]

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

 

[jo]

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 ++

 

[CBernardT]

Bonjour Cédric EricS et le forum

Une solution qui marche pour plus de 5 nombres.

Cordialement

CBernardT

 

[Cédric]

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