Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (vba) "bascule"

(vba) "bascule"

6 réponses
Avatar
j-pascal
Bonjour,

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

End Sub
'-----------------

Merci pour vos lumières,

JP
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
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)))

Avatar
j-pascal
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)))





Avatar
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)))








Avatar
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)))



Avatar
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)))













Avatar
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)))