B bouli Guest 26 Avril 2006 #1 bonjour j ai un pti probleme. j ai caché un graph mais je n arrive pas a le faire reapparaitre. j utilise: ActiveSheet.Shapes('graph_afriction').Select Selection.Visible = True mais un message d' erreur s affiche a chaqur fois. aidez moi svp
bonjour j ai un pti probleme. j ai caché un graph mais je n arrive pas a le faire reapparaitre. j utilise: ActiveSheet.Shapes('graph_afriction').Select Selection.Visible = True mais un message d' erreur s affiche a chaqur fois. aidez moi svp
Hervé XLDnaute Barbatruc 26 Avril 2006 #2 Bonjour bouli tu ne peux pas sélectionner un objet masquer, essayes comme ceci : ActiveSheet.Shapes('graph_afriction').Visible = True salut Vote positif 0 Vote négatif
Bonjour bouli tu ne peux pas sélectionner un objet masquer, essayes comme ceci : ActiveSheet.Shapes('graph_afriction').Visible = True salut
C Creepy XLDnaute Accro 26 Avril 2006 #3 Bonjour, Chez mois cela fonctionne avec ces commandes. Code: Sub test() ActiveSheet.Shapes(1).Visible = False ActiveSheet.Shapes(1).Visible = True End Sub Pas besoin de faire un select, puis un selection, tu passe directement en propriété le visible. Tu ne peux pas selectionner un objet graphique caché ! @+ Creepy Edit : Doublons Hervé salut tu vas bien ? Message édité par: Creepy, à: 26/04/2006 16:07 Vote positif 0 Vote négatif
Bonjour, Chez mois cela fonctionne avec ces commandes. Code: Sub test() ActiveSheet.Shapes(1).Visible = False ActiveSheet.Shapes(1).Visible = True End Sub Pas besoin de faire un select, puis un selection, tu passe directement en propriété le visible. Tu ne peux pas selectionner un objet graphique caché ! @+ Creepy Edit : Doublons Hervé salut tu vas bien ? Message édité par: Creepy, à: 26/04/2006 16:07
Hervé XLDnaute Barbatruc 26 Avril 2006 #4 re bouli, salut creepy cool merci, et toi ? bouli, si ton objectif est de faire apparaitre ou disparaitre le graphique à volonté : With ActiveSheet.Shapes('graph_afriction') .Visible = Not (.Visible) End With salut Vote positif 0 Vote négatif
re bouli, salut creepy cool merci, et toi ? bouli, si ton objectif est de faire apparaitre ou disparaitre le graphique à volonté : With ActiveSheet.Shapes('graph_afriction') .Visible = Not (.Visible) End With salut