Comment peut-on modifier le code qui suit pour que chaque clic sur le bouton
provoque alternativement l'affichage ou le masquage du shape ? (Ce code
fonctionne mais je pense qu'il y a un moyen plus rationnel pour arriver au
même résultat)
'-----------------
Private Sub POG_Click()
If ActiveSheet.Shapes("ImagePOG").Visible = False Then
ActiveSheet.Shapes("ImagePOG").Visible = True
Else
If ActiveSheet.Shapes("ImagePOG").Visible = True Then
ActiveSheet.Shapes("ImagePOG").Visible = False
End If
End If
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not " Erreur de compilation ! JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
Jacky
Bonsoir,
Parce que le code de cette bascule publié par l'honorable Modeste demande à être inscrit sur une seule ligne, de ActiveSheet.....jusqu'a ....Visible -- Salutations JJ
"j-pascal" a écrit dans le message de news: %
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not " Erreur de compilation ! JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
Bonsoir,
Parce que le code de cette bascule publié par l'honorable Modeste demande à
être inscrit sur une seule ligne, de
ActiveSheet.....jusqu'a ....Visible
--
Salutations
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%236HbCAiWIHA.4896@TK2MSFTNGP06.phx.gbl...
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne :
"ActiveSheet.Shapes("ImagePOG").Visible =Not "
Erreur de compilation !
JP
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ubcTK4hWIHA.1532@TK2MSFTNGP04.phx.gbl...
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le
bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click()
ActiveSheet.Shapes("ImagePOG").Visible =Not
ActiveSheet.Shapes("ImagePOG").Visible
End Sub
Parce que le code de cette bascule publié par l'honorable Modeste demande à être inscrit sur une seule ligne, de ActiveSheet.....jusqu'a ....Visible -- Salutations JJ
"j-pascal" a écrit dans le message de news: %
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not " Erreur de compilation ! JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
Modeste
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not "
il n'y a qu'ue seule instruction !!! tout sur une seule ligne .... c'est l'editeur qui à coupé la ligne
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
-- -- @+ ;o)))
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Merci, mais j'obtiens un bug sur la ligne :
"ActiveSheet.Shapes("ImagePOG").Visible =Not "
il n'y a qu'ue seule instruction !!!
tout sur une seule ligne ....
c'est l'editeur qui à coupé la ligne
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ubcTK4hWIHA.1532@TK2MSFTNGP04.phx.gbl...
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le
bouton provoque alternativement l'affichage ou le masquage du shape
?
Private Sub POG_Click()
ActiveSheet.Shapes("ImagePOG").Visible =Not
ActiveSheet.Shapes("ImagePOG").Visible
End Sub
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not "
il n'y a qu'ue seule instruction !!! tout sur une seule ligne .... c'est l'editeur qui à coupé la ligne
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
-- -- @+ ;o)))
j-pascal
Merci Jacky pour cette précision.
JP
"Jacky" a écrit dans le message de news:
Bonsoir,
Parce que le code de cette bascule publié par l'honorable Modeste demande à être inscrit sur une seule ligne, de ActiveSheet.....jusqu'a ....Visible -- Salutations JJ
"j-pascal" a écrit dans le message de news: %
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not " Erreur de compilation ! JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
Merci Jacky pour cette précision.
JP
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OcSkNKiWIHA.4740@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Parce que le code de cette bascule publié par l'honorable Modeste demande
à
être inscrit sur une seule ligne, de
ActiveSheet.....jusqu'a ....Visible
--
Salutations
JJ
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
%236HbCAiWIHA.4896@TK2MSFTNGP06.phx.gbl...
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne :
"ActiveSheet.Shapes("ImagePOG").Visible =Not "
Erreur de compilation !
JP
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ubcTK4hWIHA.1532@TK2MSFTNGP04.phx.gbl...
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le
bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click()
ActiveSheet.Shapes("ImagePOG").Visible =Not
ActiveSheet.Shapes("ImagePOG").Visible
End Sub
Parce que le code de cette bascule publié par l'honorable Modeste demande à être inscrit sur une seule ligne, de ActiveSheet.....jusqu'a ....Visible -- Salutations JJ
"j-pascal" a écrit dans le message de news: %
Bonsoir Modeste,
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not " Erreur de compilation ! JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
j-pascal
Re,
J'ai un peu honte d'avoir posé la question ; il se fait tard, je devrais aller me coucher ;-)
Merci pour ce code ; c'est infiniment plus rationnel que mon "usine à gaz" !
Bonne nuit,
JP
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Merci, mais j'obtiens un bug sur la ligne : "ActiveSheet.Shapes("ImagePOG").Visible =Not "
il n'y a qu'ue seule instruction !!! tout sur une seule ligne .... c'est l'editeur qui à coupé la ligne
"Modeste" a écrit dans le message de news:
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le bouton provoque alternativement l'affichage ou le masquage du shape ?
Private Sub POG_Click() ActiveSheet.Shapes("ImagePOG").Visible =Not ActiveSheet.Shapes("ImagePOG").Visible End Sub
-- -- @+ ;o)))
-- -- @+ ;o)))
Re,
J'ai un peu honte d'avoir posé la question ; il se fait tard, je devrais
aller me coucher ;-)
Merci pour ce code ; c'est infiniment plus rationnel que mon "usine à gaz" !
Bonne nuit,
JP
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ehdKHMiWIHA.3940@TK2MSFTNGP05.phx.gbl...
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
Merci, mais j'obtiens un bug sur la ligne :
"ActiveSheet.Shapes("ImagePOG").Visible =Not "
il n'y a qu'ue seule instruction !!!
tout sur une seule ligne ....
c'est l'editeur qui à coupé la ligne
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
ubcTK4hWIHA.1532@TK2MSFTNGP04.phx.gbl...
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :
pour que chaque clic sur le
bouton provoque alternativement l'affichage ou le masquage du shape
?
Private Sub POG_Click()
ActiveSheet.Shapes("ImagePOG").Visible =Not
ActiveSheet.Shapes("ImagePOG").Visible
End Sub