Liste des lettres de l'alphabet

Comment faire pour avoir une liste des lettres de l'alphabet qui s'incrémente automatiquement ?

Pourquoi n'utilises-tu pas la liste personnalisée (Menu Outils/Options/Onglet Liste Pers.) Pour ajouter cette liste par macro :

sub AjoutListePers()
  Application.AddCustomList ListArray:=Array("A", "B", "C","D", "E", "F", "G", "H", _
    "I", "J", "K", "L", "M","N", "O", "P", "Q", "R", "S",
 "T", "U", "V", "W", "X", "Y",
 "Z")
   MsgBox "La nouvelle liste est la numéro : " & Application.CustomListCount
 end sub

Tu pourras ainsi incrémenter une série manuellement dans Excel en plus de ce que tu veux faire ! pour mettre à jour ta liste déroulante :

Private sub UserForm_Initialize()
   Dim NuListe As Byte
   NuListe = 5
   For n = 1 To UBound(Application.GetCustomListContents(NuListe))
     ComboBox1.AddItem Application.GetCustomListContents(NuListe)(n)
   Next n
 end sub

Où NuListe correspond au numéro de liste que tu as rajouter dans l'onglet Liste Pers. (chez moi, la 5ème liste)

Auteur :