For z = 1 to 2 ... With ComboBox & z ... Possible?

[pacoako]

Bonjour tout le monde!

Je me demandais si c'étais possible, afin d'éviter de répéter mon code 2 fois, d'incrément une valeur z avec un FOR pour utiliser dans le nom d'un object tel qu'une combobox...

Voici mon code, suis-je sur la bonne voie? sinon il doit bien y avoir une façon.. ?!

Merci beaucoup de votre aide! A +

Dim z as Integer

For z = 1 To 2
With CBCritere & z 'CBCritere1 & CBCritere2 sont des ComboBox
    .Clear
    .AddItem "===================="
    .AddItem "Numéro:."
    .AddItem "===================="
    .AddItem "# Cause"
    .AddItem "# Compte"
    .AddItem "# Dossier"
    .AddItem "# Hypothèque"
    .AddItem "# Partenaire"
    .AddItem "# Radiation"
    
    .AddItem "===================="
    .AddItem "Monétaire:."
    .AddItem "===================="
    .AddItem "Déboursés"
    .AddItem "Encaissement"
    .AddItem "Honoraires"
    .AddItem "Intérêts"
    .AddItem "Valeur Initiale"
    
    .AddItem "===================="
    .AddItem "Autres:."
    .AddItem "===================="
    .AddItem "Adresse"
    .AddItem "Archive"
    .AddItem "Demandeur"
    .AddItem "District"
    .AddItem "Étape"
    .AddItem "Historique"
    .AddItem "Nom"
    .AddItem "Notes"
    .AddItem "Préposé(e)"
    .AddItem "Raison"
    .AddItem "Type"
    
    .AddItem "===================="
    .AddItem "Dates:."
    .AddItem "===================="
    .AddItem "Bref"
    .AddItem "Ouverture"
    .AddItem "Expiration"
    .AddItem "Hypothèque"
    .AddItem "Mise en demeure"
    .AddItem "Radiation"
End With
Next z

 

[vbacrumble]

Re : For z = 1 to 2 ... With ComboBox & z ... Possible?

Bonsoir


Une piste à suivre ou pas
me.controls("ComboBox" & i).AddItem

 

[Pierrot93]

Re : For z = 1 to 2 ... With ComboBox & z ... Possible?

Bonjour Paco, vbacrumble

une autre solution copier la propriété list du 1er vers le 2ème, sans doute plus rapide :

With ComboBox1
    .AddItem "===================="
    .AddItem "Numéro:."
    .AddItem "===================="
    .AddItem "# Cause"
    .AddItem "# Compte"
    .AddItem "# Dossier"
    .AddItem "# Hypothèque"
    .AddItem "# Partenaire"
    .AddItem "# Radiation"
End With
[B][COLOR="Blue"]ComboBox2.List = ComboBox1.List[/COLOR][/B]

bonne journée
@+

 

[pacoako]

Re : For z = 1 to 2 ... With ComboBox & z ... Possible?

lol mais oui!!! merci a vous 2!!!