Combobox avec contenu cellules séparées

rharik Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 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

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Vos cellules sont connues et ne change pas en cours de route??
    0
    1. rharik Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
       
      bonjour,
      les cellules ne changent pas
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      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