Discussion :

[Nyck0las]

Bonjour,

je suis en train de créer une userform et j'ai un certain nombre de combobox auquel je souhaiterais appliquer la même procédure ComboBox_Change.
Suis-je obliger de retaper 30 fois quasiment la même procédure en changeant 2-3 indices ou puis-je procéder de façon plus générale ??

[ouskel'n'or]

Tu peux ne créer qu'une procédure avec paramètres, procédure que tu appelles depuis l'événement change de tes différents comboBox.
(Je ne sais pas si on peut créer une collection de combobox)

[Invité]

Bonjour

Regardes cette discussion du forum Access http://www.developpez.net/forums/sho...hlight=onclick message n°9, tu dois pouvoir adapter cela à Excel.

Starec

[ouskel'n'or]

Désolé, Philippe mais OnClick, connais pas sur Excel (V 2003)
Je crois bien que j'ai eu vu passer une solution (pas forcément pour des combos) mais je ne sais plus où, je ne sais plus quand, mais y'a longtemps, bref j'ai oublié... Et ce n'était peut-être qu'un rève.
Par contre, en créant une collection et en récupérant les événements avec WithEvents dans un module de classe... c'est "peut être" possible mais je ne l'ai jamais fait que pour des boutons...

[Invité]

OnClick, c'est que l'exemple pour Access, j'ai dit qu'il était peut-être possible de l'adapter, c'était juste une idée de départ.

Le but de ce code sous Access est d'affecter sur un évènement le lancement d'une fonction (dans l'exemple ClickSur) le contrôle où il y'a eut l'action, et donc de faire ce que l'on veut aprés.

Starec

[ucfoutu]

Si l'on appelle toujours la même procédure, il suffit d'appeler les combo : combo1, combo2, ...combon... puis de passer comme paramètre à la procédure le dernier caractère toto du nom de la combo (donc 1,2, etc... n) et d'utiliser ensuite la collection controls en invoquant controls("combo" & toto).

La chose, toutefois, ne sera jamais l'équivalent s'un index d'un goupe de contrôle (qui, lui, ne nécessite pas d'appeler n fois la procédure).

Une autre solution (mais fort coûteuse) : installoer un Timer (api Windows puisque VBA n'en possède pas) et le faire tourner en peremanence ! chaque fois que le nom du contrôle actif commence par "Combo", lancer la procédure comme ci-dessus en se servant de son dernier caractère comme index (solution de fou furieux ...)