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
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