Simplification d'écriture du code

Bonjour à tous,

La question est hyper simple :oops: :
J'ai 2 ComboBox dans un formulaire, qui sont remplies de la même manière. Au lieu de copier 2 fois le code comme actuellement...

Code:

---

1 2 3 4 5 6 7 8 9

With Me.ComboBox_1 .AddItem "Months" .AddItem "Years" End With   With Me.ComboBox_2 .AddItem "Months" .AddItem "Years" End With

---

...je préfèrerai faire des économies de lignes. J'ai essayé de séparer le nom de mes 2 ComboBox par une virgule mais ça ne marche pas:roll:

Merci par avance pour votre aide

Bonjour,
Excellent réflexe. Non seulement cela économise des lignes mais surtout cela facilite la maintenance.
Voici un exemple.

Code:

---

1 2 3 4 5 6 7

Dim i For i = 1 To 2 With Me.Controls("Combobox_" & i) .AddItem "Months" .AddItem "Years" End With Next i

---

[EDIT]
Une autre option si l'ajout ne doit pas se faire en même temps, serait de créer une procédure par exemple nommée AddItem qui serait invoquée par d'autres procédures en passant comme argument le nom du contrôle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub AddItem(CtrlName As String) With Me.Controls(CtrlName) .AddItem "Months" .AddItem "Years" End With End Sub Private Sub CommandButton1_Click() AddItem "ComboBox_1" End Sub Private Sub CommandButton2_Click() AddItem "ComboBox_2" End Sub

---

Bonjour,

Merci pour cette réponse qui conviendrait mais je me suis fait avoir à mon propre jeu de simplification pour expliquer mon problème...:mouarf:

En fait mes ComboBox s'appellent ComboBox_Date et ComboBox_Calendrier... les itérations avec For ne marchent donc plus..

[EDIT]
La deuxième solution pourrait convenir à mon problème mais pour des "novices" qui devraient reprendre un jour mon code, je préfèrerai faire au plus simple car si les Procédures ne sont pas rapprochées dans le code, il y a risque de s'y perdre facilement (à mon avis bien sur). Mais j'en prends bonne note pour mes futurs autres développements !

Bonjour,
Justement plus le code est découpé plus il est lisible de plus il est important de le commenter même pour soi.

Alors merci pour cette réponse.

Mais pour le coup, si je suis factuelle : j'avais 8 lignes, vous m'en proposez 12 :mrgreen:

Pour conclure, il n'est donc pas possible de lister les ComboBox comme par exemple :
With Me.ComboBox_Date, ComboBox_Calendrier .... comme il est possible de le faire lorsque l'on déclare des variables ?

Bonjour,

Citation:

---

Envoyé par canary

Alors merci pour cette réponse.
Mais pour le coup, si je suis factuelle : j'avais 8 lignes, vous m'en proposez 12 :mrgreen:
Pour conclure, il n'est donc pas possible de lister les ComboBox comme par exemple :
With Me.ComboBox_Date, ComboBox_Calendrier .... comme il est possible de le faire lorsque l'on déclare des variables ?

---

C'est 12 lignes mais dans des procédures différentes. Je parlais de trop de lignes dans la même procédure.
L'instruction With permet d'appliquer une série d'instructions à l'objet indiqué mais pas à plusieurs.
Mais par contre, il y a toujours moyen faire une boucle avec un Array
[EDIT]
Désolé cliquer trop vite sur enregistrer
Exemple avec Array

Code:

---

1 2 3 4 5 6 7

Dim CtrlName For Each CtrlName In Array("ComboBox_1", "ComboBox_2") With Me.Controls(CtrlName) .AddItem "Months" .AddItem "Years" End With Next

---

ça répond tout à fait à mon besoin merci.

=> Merci de bien vouloir forcer le bouton "Résolu" à ma place, car cela me déconnecte à chaque fois sans raison...