Discussion :

[_Nimy_]

Bonjour à toutes et à tous,

Après vous avoir soumis récemment un problème quasi insoluble (je n'ai d'ailleurs pas encore trouvé, mais je ne désespère pas) voici plus simple :

Je dois sortir toutes les combinaisons de une et deux lettres existantes en excluant les doublons du genre : AI et IA.

Pour ce faire je pensais faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub creation_poincon()
 
Dim lign As Integer     'compteur de lignes
Dim prem As Characters  'première lettre du poinçon
Dim deuz As Characters  'deuxième lettre du poinçon
 
Worksheets("Feuil1").Activate
Range("A1:C2000").Clear
    lign = 2
    For prem = A To Z
        Cells(lign, 1) = prem
        lign = lign + 1
        For deuz = prem To Z
            Cells(lign, 1) = prem & deuz
            lign = lign + 1
        Next deuz
    Next prem
End Sub

Mais il me répond pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   For prem = A To Z

"Erreur de compilation. Incompatibilité de type"

J'en déduits qu'on ne peut pas faire un compteur avec une lettre? Ou faut-il utiliser une autre fonction?
Je sens que la solution est simple mais je ne la trouve pas...

D'avance merci à tous !!

[_Nimy_]

J'ai réessayé en mettant "string" comme type de variable pour prem et deuz, et toujours le même message d'erreur.

[Invité]

Bonjour

Essayes en prenant le code ASCII de tes lettres, car de A à Z tu as une boucle continue, car cela se suit.

Starec

[ucfoutu]

essaye ce petit bout de code avec une listbox et tu vas vite comprendre (puis adapte à tes cellules)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
   For prem = Asc("A") To Asc("Z")
         For deuz = prem To Asc("Z")
            List1.AddItem Chr(prem) & Chr(deuz)
        Next deuz
    Next prem
End Sub

[_Nimy_]

Merci beaucoup Starec et Ucfoutu,

grâce à vos indices sur l'utilisation du code ASCII (j'avoue j'y avais pas pensé du tout ) j'ai résolu mon problème, qui était effectivement assez simple finalement.

Voici donc le code final :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub creation_poincon()
 
Dim lign As Integer     'compteur de lignes
Dim prem As Integer     'première lettre du poinçon
Dim deuz As Integer     'deuxième lettre du poinçon
 
Worksheets("Feuil1").Activate
Range("A1:C2000").Clear
 
    lign = 2
    For prem = 65 To 90
        Cells(lign, 1) = Chr(prem)
        lign = lign + 1
        For deuz = prem To 90
            Cells(lign, 1) = Chr(prem) & Chr(deuz)
            lign = lign + 1
        Next deuz
    Next prem
 
End Sub

Encore merci à vous deux !!

[ucfoutu]

Bon...

Je te laisse maintenant deviner pourquoi il convient en outre de mettre une condition à ce qui doit être retenu, hein :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If prem <> deuz Then
       List1.AddItem Chr(prem) & Chr(deuz)
End If

Car tu cherches les combinaisons 2 à 2 des lettres de l'alphabet et sans cette condition, tu aurais des AA, BB, etc...

[_Nimy_]

Je vois ce que tu veux dire, mais moi les combinaisons AA, BB, etc me vont.

J'obtient donc une liste : A AA AB AB (...) B BB BC BD (...) ZZ

Exactement ce qu'il me fallait !

Et pour ton test sur la listbox, si on voulait éviter les AA, BB, etc, il ne faudrait pas mieux mettre ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
   For prem = Asc("A") To Asc("Z")
         For deuz = prem+1 To Asc("Z")
            List1.AddItem Chr(prem) & Chr(deuz)
        Next deuz
    Next prem
End Sub