Discussion :

[canary]

Bonjour à tous,

La question est hyper simple :
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci par avance pour votre aide

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[canary]

Bonjour,

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

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 !

[Philippe Tulliez]

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

[canary]

Alors merci pour cette réponse.

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

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 ?

[Philippe Tulliez]

Bonjour,

Alors merci pour cette réponse.
Mais pour le coup, si je suis factuelle : j'avais 8 lignes, vous m'en proposez 12
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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