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

bloquer EnableEvents de combobox dans un userform multipage

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 !

zephir94

XLDnaute Impliqué
Bonjour à tous,

Je voudrais à l'ouverture d'un userform multi pages bloquer l’événement change de mes combobox
Dans la partie de mon code "Private Sub UserForm_Initialize"
j'avais pensé mettre un banal EnableEvents avec la valeur false, mais ça ne fonctionne pas donc je pensais faire une boucle sur les combobox de 1 à 18 comme ceci :

Code:
Private Sub UserForm_Initialize()
Dim b
For b = 1 To 18
Me.Controls("ComboBox" & b).EnableEvents = true
Next b
..................................................... ' reste du code
For b = 1 To 18
Me.Controls("ComboBox" & b).EnableEvents = false
Next b

end sub

Mais ça ne marche pas non plus !

Une idée ?
Merci à vous
 
Dernière édition:
Re : bloquer EnableEvents de combobox dans un userform multipage

Bonjour

Utilisez une variable globale ParCode As Boolean, que vous mettrez True avant de modifier par code vos ComboBox et mettez des If ParCode Then Exit Sub comme 1ère instruction de vos ComboBox_Change.
 
Re : bloquer EnableEvents de combobox dans un userform multipage

bonjour,

comme expliqué par Dranreb

Code:
Dans le code de ton Userform
Private ExitSub as Boolean

En 1’ligne dans tous les ComboBox
If ExitSub then Exit Sub



Private Sub UserForm_Initialize()
ExitSub = True

‘           tout ceci inutile
‘Dim b
‘For b = 1 To 18
‘Me.Controls("ComboBox" & b).EnableEvents = true
‘Next b
‘

..................................................... ' reste du code

‘
‘           tout ceci inutile
‘For b = 1 To 18
‘Me.Controls("ComboBox" & b).EnableEvents = false
‘Next b


ExitSub = False
end sub
 
- 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

Discussions similaires

Réponses
3
Affichages
196
Réponses
5
Affichages
185
Réponses
3
Affichages
668
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…