Discussion :

[sevoli]

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!

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.

[Invité]

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 :

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
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

[sevoli]

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

[sevoli]

Ok ça marche!
Merci encore