Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec EnableEvents

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Itori
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

Itori

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

Pièces jointes

Trier par date Trier par votes
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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)
Code: 
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...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
807
arnoldbrice19
A
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
675
Lu76Fer
G
  • Question Question
XL 2016 Demande de conseils VBA : de la fenêtre unique (XL 2010) au multifenêtres (XL 2016)
Réponses
0
Affichages
627
Guy_M
G
F
  • Résolu(e)
XL 2021 Réaliser une macro pour copier une ligne avec formule ?
Réponses
4
Affichages
751
fanou06
F
V
  • Question Question
XL 2021 Chronologie Globale
Réponses
1
Affichages
539
Gégé-45550
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
L
  • Résolu(e)
XL 2016 Problème liaison USF vers tableau et inversément
Réponses
1
Affichages
637
Ludo G
L
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
807
oguruma
Z
  • Résolu(e)
XL 2016 Rompre les liens avec les requêtes et autres liens
2
Réponses
20
Affichages
3 K
ZZ59264
Z
  • Question Question
Microsoft 365 Problème Listbox.Selected
2
Réponses
24
Affichages
2 K
ChTi160
P
  • Résolu(e)
XL 2019 Problème avec Application.DisplayFullScreen = true
Réponses
6
Affichages
2 K
pat66
P
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Question Question
XL 2019 BDD VBA - nombreux problèmes
Réponses
3
Affichages
946
fanfan38
T
  • Question Question
XL 2019 Problème mise en forme conditionnelle avec date
Réponses
5
Affichages
1 K
telemarrk
T
A
  • Résolu(e)
XL 2019 Inversion date avec macro import
Réponses
14
Affichages
1 K
Arnaud59000
A
R
  • Question Question
XL 2010 VBA : consolidation
Réponses
2
Affichages
988
Rousseau Benoit
R
R
  • Question Question
XL 2019 J'aurai besoin d'aide pour une formule (pas de macro svp)
Réponses
8
Affichages
1 K
job75
M
  • Question Question
Microsoft 365 Tri de colonnes avec 3 critères, remplissage de lignes vides avec formule + ventilation vers autre onglet
Réponses
8
Affichages
2 K
marinehaye
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…