(VBA) Bouton sur Image

Le
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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4357421
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"
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


claudy
Le #4357311
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"
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"
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


Daniel.j
Le #4357281
Un exemple ici :
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" 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"
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"
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







Tibert
Le #4357271
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"
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







JB
Le #4357171
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
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"
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 -




JB
Le #4357131
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"
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"


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 -



j-pascal
Le #4357121
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"
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"
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


Tibert
Le #4357001
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
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"
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 -









claudy
Le #4356951
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"
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"
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"


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 -



Publicité
Poster une réponse
Anonyme