Liste de valeur dans Combo Box

Citation:

Envoyé par nono le golfeur

Comment feriez-vous pour insérer une liste de valeur présente dans une feuille dans une ComboBox,s achant qu'on ne sais pas le nombre de valeurs,

J'ai essayé d'utiliser ça, mais ça ne fonctionne pas !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
 
Dim X As Integer
 
With cbo_debut
 
    For X = 2 To 256      'Les données sont sur la ligne 1 et entre B et IV
    .AddItem Sheets("Data").Range(X & 1)
    Next X
 
End With
 
End Sub

Merci !

tu oublie de dire QUOI !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Activate()
 
Dim X As Integer
 
 
With cbo_debut
 
    For X = 2 To 256      'Les données sont sur la ligne 1 et entre B et IV
    .AddItem Sheets("Data").Range(X & 1).VALUE
    Next X
 
End With
 
 
End Sub

et vu que tu ne cite qu'une seule fois cbo_debut il n'est pas nécessaire d'employer With

Code:

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Activate()
 
Dim X As Integer
 
    For X = 2 To 256      'Les données sont sur la ligne 1 et entre B et IV
           cbo_debut.AddItem Sheets("Data").Range(X & 1).VALUE
    Next X
 
End Sub

A+