Application.EnableEvents non efficace

Bonjour le Forum,

Je me creuse la tête sur un problème qui doit être tout simple à régler mais la je séche :arf:

Je vous explique :

J'ai un Userform : UFMenu

A l'initialisation de celui ci je rempli des combobox et c'est la que le problème survient.

Je ne veux pas que le fait de remplir les combobox déclenche l'événement combobox change étant donné que j'ai un code qui me sert appliquer un filter quand ce combobox change.

j'ai donc écrit le code suivant dans un sub qui est appelé par ma macro d'initialisation du UFMenu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Application.EnableEvents = False With Me.CBProjet .Style = fmStyleDropDownCombo .Clear .AddItem "Tous" For i = 1 To Me.LVVeh.ListItems.Count Projet = Left(Me.LVVeh.ListItems.Item(i).Text, InStr(Me.LVVeh.ListItems.Item(i).Text, " ") - 1) Me.CBProjet = Projet If .ListIndex = -1 Then .AddItem Projet Next i .ListIndex = 0 .Style = fmStyleDropDownList Application.EnableEvents = True

---

J'ai beau placer le "Application.enableEvents" n'importe où dans ce code (j'ai essayé juste avant Me.CBProjet = ... mais ca ne change rien), à chaque fois la macro combobox change est appellée.

Dois je placer à un autre endroit, dans ma macro initialization de mon userform, ...

Je ne sais pas trop quoi faire.

Merci de votre aide

Bonjour,

En effet, inefficace.
Il te faut créer ton propre désactivateur d'événement.
Comment?

1 variable booléenne de niveau module (en entête du module de ton UserForm) :

Code:

---

Dim EvenementsInactifs As Boolean

---

Dans l'initialisation de ton userform :

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() EvenementsInactifs = True 'ton code ici EvenementsInactifs = False End Sub

---

Dans ton code de combobox_Change :

Code:

---

1 2 3

Private Sub ComboBox1_Change() If EvenementsInactifs = True Then Exit Sub 'le reste de ton code ici

---

Bonjour,

Merci pijaku et je vous dis si ca marche meme si je n'ai aucun doute la dessus ^^

Et comment ca se fait que le enableevents ne fonctionne pas ? c'est dommage

Pijaku, j'ai testé et ca marche nickelement bien.

Merci beaucoup.