Empécher un Evénement

Le
Xavier powaga
Bonjour à tous,
je souhaiterais bloquer l'événement lié au changement d'index dans une
combobox

j'ai écris le code suivant mais mon événement se déclenche quand même

Application.EnableEvents = False
Combobox.ListIndex = 3 ' ici l'événement Change se déclenche
Application.EnableEvents = True

C'est quoi le blème ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5235951
Bonjour.
J'aimerais bien aussi connaître la solution. Jusqu'à maintenant, j'ai
contourné en ajoutant un test qui me débranche au début de la macro
évènementielle.
Cordialement.
Daniel
"Xavier powaga" 47c93372$0$32125$
Bonjour à tous,
je souhaiterais bloquer l'événement lié au changement d'index dans une
combobox

j'ai écris le code suivant mais mon événement se déclenche quand même

Application.EnableEvents = False
Combobox.ListIndex = 3 ' ici l'événement Change se déclenche
Application.EnableEvents = True

C'est quoi le blème ?



MichDenis
Le #5235881
| Application.EnableEvents = False

Ce truc appartient à Excel et aux événements que l'on retrouve
dans ses modules de classes objets : ThisWorkbook, Module feuille ...

Mais n'a rien à voir avec les objets de type combobox

Un petit exemple qui peut t'aider :


'Dans le haut du module formulaire
Dim DisableEvent As Boolean

Private Sub ComboBox1_Change()
If DisableEvent = True Then Exit Sub
MsgBox "allo" 'simplement pour tester !
End Sub


Private Sub CommandButton1_Click()
DisableEvent = True
Me.ComboBox1.ListIndex = 5
DisableEvent = False
End Sub





"Xavier powaga" 47c93372$0$32125$
Bonjour à tous,
je souhaiterais bloquer l'événement lié au changement d'index dans une
combobox

j'ai écris le code suivant mais mon événement se déclenche quand même

Application.EnableEvents = False
Combobox.ListIndex = 3 ' ici l'événement Change se déclenche
Application.EnableEvents = True

C'est quoi le blème ?
JB
Le #5235841
Bonjour,

Dim témoin As Boolean
Private Sub ComboBox1_Change()
If Not témoin Then
MsgBox "xxxx"
Else
témoin = False
End If
End Sub

Private Sub CommandButton1_Click()
témoin = True
Me.ComboBox1.ListIndex = 3
End Sub

JB

On 1 mar, 11:44, "Xavier powaga"
Bonjour à tous,
je souhaiterais bloquer l'événement lié au changement d'index dans u ne
combobox

j'ai écris le code suivant mais mon événement se déclenche quand m ême

Application.EnableEvents = False
Combobox.ListIndex = 3    ' ici l'événement Change se déclench e
Application.EnableEvents = True

C'est quoi le blème ?


Publicité
Poster une réponse
Anonyme