Discussion :

[toniiio29]

Bonjour,
J'ai un UserForm avec 17 combobox au contenu et au nom similaires. Je souhaite effectuer des actions en fonction de l'ouverture de chacune de ces combobox ou de la valeur qu'elles ont prise lorsqu'elles sont modifiées. Seulement pour l'instant je suis obligé d'écrire pour chaque combobox, trois macros événements:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_Enter()
    'actions 1
End Sub
Private Sub ComboBox1_Change()
   'actions 2
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
   'actions3
End Sub

Or je voudrais pouvoir générer ces macros événements par une boucle du type "for each"

Code :

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

1
2
3
4
5
6
7
8
9
for each Control in Userform1
if Control.name = "Combobox1" or Control.name = "Combobox2" then<div style="margin-left:40px">Private Sub subroutines(Control.name & "_Enter") ()
'actions 1
End Sub
Private Sub subroutines(Control.name & "_Change") ()</div><div style="margin-left:80px">'actions 2</div><div style="margin-left:40px">End Sub
Private Sub subroutines(Control.name & "_Exit") (ByVal Cancel As MSForms.ReturnBoolean) 
'actions3
End Sub</div>end if
next Control

J'ai cherché sur le forum mais n'ai pas trouvé de sujets similaires. Sinon merci de me l'indiquer.
J'espère avoir exposé le problème de facon suffisament claire. Mais n'hésitez pas bien sûr si vous avez des questions.
Merci pour votre aide et expertise

PS: Je travaille avec Excel 2010 et VBA 7.0

[Philippe Tulliez]

Bonjour,

J'ai cherché sur le forum mais n'ai pas trouvé de sujets similaires. Sinon merci de me l'indiquer.

Pour t'aider il faudrait en savoir plus, sur ce que tu cherches à faire.
Pour les boucles sur les contrôles I-B. Boucler sur les contrôles contenus dans la Forme
On peut aussi utiliser les modules de classes.
Lire Création et utilisation de classes personnalisées en VB 6.0 et VBA (partie 1)
Ou bien si tu cherches à écrire une procédure qui devrait fonctionner sur plusieurs contrôle en passant un argument. Voir cet exemple dans cette discussion.

[toniiio29]

Bonjour Philippe,

Merci pour ta réactivité et ton temps.
Je cherche à réaliser des actions similaires d'affichage selon les mêmes événements de plusieurs combobox d'un même UserForm. Pour l'instant, j'ai fait une procédure indépendante par type d'événement avec un index en argument pour désigner le combobox. J'appelle ensuite cette procédure dans mes 17 macros evenementielles en précisant l'index. Cela me raccourcit le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub ComboBox1_Enter()
    subCmbEnter(1)
End Sub
Private Sub ComboBox1_Change()
   subCmbChange(1)
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
   subCmbExit(1)
End Sub 
 
'... idem pour tous les combobox de mon UserForm
 
Private Sub ComboBox17_Enter()
    subCmbEnter(17)
End Sub
Private Sub ComboBox17_Change()
   subCmbChange(17)
End Sub
Private Sub ComboBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
   subCmbExit(17)
End Sub

Mais je pense que la solution est dans les modules de classe que je ne connais pas encore.
Je vais aller regarder ton lien.
Merci

[Philippe Tulliez]

Bonjour,
Effectivement, si tu as 17 procédures événementielles à traiter, il vaut mieux passer par un module de classe.