XL 2010 Case à cocher

[Mimi]

Bonjour à tous,
Je voudrais savoir si il y a un moyen d'ouvrir un userform en cochant la case à cocher
J'ai essayer avec le code présent dans le fichier mais sa ne marche pas
Ensuite si je décoche la case il ne faut pas que l'userform s'ouvre
D'avance je vous remercie
Michel

 

[JCGL]

Bonjour à tous,

Affecter cette macro à la case à cocher

Sub Voir()
    If Feuil1.Range("B9") Then
        UserForm1.Show 0
    Else
        Unload UserForm1
    End If
End Sub

A+ à tous

 

[Mimi]

Bonjour JCGL,
Merci beaucoup de ta réponse
Cela fonctionne bien
Michel

 

[Mimi]

Re Bonjour
En décochant la case il serait possible d'effacer la ligne C9 dans l’exemple de mon fichier ?
Michel

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

Sub Voir()
    If Feuil1.Range("B9") Then
        UserForm1.Show 0
    Else
        Unload UserForm1
        Feuil1.Range("C9") = ""
    End If
End Sub

 

[Mimi]

Que dire rapide et efficace encore merci
Michel

 

[Mimi]

Bonjour,
Je tiens à remercier toutes les personnes qui oeuvre dans leur temps libre pour aider à réaliser les projets que l'on espère de faire et qui au bout de la discussion parvienne à arriver au bout de leur projet.
Un grand merci pour tout ceux qui nous aide.
Merci
Michel