Desactiver un workbook_open par case à cocher

[13GIBE59]

Bonjour le forum. 🙂

Dans le fichier joint, un userform apparaît à l'ouverture.
Je voudrais savoir comment le désactiver en cochant la checkbox qui y est insérée ?

Merci d'avance.

[XLD ne saurait être tenu responsable de l'humour absurde contenu dans les messages ou fichiers de 13GIBE59, qui n'engage que son auteur]

 

[Hulk]

Re : Desactiver un workbook_open par case à cocher

Hello Forum, Gibe,

Voici une solution.

Bonne journée !

EDIT : Slt Pierrot.

Je voulais juste rajouter que pour ce code, tu peux aussi mettre ceci dans la code de l'UserForm si tu veux..

Private Sub UserForm_Initialize()

    If [A1] = "Oui" Then CheckBox1 = False Else CheckBox1 = True

End Sub

Au plaisir.

 

[Pierrot93]

Re : Desactiver un workbook_open par case à cocher

Bonjour Jean-Bernard, Hulk

une autre solution, qui lit la propriété de ton contrôle dans l'usf, il faut bien sur que ce même contrôle soit coché (propriété "value " à "true") et ce même lorsque l'usf n'est pas chargé...

Private Sub Workbook_Open()
Dim u As Object
Set u = ThisWorkbook.VBProject.VBComponents("UserForm1")
If u.Designer.Controls("CheckBox1").Value = True Then Exit Sub
UserForm1.Show
End Sub

bonne journée
@+

 

[13GIBE59]

Re : Desactiver un workbook_open par case à cocher

Bonjour Pierrot et Hulk, et merci de vous pencher sur mon problème.

Au début, j'ai essayé tout seul comme un grand, et je n'y suis pas arrivé. Je pensais que c'était simple...

Eh bien, non !

Désolé, mais vos solutions ne marchent pas chez moi !
Ce fichu userform (vraiment stupide, n'est-ce pas ?) s'ouvre toujours.

 

[pierrejean]

Re : Desactiver un workbook_open par case à cocher

bonjour

Un essai avec un userform dont le showmodal est a false
Mais j'avoue ne pas bien comprendre le but de la manoeuvre

 

[Hulk]

Re : Desactiver un workbook_open par case à cocher

Re,

Ah bon !?

Comme ceci

Private Sub UserForm_Initialize()

    If [A1] = "Oui" Then CheckBox1 = False Else CheckBox1 = True

End Sub
Private Sub CheckBox1_Click()

    If CheckBox1 = True Then [A1] = "Non" Else [A1] = "Oui"

End Sub

Puis ça dans le ThisWorkBook

Private Sub Workbook_Open()

    If Sheets("Feuil1").[A1] = "Non" Then Exit Sub Else UserForm1.Show

End Sub

ça ne fonctionne pas ?

Chez moi ça joue !

Je ne sais que te dire si ce n'est de contrôler les noms du CheckBox et de l'UserForm... et de ta feuille.

 

[13GIBE59]

Re : Desactiver un workbook_open par case à cocher

Salut pierrejean, re Hulk.

Vos solutions marchent impec, merci. 😀

Pour Hulk : j'avais dû oublier le checkbox1_click, je pense...😡

Pour pierrejean : ça sert à un fichier d'aide (le principe, pas ce userform avec son message stupide). 😉

Merci à tous.