COMBINAISON DE LETTRESRésolu

Question

Bonjour à tous,

voilà le problème
je désirerai trouver le code pour créer des listes de combinaisons de X lettres
ex: avec trois lettres : abc on peut faire : 
aaa
aab
aac
aba
abb
abc etc

si quelqu'un pouvait m'aider ...

merci d'avance

IntelW >:)

cs_Jack · Answer

Salut bremondpierrejean
C'est assez simple.
Chaque lettre possède un code ascii.
On va passer par ces codes pour faire des boucles :
- Code ascii de 'a' = Asc("a")
- L'inverse : Caractère = Chr(CodeAscii)
- Boucles inbriquées :
For r1 = Asc("a") To Asc("z")
For r2 = Asc("a") To Asc("z")
For r3 = Asc("a") To Asc("z")
Debug.Print Chr(r1) ; Chr(r2) ; Chr(3)
Next r3
Next r2
Next r1

Vala
Jack
 NB : Je ne répondrai pas aux messages privés 

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Gobillot · Answer

va voir ICI

Daniel

bremondpierrejean · Answer

merci à tous les deux mais je voudrais que les répétitions soient prises en compte : 

aaa
aab
aac
aba
abb
abc
aca
acb
acc
etc...

est ce possible ?

merci d'avance

IntelW >:)

Gobillot · Answer

Private Sub Command1_Click()
    Dim T() As Integer
    Dim Nb  As Integer
    Dim Cx  As Integer
    Dim n   As Integer
    Dim i   As Integer
    Dim j   As Integer
    Dim z   As Integer
    
'Combinaisons de 3 Lettres sur 26 lettres    Nb 26: Cx 3
    ReDim T(Cx)
    
    n = 0
    Debug.Print "----- début -----"

    Do      For i n + 1 To Cx - 1: T(i) 1: Next
      For i = 1 To Nb
      For j = 1 To Cx - 1: Debug.Print Chr$(T(j) + 96);: Next: Debug.Print Chr$(i + 96)
          z = z + 1
          Next
      For n = Cx - 1 To 1 Step -1
          i = T(n) + 1
          If i <= Nb Then Exit For
          Next
      T(n) = i
      Loop Until n = 0
      Debug.Print "nombre = "; z
    
End Sub


Daniel

mivea · Answer

uloelaectmampqa

cs_ShayW · Answer

Salut

tu demandes pour 3 caractères ou plus ?

COMBINAISON DE LETTRES

6 réponses

Discussions similaires