OVH Cloud OVH Cloud

Combobox simple

2 réponses
Avatar
Erwann
Bonjour



Je souhaiterais alimenter une combobox par des chiffres

Ex : de 20 à 30



Mais sans écrire



Dim i, Taux

Taux = Array(20, 21, 22, 23, 24, 25, 26, 27, 27, 29, 30)

For i = 0 To 10

Me.FC_Taux.AddItem Taux(i)

Next



Mon pb est que la limite supérieur n'est pas fixe, çàd ne sera pas tjs = à
30



Merci

2 réponses

Avatar
MichDenis
Bonjour Erwann,


Essaie ceci :

'----------------
Dim i as Integer
Dim Nb as Integer 'limite supérieur

'Tu définis Nb selon ta procédure :


If Nb >20 then
'Si tu veux vider ton combobox avant d'ajouter tes items
Me.FC_Taux.Clear
For i = 20 To Nb
Me.FC_Taux.AddItem i
Next
end if
'----------------


Salutations!



"Erwann" a écrit dans le message de news: 42446fb3$0$11699$
Bonjour



Je souhaiterais alimenter une combobox par des chiffres

Ex : de 20 à 30



Mais sans écrire



Dim i, Taux

Taux = Array(20, 21, 22, 23, 24, 25, 26, 27, 27, 29, 30)

For i = 0 To 10

Me.FC_Taux.AddItem Taux(i)

Next



Mon pb est que la limite supérieur n'est pas fixe, çàd ne sera pas tjs = à
30



Merci
Avatar
Erwann
Merci pr cette réponse d'une incroyable rapidité
JE vais voir si ça marche

Merci