combobox simplifier le code

[apdf1]

Bonjour

Voila j'ai 8 combobox qui ont la même indication y a t-il un code qui peut alimenter les huit Combobox de manière plus simple.

Private Sub UserForm_Initialize()


With Me.ComboBox1
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
With Me.ComboBox2
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
With Me.ComboBox3
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
With Me.ComboBox4
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
 With Me.ComboBox5
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
 With Me.ComboBox6
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
With Me.ComboBox7
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
With Me.ComboBox8
        .AddItem "Prise"
        .AddItem "Garde"
        .AddItem "Garde sans le Chien"
        .AddItem "Garde Contre le Chien"
     End With
End Sub

Si quelqu'un peut m'aider je le remercie d'avance
Cordialement

Max

 

[stefan373]

Bonsoir apdf1 et le forum.

Dim i As Long
For i = 1 To 9
Controls("combobox" & i).AddItem "Prise"
Controls("combobox" & i).AddItem "Garde"
Controls("combobox" & i).AddItem "Garde sans le Chien"
Controls("combobox" & i).AddItem "Garde Contre le Chien"
Next

A +

 

[apdf1]

Re : combobox simplifier le code

Bonsoir

Je vous remercie beaucoup et vous souhaite une bonne soirée

Max

 

[stefan373]

Re

Oui carcharodon c'est tout à fait juste.😎
Merci pour la remarque.

A +

 

[FromOuterSpace]

Re : Re: combobox simplifier le code

Bonjour à tous

Ici en transit

Une autre façon de faire

Private Sub UserForm_Initialize()
Dim t, i As Byte
t = Array("Prise", "Garde", "Garde sans le Chien", "Garde Contre le Chien")
For i = 1 To 8
Me.Controls("ComboBox" & i).List = t
Next i
End Sub

A+ avec mon pseudo habituel
JM