Combobox avec contenu cellules séparées

Fermé
rharik Messages postés 2 Date d'inscription mercredi 4 juillet 2018 Statut Membre Dernière intervention 4 juillet 2018 - 4 juil. 2018 à 10:57
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 4 juil. 2018 à 13:06
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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
4 juil. 2018 à 11:37
Bonjour,

Vos cellules sont connues et ne change pas en cours de route??
0
rharik Messages postés 2 Date d'inscription mercredi 4 juillet 2018 Statut Membre Dernière intervention 4 juillet 2018
4 juil. 2018 à 11:45
bonjour,
les cellules ne changent pas
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
4 juil. 2018 à 13:06
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