Afficher / masquer forme suivant case à cocher

job75

XLDnaute Barbatruc

• 26 Juillet 2014

• #2

Re : Afficher / masquer forme suivant case à cocher

Bonjour tontonexcel,

Si des Shapes portent le même nom il faut toutes les étudier :

Code:

Private Sub case_01_Click()
Dim s As Shape
For Each s In Me.Shapes
If s.Name = "forme1" Then s.Visible = case_01
Next
End Sub

A+

 

Vote positif 0 Vote négatif

T

tontonexcel

XLDnaute Occasionnel

• 26 Juillet 2014

• #3

Re : Afficher / masquer forme suivant case à cocher

Bonjour Job75,

Merci pour ta réponse rapide, juste une simple question quelle est l'utilité réelle de Me (puisqu'il n'y a pas de formulaire) ?

Merci encore !!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juillet 2014

• #4

Re : Afficher / masquer forme suivant case à cocher

Re,

Sinon, si l'on veut lier les 2 formes, il faut les grouper :

Code:

Private Sub case_01_Click()
Me.Shapes("Groupe 1").Visible = case_01
End Sub

Fichier joint.

A+

 

Pièces jointes

• demo case coche(1).xls

  37 KB · Affichages: 43

Vote positif 0 Vote négatif

T

tontonexcel

XLDnaute Occasionnel

• 26 Juillet 2014

• #5

Re : Afficher / masquer forme suivant case à cocher

Ah oui effectivement je n'avais pas pensé au groupe, cela évite les confusions

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Juillet 2014

• #6

Re : Afficher / masquer forme suivant case à cocher

tontonexcel à dit:

juste une simple question quelle est l'utilité réelle de Me (puisqu'il n'y a pas de formulaire) ?

Cliquez pour agrandir...

Quand on veut définir une collection Shapes, il faut toujours préciser la feuille.

Me c'est la feuille où se trouve la macro.

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 26 Juillet 2014

• #7

Re : Afficher / masquer forme suivant case à cocher

bonjour tontonexcel,job
une autre si tu as forme1,forme2,etc

Code:

Option Explicit
Dim sh As Shape

Private Sub case_01_Click()
    For Each sh In Feuil1.Shapes
        If Left(sh.Name, 5) = "forme" Then sh.Visible = case_01.Value
    Next sh
End Sub

 

Vote positif 0 Vote négatif

T

tontonexcel

XLDnaute Occasionnel

• 26 Juillet 2014

• #8

Re : Afficher / masquer forme suivant case à cocher

Merci bebere ça peut toujours servir !

 

Vote positif 0 Vote négatif