ComboboxRésolu

Question

Bonjour à tous,

Voilà je débute dans la programmation et je bloque sur un point.
j'ai 43 combobox sur ma form ou je doit écrire par combobox:
   Combo1.additem "5 minutes"
   Combo1.additem "10 minutes"
   .
   .
   .
   Combo1.additem "10 heures"
Ainsi de suite.

y a t'il une méthode plus simple pour ne pas écrire les 43 combobox avec toutes ces lignes (combo1.additem"......)?

Merci d'avance.
TE33

jmfmarques · Accepted Answer

Euh...

1) notre ami nous dit travailler avec VB6 (pas de UserForm !!!) et sur une Form
2) VB6 permet de travailler avec un groupe de contrôles indexés

exemple avec 2 combobox Combo1(0) et Combo1(1) :

Private Sub Command1_Click()
 For i = 0 To 1
   Combo1(i).AddItem "toto"
   Combo1(i).AddItem "titi"
 Next
End Sub

bigfish_le vrai · Answer

Salut,

voila comment boucler sur tes combobox :

Sub demo()
    Dim MaCombo As Objet, NomCombo As String
    NomCombo = "combobox"
    For Each MaCombo In Userform1.Controls
        If Left(lcase(MaCombo.Name),Len(NomCombo)) =  NomCombo Then
            MaCombo.AddItem...
        End If
    Next
End Sub

A+

jrivet · Answer

Salut,
Alors VB6 ou VBA??????

@+: Ju£i?n
Pensez: Réponse acceptée

TE33 · Answer

TE33

TE33 · Answer

TE33

TE33 · Answer

bonjours à tous,
c'est du VB6
J'ai essayer le programme de jmfmarques c'est OK.
Je n'ai pas pensé au index (Mille excuses).

Merci à tous pour votre rapidité.

Bonne journée à tous.

TE33

Combobox

6 réponses

Votre réponse

Discussions similaires