For boucle = A to Z : avec lettre alphabétiques

[carlos]

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]

 

[PascalXLD]

Re:For boucle = A to Z : avec lettre alphabétique

Bonjour

essaies

dim j as byte

For j = 1 To 26
ListBox2.AddItem chr(64 + j)
Next

 

[Hervé]

Re:For boucle = A to Z : avec lettre alphabétique

salut carlos

essayes comme ceci :

For i = 1 To 26
ListBox2.AddItem Chr(64 + i)
Next

par contre, c'est quoi la 27ème lettre de l'alphabet ?

salut

edition : oups, salut pascal.

Message édité par: hervé, à: 18/04/2006 16:02

 

[carlos]

Re:For boucle = A to Z : avec lettre alphabétique

Re
Pour etre plus simple :::


Est il possible d'attribuer un numero à chaque lettre Alphabetique :

A = 1
B = 2
C = 3
etc ...

merci Carlos

 

[carlos]

Re:For boucle = A to Z : avec lettre alphabétique

Bonjour Pascal76,bonjour Hervé

A peine le temps de préciser ma pensée que j'obtiens deja 2 réponses pertinentes .

la 27 ieme lettre c'est pour vous remercier .

merci

Carlos

 

[AV]

Re:For boucle = A to Z : avec lettre alphabétique

Ave,

''...Est il possible d'attribuer un numero à chaque lettre Alphabetique :

A = 1
B = 2
C = 3
etc ...''


LaVariableContenantLaLettre = 'A'
MsgBox Asc(LaVariableContenantLaLettre) - 64

ou dans la feuille :=CODE(LaCelluleContenantLaLettre)-64

AV [aaa]

 

[Pierrot93]

Re:For boucle = A to Z : avec lettre alphabétique

Bonjour,
Essaies ce petit bout de code si il peut t'aider !!!

x = 65: y = 90 'majuscules
'x = 97: y = 122 'minuscules

For c = x To y
MaLettre = Chr(c)
next c

 

[Hervé]

Re:For boucle = A to Z : avec lettre alphabétique

re tout le monde

sinon, av en se passant d'une variable :

MsgBox Columns('Z').Column

salut

 

[carlos]

Re:For boucle = A to Z : avec lettre alphabétique

Bonjour Hervé,Pierrot93
Avé Av

Merci pour la diversité de vos réponses.

Effectivement Pierrot93 ton petit bout de code m'a aidé et le tien aussi Avé pour reconvertir un alphabetique en nombre.

Enfin Hervé que dire de plus ....Merci aussi

Carlos