Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
    Next X
 
End With
 
 
End Sub

Merci !

[LeForestier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+