Combobox avec lettre alpha

Bonjour

Je cherche un code pour alimenter ma combobox avec l'alphabet

Je vous remercie d'avance

Max

Bonjour,

avec Chr et accessoirement ASC :

 Dim i As Long
 For i = Asc("A") To Asc("Z")
        ComboBox1.AddItem Chr(i)
 Next

Bonjour,

C'est sybillin !

Je suppose qu'il s'agit de l'alphabet latin en vigueur. Et qu'on va se limiter aux lettres capitales composant cet alphabet.

Donc les caractères 65 à 90...

    For i = 0 to 25
        Alpha(i) = Chr(i +65)
    Next i
    ComboBox1.List = Alpha

J'écris directement dans le post...

Ne pas omettre de déclarer : Alpha(25) As String, i% [Integer], et de réfèrer ComboBox à son Userform...

En réfléchissant un peu (mais pas trop ) tu serais arrivé à bâtir ça !

Bonjour, MFerrand, pierre.jy

Je vous remercie et vous souhaite une bonne fin de journée

Max