AddItem en double...

[belette]

Bonjour,

Suis-je obligé d'écrire ça ou bien y a t'il une solution plus courte...

With ComboBoxVar1
.AddItem 'Adresse'
.AddItem 'Facture du'
.AddItem 'Début'
.AddItem 'Fin'
.AddItem 'Mois'
.AddItem 'Année'
.AddItem 'Référence'
.AddItem 'Consommation HP'
.AddItem 'Consommation HC'
.AddItem 'Consommation'
.AddItem 'Consommation'
.AddItem 'Coût'
.AddItem 'Coût unitaire'
End With

With ComboBoxVar2
.AddItem 'Adresse'
.AddItem 'Facture du'
.AddItem 'Début'
.AddItem 'Fin'
.AddItem 'Mois'
.AddItem 'Année'
.AddItem 'Référence'
.AddItem 'Consommation HP'
.AddItem 'Consommation HC'
.AddItem 'Consommation'
.AddItem 'Consommation'
.AddItem 'Coût'
.AddItem 'Coût unitaire'
End With

With ComboBoxVar3
.AddItem 'Adresse'
.AddItem 'Facture du'
.AddItem 'Début'
.AddItem 'Fin'
.AddItem 'Mois'
.AddItem 'Année'
.AddItem 'Référence'
.AddItem 'Consommation HP'
.AddItem 'Consommation HC'
.AddItem 'Consommation'
.AddItem 'Consommation'
.AddItem 'Coût'
.AddItem 'Coût unitaire'

End With

With ComboBoxVar4
.AddItem 'Adresse'
.AddItem 'Facture du'
.AddItem 'Début'
.AddItem 'Fin'
.AddItem 'Mois'
.AddItem 'Année'
.AddItem 'Référence'
.AddItem 'Consommation HP'
.AddItem 'Consommation HC'
.AddItem 'Consommation'
.AddItem 'Consommation'
.AddItem 'Coût'
.AddItem 'Coût unitaire'
End With

 

[Robert]

Bonjour Belette, bonjour le forum,

Tu pourrais peut-être faire comme ça :

For x = 1 To 4
With Me.Controls('ComboboxVar' & x)
.AddItem 'Adresse'
.AddItem 'Facture du'
.AddItem 'Début'
.AddItem 'Fin'
.AddItem 'Mois'
.AddItem 'Année'
.AddItem 'Référence'
.AddItem 'Consommation HP'
.AddItem 'Consommation HC'
.AddItem 'Consommation'
.AddItem 'Consommation'
.AddItem 'Coût'
.AddItem 'Coût unitaire'
End With
Next x

 

[belette]

Tout simplement, Merci !

(j'avais essayé de créer un tableau avec les valeurs etc. mais c'était lourd et ne fonctionnait pas)

 

[Hervé]

Bonjour belette, robert

une autre syntaxe possible, mais pas meilleur que celle de robert.

With ComboBoxVar1
        .AddItem 'Adresse'
        .AddItem 'Facture du'
        .AddItem 'Début'
        .AddItem 'Fin'
        .AddItem 'Mois'
        .AddItem 'Année'
        .AddItem 'Référence'
        .AddItem 'Consommation HP'
        .AddItem 'Consommation HC'
        .AddItem 'Consommation'
        .AddItem 'Consommation'
        .AddItem 'Coût'
        .AddItem 'Coût unitaire'
End With

For x = 2 To 4: Me.Controls('ComboboxVar' & x).List = ComboBoxVar1.List: Next x

salut