Combinaisons

Bonjour,

Comme je suis nul sous excel, Je recherche quelqu'un qui serait me faire une liste de combinaison.

Je m'explique, je recherche a avoir toutes les combinaisons possible sur 7 chiffres (1234567) ou lettres (ABCDEFG) sans doublon de lettre ou chiffre type AABCDEF,....

Par exemple: ABCDEF, AFBCDE,AFEBCD,.... ou 1234567 1723456 1762345,... afin de me permettre de remplacer les lettres ou chiffre par des mots.

Merci d'avance

Stéphane

Bonjour,

un exemple de macro qui génère toutes les permutations de lettres d'un mot (jusqu'à 10 lettres) introduit en A1

code à copier dans un module

lancer la génération via alt-F8 puis choisir GO

Dim k As Long

Sub go()
texte = Worksheets(1).Cells(1, 1)
For i = Len(texte) To 1 Step -1
 newtexte = newtexte + Mid(texte, i, 1)
Next i
Worksheets(1).Rows("2:" & Worksheets(1).UsedRange.Rows.Count).Delete
k = 2
combinaison (newtexte)
For j = 1 To 10
 Worksheets(1).Cells(k, j) = ""
Next j
End Sub

Sub combinaison(texte As String)

For i = 1 To Len(texte)
c1 = Left(texte, 1)
newtexte = ""
Worksheets(1).Cells(k, Len(texte)) = Mid(texte, i, 1)
For j = 2 To Len(texte)
If j = i Then
  newtexte = newtexte + c1
Else
  newtexte = newtexte + Mid(texte, j, 1)
End If
Next j
If Len(newtexte) > 1 Then
 combinaison (newtexte)
Else
 Worksheets(1).Cells(k, 1) = newtexte
 k = k + 1
 For j = 1 To 10
  Worksheets(1).Cells(k, j) = Worksheets(1).Cells(k - 1, j)
 Next j
End If
Next i

End Sub

Merci pour la reponse rapide mais je ne connais strictement rien a excel

Quelle est la demarche pas à pas pour y arriver?

Merci d'avance

Stéphane

Bonjour,

Dans Excel, ALT + F11 pour ouvrir l'éditeur VBA.

Dans le volet de gauche, clique droit sur VBA Project (Nom_de_ton_classeur), puis sur Insertion, puis Module.

Dans la zone principale, colle le code.

Ferme l'éditeur et fais ALT + F8, sélectionne la macro "go".

Ton texte doit se trouver dans la cellule A1 de ta première feuille.

Cordialement.

Ca marche impeccable!!!!

Merci