Discussion :

[gaet76]

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

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 :

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

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

[pijaku]

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 :

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

Dim EvenementsInactifs As Boolean

Dans l'initialisation de ton userform :

Code :

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

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 :

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

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

[gaet76]

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

[gaet76]

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

Merci beaucoup.