Problème avec EnableEvents

[Itori]

Bonjour le forum,

Je rencontre en ce moment un petit soucis avec la fonction EnableEvents. En effet, je souhaite désactiver les évènements avant d'éxecuter une action, cependant il semblerait que les évènements continuent tout de même à fonctionner...

Dans l'exemple que je met, j'ai mis 3 boutons à bascules, et je souhaite n'avoir qu'un seul d'entre eux qui est activé. Aussi lors de l'activation d'un second bouton, je passe les valeurs des 2 autres à false. Cependant les évènements interviennent et me mettent les 3 à false.

Je vous joins un petit fichier de ce que j'ai fait 🙂

Merci d'avance pour votre aide.

 

[Compte Supprimé 979]

Re : Problème avec EnableEvents

Salut Itori,

Pour solutionner le problème, tu peux utiliser une variable bolléenne.
Que tu mets à vrai au début du changement des valeurs des 2 autres boutons.

Voir le fichier joint.

 

[Pierrot93]

Re : Problème avec EnableEvents

Bonjour Itori

la propriété "EnableEvents" ne s'applique pas dans unUSF, utilise une variable de type "boolean" en tête de module comme dans l'exemple ci dessous :

(code à reproduire pour les 2 autres boutons)

Dim x As Boolean
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ToggleButton1_Click()
If x = True Then Exit Sub
x = True
If ToggleButton1.Value = True Then
    ToggleButton1.BackColor = &HFF&
Else
    ToggleButton1.BackColor = &H8000000F
End If
ToggleButton2.Value = False
ToggleButton3.Value = False
x = False
End Sub

@+

Aarf, bonjour Bruno, désolé pour la collision, j'avais pas raffraichi...

 

[Itori]

Re : Problème avec EnableEvents

Merci beaucoup à vous, cela marche parfaitement.
J'ignorais que cela ne fonctionnait pas dans un userform.