Combobox avec contenu cellules séparées

rharik Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
bonjour,

je suis débutante en VBA et j'aimerais avoir des renseignements sur comment mettre des cellules séparées dans un combobox.
je veux que le combobox affiches les cellules suivantes: A10; A25; A38; A51....

Voilà une de mes essais

Private Sub ComboBox1_Change()
For i = 10 To 3
Me.ComboBox1.AddItem = cell(, 1)
End Sub



merci d'avance

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vos cellules sont connues et ne change pas en cours de route??
0
rharik Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,
les cellules ne changent pas
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Ok,

Private Sub UserForm_Initialize()
    TCel = Array(10, 25, 38, 51) ' a modifier suivant votre besoin
    For n = 0 To UBound(TCel)
        ComboBox1.AddItem Range("A" & TCel(n))
    Next n
End Sub
0