Liste des lettres de l'alphabet
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 subTu 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 subOù NuListe correspond au numéro de liste que tu as rajouter dans l'onglet Liste Pers. (chez moi, la 5ème liste)
Auteur : Benead
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
