Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

(VBA) Bouton sur Image

9 réponses
Avatar
j-pascal
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p

9 réponses

Avatar
JB
Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB





On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permet tant de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p


Avatar
claudy
Bonjour,
étant intéressé par ce fil, je pose la question de savoir si c'est possible
d'afficher et fermer avec un seul bouton..un peu comme un interrupteur?
Avec si possible le texte qui change: afficher/fermer
Merci d'avance,
Claudy
--
____________________________________
__| See you later ... |__
(___O) And have fun .... (O___)
(____O) Surfing on Internet ! (O____)
(____O) Claudy (O____)
(__O) salue ses amis mauves . (O__)
|_______________________________

"JB" a écrit dans le message de news:

Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB





On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant
de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p


Avatar
Daniel.j
Un exemple ici :
http://dj.joss.free.fr/faq.htm#twoaction" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://dj.joss.free.fr/faq.htm#twoaction

Daniel
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm

ex de code :

'Il faut nommer le bouton : ici "BoutonMenu"
Dim Etat As Integer

Sub FeuilProtect()

If Etat = 0 Then
Sheets("feuil1").DrawingObjects("BoutonMenu").Characters.Text = "Plus de
menus": Etat = 1
Application.CommandBars("Worksheet Menu Bar").Enabled = False
MsgBox "La barre de menus est supprimée"

Else

ActiveSheet.DrawingObjects("BoutonMenu").Characters.Text = "Menus
rétablis": Etat = 0
Application.CommandBars("Worksheet Menu Bar").Enabled = True
MsgBox "La barre de menus est rétablie"
End If
End Sub
============================================= "claudy" a écrit dans le message
de news: 45e9356e$0$2939$
Bonjour,
étant intéressé par ce fil, je pose la question de savoir si c'est
possible d'afficher et fermer avec un seul bouton..un peu comme un
interrupteur?
Avec si possible le texte qui change: afficher/fermer
Merci d'avance,
Claudy
--
____________________________________
__| See you later ... |__
(___O) And have fun .... (O___)
(____O) Surfing on Internet ! (O____)
(____O) Claudy (O____)
(__O) salue ses amis mauves . (O__)
|_______________________________

"JB" a écrit dans le message de news:

Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB





On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible =
False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant
de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p







Avatar
Tibert
Bonjour"JB"
Je suis intéresser par cette exemple pourrais-tu me donner plus
d'explication, j'ai essayé de reproduire cette ex: mais cela ne fonctionne
pas !
J'ai inséré une image, dessiner mon bouton sélectionner le bouton et l'image
avec ctrl Clic-droit/grouper Clic-droit sur l'image/Affecter une macro
________________________________________
Sub cache()
ActiveSheet.Shapes("Groupe1").Visible = False
End Sub
________________________________________
Il me met cette erreur
Erreur d'exécution '-2147024809 (80070057)': L'élément portant ce nom est
introuvable.
________________________________________
Peut-on stocker l’image sur une autre feuille du même fichier ?
Salutations


Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB





On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p







Avatar
JB
Bonjour,

Le nom de groupe ne doit pas être bon
Cliquer sur le groupe. Le nom est à gauche de la barre de formule

JB

On 3 mar, 10:00, Tibert wrote:
Bonjour"JB"
Je suis intéresser par cette exemple pourrais-tu me donner plus
d'explication, j'ai essayé de reproduire cette ex: mais cela ne fonctio nne
pas !
J'ai inséré une image, dessiner mon bouton sélectionner le bouton e t l'image
avec ctrl Clic-droit/grouper Clic-droit sur l'image/Affecter une macro
________________________________________
Sub cache()
ActiveSheet.Shapes("Groupe1").Visible = False
End Sub
________________________________________
Il me met cette erreur
Erreur d'exécution '-2147024809 (80070057)': L'élément portant ce n om est
introuvable.
________________________________________
Peut-on stocker l'image sur une autre feuille du même fichier ?
Salutations




Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB

On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feui lle, on
fait apparaître l'image, et sur cette image apparaît un bouton pe rmettant de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
JB
Version 1 bouton:

Sub AfficheCache()
NomShape = Application.Caller
If ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text =
"Cache" Then
ActiveSheet.Shapes("image 2").Visible = False
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text =
"Affiche"
Else
ActiveSheet.Shapes("image 2").Visible = True
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Cache"
End If
End Sub

Version 2:

Sub AfficheCache2()
NomShape = Application.Caller
ActiveSheet.Shapes("image 2").Visible = Not
ActiveSheet.Shapes("image 2").Visible
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = _
IIf(ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text =
"Affiche", "Cache", "Affiche")
End Sub

http://cjoint.com/?ddluMLcND0

JB



On 3 mar, 09:21, "claudy"
wrote:
Bonjour,
étant intéressé par ce fil, je pose la question de savoir si c'est possible
d'afficher et fermer avec un seul bouton..un peu comme un interrupteur?
Avec si possible le texte qui change: afficher/fermer
Merci d'avance,
Claudy
--
____________________________________
__| See you later ... |__
(___O) And have fun .... (O___)
(____O) Surfing on Internet ! (O____)
(____O) Claudy (O____)
(__O) salue ses amis mauves . (O__)
|_______________________________

"JB" a écrit dans le message de news:

Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB

On 3 mar, 01:26, "j-pascal" wrote:



Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuill e, on
fait apparaître l'image, et sur cette image apparaît un bouton perm ettant
de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
j-pascal
Bonjour JB,

C'est génial !
Merci ++++

JP

PS : ce qui est "amusant" c'est que c'est toute la feuille qui lance la
macro et pas seulement le bouton ce qui offre une autre possibilité à
laquelle je n'avais pas pensé au départ ...

"JB" a écrit dans le message de news:

Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB





On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant
de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p


Avatar
Tibert
Merci "JB"
Sa fonctionne !
Salutations


Bonjour,

Le nom de groupe ne doit pas être bon
Cliquer sur le groupe. Le nom est à gauche de la barre de formule

JB

On 3 mar, 10:00, Tibert wrote:
Bonjour"JB"
Je suis intéresser par cette exemple pourrais-tu me donner plus
d'explication, j'ai essayé de reproduire cette ex: mais cela ne fonctionne
pas !
J'ai inséré une image, dessiner mon bouton sélectionner le bouton et l'image
avec ctrl Clic-droit/grouper Clic-droit sur l'image/Affecter une macro
________________________________________
Sub cache()
ActiveSheet.Shapes("Groupe1").Visible = False
End Sub
________________________________________
Il me met cette erreur
Erreur d'exécution '-2147024809 (80070057)': L'élément portant ce nom est
introuvable.
________________________________________
Peut-on stocker l'image sur une autre feuille du même fichier ?
Salutations




Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB

On 3 mar, 01:26, "j-pascal" wrote:
Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible = False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton permettant de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









Avatar
claudy
Merci beaucoup...c'est impec!
Bon WE

--
____________________________________
__| See you later ... |__
(___O) And have fun .... (O___)
(____O) Surfing on Internet ! (O____)
(____O) Claudy (O____)
(__O) salue ses amis mauves . (O__)
|_______________________________

"JB" a écrit dans le message de news:

Version 1 bouton:

Sub AfficheCache()
NomShape = Application.Caller
If ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Cache" Then
ActiveSheet.Shapes("image 2").Visible = False
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Affiche"
Else
ActiveSheet.Shapes("image 2").Visible = True
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Cache"
End If
End Sub

Version 2:

Sub AfficheCache2()
NomShape = Application.Caller
ActiveSheet.Shapes("image 2").Visible = Not
ActiveSheet.Shapes("image 2").Visible
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = _
IIf(ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Affiche", "Cache", "Affiche")
End Sub

http://cjoint.com/?ddluMLcND0

JB



On 3 mar, 09:21, "claudy"
wrote:
Bonjour,
étant intéressé par ce fil, je pose la question de savoir si c'est
possible
d'afficher et fermer avec un seul bouton..un peu comme un interrupteur?
Avec si possible le texte qui change: afficher/fermer
Merci d'avance,
Claudy
--
____________________________________
__| See you later ... |__
(___O) And have fun .... (O___)
(____O) Surfing on Internet ! (O____)
(____O) Claudy (O____)
(__O) salue ses amis mauves . (O__)
|_______________________________

"JB" a écrit dans le message de news:

Bonjour,

-Dessiner un bouton
-sélectionner le bouton et l'image avec ctrl
-Clic-droit/grouper
-Clic-droit sur l'image/Affecter une macro

Sub cache()
ActiveSheet.Shapes("groupe1").Visible = False
End Sub

Sub affiche()
ActiveSheet.Shapes("groupe1").Visible = True
End Sub

http://cjoint.com/?ddgLd6hb4q

JB

On 3 mar, 01:26, "j-pascal" wrote:



Bonjour,

J'ai le code suivant :

Sub AffichageAide()
ActiveSheet.Shapes("Image 4159").Visible = True
End Sub

Est-il possible de mettre le "bouton" affecté à la macro "Visible =
False"
directement sur l'image (je veux dire solidaire de l'image) ?

En résumé : quand on clique sur le bouton se trouvant sur la feuille, on
fait apparaître l'image, et sur cette image apparaît un bouton
permettant
de
"fermer" l'image.

Merci d'avance pour vos éventuelles réponses.

JP

--
Cordialement @+
j.p- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -