Bonjour le forum
je recherche une boucle par des lettres alphabetique' ??
voir Pj
Dim i As Byte
Dim j As String
Dim lettre As String
'utilisation normale de boucle par du nombre
For i = 1 To 27
ListBox1.AddItem i
Next
'En gros comment passer en revue les lettres de l'alphabet
'sans avoir à les ecrire
'J 'aimerai pour charger ma listbox2 un truc du genre :
For j = A To Z
ListBox2.AddItem j
Next
'Ceci ne me plait pas car trop long .
For i = 1 To 27
Select Case i
Case 1
lettre = 'A'
Case 2
lettre = 'B'
Case 3
lettre = 'C'
Case 4
lettre = 'D'
Case 5
lettre = 'E'
Case 6
lettre = 'F'
Case 7
lettre = 'G'
Case 8
lettre = 'H'
Case Else
lettre = 'Trop long'
End Select
ListBox2.AddItem lettre
Next
Merci [file name=BoucleAvecLettreAlphabetique.zip size=11928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BoucleAvecLettreAlphabetique.zip[/file]
je recherche une boucle par des lettres alphabetique' ??
voir Pj
Dim i As Byte
Dim j As String
Dim lettre As String
'utilisation normale de boucle par du nombre
For i = 1 To 27
ListBox1.AddItem i
Next
'En gros comment passer en revue les lettres de l'alphabet
'sans avoir à les ecrire
'J 'aimerai pour charger ma listbox2 un truc du genre :
For j = A To Z
ListBox2.AddItem j
Next
'Ceci ne me plait pas car trop long .
For i = 1 To 27
Select Case i
Case 1
lettre = 'A'
Case 2
lettre = 'B'
Case 3
lettre = 'C'
Case 4
lettre = 'D'
Case 5
lettre = 'E'
Case 6
lettre = 'F'
Case 7
lettre = 'G'
Case 8
lettre = 'H'
Case Else
lettre = 'Trop long'
End Select
ListBox2.AddItem lettre
Next
Merci [file name=BoucleAvecLettreAlphabetique.zip size=11928]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/BoucleAvecLettreAlphabetique.zip[/file]