XL 2010 Case à cocher

JCGL

XLDnaute Barbatruc

• 25 Mars 2017

• #2

Bonjour à tous,

Affecter cette macro à la case à cocher

VB:

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

A+ à tous

 

Pièces jointes

• JC Voir USF par CheckBox.xlsm

  27.6 KB · Affichages: 31

Dernière édition: 25 Mars 2017

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 25 Mars 2017

• #3

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 25 Mars 2017

• #4

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Mars 2017

• #5

Bonjour à tous,

Peux-tu essayer :

VB:

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 25 Mars 2017

• #6

Que dire rapide et efficace encore merci
Michel

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 25 Mars 2017

• #7

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

 

Vote positif 0 Vote négatif