AddItem en double...

belette · 6 Juin 2006

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 · 6 Juin 2006

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 · 6 Juin 2006

Tout simplement, Merci !

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

Hervé · 6 Juin 2006

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

AddItem en double...

belette

XLDnaute Junior

Robert

XLDnaute Barbatruc

belette

XLDnaute Junior

Hervé

XLDnaute Barbatruc

Discussions similaires