Macro dans Userform

[ministef_21]

Bonjour,

J'ai construit une macro pour réinitialiser mes CheckBox qui fonctionne lorsque je la lance avec un bouton sur ma feuille de classeur.
Seulement lorsque je passe par un Userform, celle-ci ne fonctionne plus.
L'erreur doit être mineure mais.... !!!!!

Voic le code de la macro :
'Macro de réinitialisation des CheckBox
Sub Reinitialiser()
For Each Obj In Worksheets("Batiments-Locaux").OLEObjects
If TypeOf Obj.Object Is MSForms.CheckBox Then
Obj.Object.Value = Not (Obj.Object.Value)
End If
Next Obj
End Sub

Et je l'appelle dans l'userForm de la manière classique:


Private Sub CommandButton1_Click()
Reinitialiser
Unload UserForm1
End Sub


Si quelqu'un peut me sortir de cette mauvaise passe?? 🙂

Cordialement

 

[Robert]

Re : Macro dans Userform

Bonjour Ministef, bonjour le forum,

Mets ta macro dans un module (Module1 par exemple) et modifie le code du bouton de l'UserForm comme ça :

Private Sub CommandButton1_Click()
Module1.Reinitialiser
Unload UserForm1
End Sub

Idem pour le code du bouton dans l'onglet :

Private Sub CommandButton1_Click()
Module1.Reinitialiser
End Sub

Ça devrait marcher...

 

[ministef_21]

Re : Macro dans Userform

ça fonctionne! 🙂

Merci

Bonne journée