OVH Cloud OVH Cloud

Visible ou pas visible

6 réponses
Avatar
Pat59
Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de rendre
l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice

6 réponses

Avatar
isabelle
bonjour Patrice,

place ses macro sur la page code de la feuille contenant le bouton.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("CommandButton1").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub

isabelle



Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de rendre
l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice


Avatar
isabelle
p'tit correction et a adapter au nom de ta feuille,

Private Sub Worksheet_Activate()
Sheets("Feuil1").Shapes("CommandButton1").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
Sheets("Feuil1").Shapes("CommandButton1").Visible = False
End Sub

isabelle


bonjour Patrice,

place ses macro sur la page code de la feuille contenant le bouton.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("CommandButton1").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub

isabelle


Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de rendre
l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice




Avatar
Youky
Salut Patrice
si tu as fait un bouton de formulaire 1 clic droit dessus et propriété;
décocher "imprimer l'objet"
si c'est un bouton VBA

Private Sub CommandButton1_Click()
CommandButton1.visibleúlse
'ta commande qui imprime
CommandButton1.visible=true
End sub

même pour une feuille la propriété visible est actif
Sheets("Feuil1").Visibleúlse
"Pat59" a écrit dans le message news:

Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de
rendre

l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice


Avatar
Pat59
Bonjour Isabelle,

Ça fonctionne presque! Enfin lorsque je passe d'une feuille à l'autre. Sur
Deactivate il a fallu écrire la macro comme ceci:

Sheets("Ma Feuille").Shapes("MonBouton").Visible = False

Le problème est que lorsqu'on demande l'impression on ne passe pas par ces
évènements. Alors il ne se passe rien et le bouton est toujours là.

Patrice

"isabelle" wrote:

bonjour Patrice,

place ses macro sur la page code de la feuille contenant le bouton.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("CommandButton1").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub

isabelle



Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de rendre
l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice





Avatar
Pat59
Super, Merci beaucoup à tout le monde!

"Youky" wrote:

Salut Patrice
si tu as fait un bouton de formulaire 1 clic droit dessus et propriété;
décocher "imprimer l'objet"
si c'est un bouton VBA

Private Sub CommandButton1_Click()
CommandButton1.visibleúlse
'ta commande qui imprime
CommandButton1.visible=true
End sub

même pour une feuille la propriété visible est actif
Sheets("Feuil1").Visibleúlse
"Pat59" a écrit dans le message news:

Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de
rendre

l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice







Avatar
isabelle
il y a aussi cette événement
Private Sub Workbook_BeforePrint(Cancel As Boolean)

mais il n'existe pas l'événement contraire (AfterPrint) en tout cas, pas pour la version 2002.

isabelle



Bonjour Isabelle,

Ça fonctionne presque! Enfin lorsque je passe d'une feuille à l'autre. Sur
Deactivate il a fallu écrire la macro comme ceci:

Sheets("Ma Feuille").Shapes("MonBouton").Visible = False

Le problème est que lorsqu'on demande l'impression on ne passe pas par ces
évènements. Alors il ne se passe rien et le bouton est toujours là .

Patrice

"isabelle" wrote:

bonjour Patrice,

place ses macro sur la page code de la feuille contenant le bouton.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("CommandButton1").Visible = True
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Shapes("CommandButton1").Visible = False
End Sub

isabelle



Bonjour,

J'ai un bouton de commande sur une feuille Excel. Est-il possible de rendre
l'objet invisible à l'impression puis visible au retour à la feuille.

Merci

Patrice