Problème déclenchement sous-macro

Bonjour à tous,
J'ai créé un userform qui comporte des listes déroulantes qui se rafraîchissent en cascade. C'est à dire qu'en fonction du choix des listes en amont, la listbox en cours met à jour sa liste en filtrant les différents choix déjà sélectionnés (ex: si Renault sélectionné en amont, la liste n'affiche que "Clio, Mégane, Laguna...) par contre, si pas de constructeur spécifique sélectionné, il affiche toutes les versions "207, Clio, C4, 508....).

Pour auto-alimenter et filtrer ces listbox, j'utilise les macros Change (sur changement de valeur) et Enter (reception focus).

Mon problème vient du fait que lorsque je veux effacer toutes les sélections en cours, en faisant pour chaque liste un .clear, vba exécute sur chaque liste la macro Change! :oops:

Ma question est: savez-vous comment désactiver temporairement les macros événementielles le temps de faire un clear sur chaque liste pour éviter de boucler sur des sous-macros, qui peuvent redéclencher d'autres sous-macros et qui ralentit la macro initiale?

Merci d'avance pour vos conseils éclairés. ;)

Salut,

Dans un 'Unserform' la fonction 'Application.EnableEvents=False' ne fonctionne pas.

Il faut donc passer par une variable globale comme l'exemple ci-dessous avec deux 'ListBox':

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit   Public bolTemp As Boolean   Private Sub ComboBox1_Change() bolTemp = True Me.ComboBox2.Value = 1 bolTemp = False End Sub   Private Sub ComboBox2_Change() If bolTemp = True Then Exit Sub End Sub   Private Sub UserForm_Initialize() Me.ComboBox1.List = Array(1, 2, 3, 4) Me.ComboBox2.List = Array(1, 2, 3, 4) End Sub

---

Merci de ta réponse rapide :ccool:
Je teste et te tiens au courant

Ok ça marche! :ccool:
Merci encore