Générateur de clé (combinaison)

[mmalzert]

Bonjour le forum,

Je galère actuellement sur un problème de clé. Je fais ça à la main depuis quelques jours et j'ai toujours l'impression d'oublier des possibilités.
Je cherche toutes les combinaisons possibles qui puissent exister avec mes données.
Je me demande si un petit code VBA ne serait pas utile ?

Je cherche à afficher quelque chose qui ressemble au fond orange.
Merci pour votre aide.

 

[mmalzert]

Re : Générateur de clé (combinaison)

Petit Up.
Merci.

 

[mmalzert]

Re : Générateur de clé (combinaison)

Petit UP.
Merci

 

[Roland_M]

Re : Générateur de clé (combinaison)

bonjour,

s'il sagit de permutation, en VB, il y a les permutations d'une chaine exemple :

Sub Permutation()
Chaine$ = "1234"
LenChaine = Len(Chaine$): K& = 1
For A = 1 To LenChaine: K& = K& * A: Next
Result$ = ""
For J& = 0 To K& - 1: X$ = Chaine$: D& = K&: P& = J&: N$ = ""
  For L& = LenChaine To 1 Step -1
    D& = D& / L&: Q& = Int(P& / D&): P& = P& - D& * Q&
    N$ = N$ + Mid$(X$, Q& + 1, 1)
    X$ = Left$(X$, Q&) + Right$(X$, Len(X$) - Q& - 1)
  Next
  Result$ = Result$ & N$ & " ": If (J& + 1) Mod (K& / LenChaine) = 0 Then Result$ = Result$ & vbLf
Next
MsgBox "Permutation= " & K& & vbLf & Result$
'ce donne: Permutation = 24
'1234 1243 1324 1342 1423 1432
'2134 2143 2314 2341 2413 2431
'3124 3142 3214 3241 3412 3421
'4123 4132 4213 4231 4312 4321
End Sub

 

[Bebere]

Re : Générateur de clé (combinaison)

bonjour mmalzert,Roland
le code est dans module1

 

[mmalzert]

Re : Générateur de clé (combinaison)

Merci à vous pour vos réponses.
Finalement j'ai fais autrement puisque le besoin a changé.