Discussion :

[tomy7]

bonjour ,

nouvelle question du jour:
je remplie mes cmbobox de cette maniere:

Code :

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

1
2
3
4
5
6
Private Sub Userform_initialize()
With ComboBox1
.AddItem = "13"
End With
 
End Sub

maintenant j ai plus de 200 nombres a affiche et j aimerai savoir si au lieu de faire

Code :

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

1
2
3
.additem "13"
.additem "14"
.additem "15"

il y a un raccourci du genre ( je sais que c est faux )

Code :

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

1
2
3
4
5
Private Sub Userform_initialize()
With ComboBox1
.AddItem = "13:263"
End With
End Sub

merci

[ucfoutu]

Bonjour,

Regarde dans ton aide en ligne les boucles For .... to .... Next

et fais en une de la valeur i (par exemple) de 13 à ce que tu veux !

[fring]

Re,

Deux possibilités
Soit les nombres sont insérés dans des cellules alors c'est via la propriété RowSource

Soit via un boucle

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Userform_initialize()
Dim i
With Me.ComboBox1
For i = 13 To 263
.AddItem i
Next
End With
 
End Sub

[tomy7]

et est ce possible de faire un test sur combobox dans ce style:

Code :

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

1
2
3
 
If combobx1.value = " une valeur de 13 a 263" then  _
sheet1.rows("combobox.value").hidden = true

merci

[tomy7]

ok j ai compri la methode
merci a tous

[illight]

et ça ça marche pas :

Code :

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

1
2
3
4
5
 
Dim i As Long
For i = 13 To 263
ComboBox1.AddItem i
Next i