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
isabelle
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click()
If ActiveSheet.ToggleButton1.Value Then
ActiveSheet.Shapes("Image1").Visible = True
Else
ActiveSheet.Shapes("Image1").Visible = False
End If
End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
michel ou sam
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir le bouton pour faire disparaître l'image. Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image. (nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du "Image") Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour la faire disparaitre.
Sub image() If ActiveSheet.Shapes("Picture 1").Visible = True Then ActiveSheet.Shapes("Picture 1").Visible = False Else ActiveSheet.Shapes("Picture 1").Visible = True End If End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et cliquer uniquement sur l'image.
Michel
"Greg" a écrit dans le message de news: 4c961248$0$16080$
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir
le bouton pour faire disparaître l'image.
Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image.
(nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du "Image")
Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour la
faire disparaitre.
Sub image()
If ActiveSheet.Shapes("Picture 1").Visible = True Then
ActiveSheet.Shapes("Picture 1").Visible = False
Else
ActiveSheet.Shapes("Picture 1").Visible = True
End If
End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la
dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et
cliquer uniquement sur l'image.
Michel
"Greg" <kln@LJKnd> a écrit dans le message de news:
4c961248$0$16080$426a34cc@news.free.fr...
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir le bouton pour faire disparaître l'image. Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image. (nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du "Image") Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour la faire disparaitre.
Sub image() If ActiveSheet.Shapes("Picture 1").Visible = True Then ActiveSheet.Shapes("Picture 1").Visible = False Else ActiveSheet.Shapes("Picture 1").Visible = True End If End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et cliquer uniquement sur l'image.
Michel
"Greg" a écrit dans le message de news: 4c961248$0$16080$
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Greg
Bonjour et merci Isabelle,
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer un bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" a écrit dans le message de groupe de discussion : i75497$klh$
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Bonjour et merci Isabelle,
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer un
bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion :
i75497$klh$1@speranza.aioe.org...
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click()
If ActiveSheet.ToggleButton1.Value Then
ActiveSheet.Shapes("Image1").Visible = True
Else
ActiveSheet.Shapes("Image1").Visible = False
End If
End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer un bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" a écrit dans le message de groupe de discussion : i75497$klh$
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Greg
Bonjour et merci Michel ou Sam,
Ca marche impec!
Greg
"michel ou sam" a écrit dans le message de groupe de discussion : 4c962982$0$7683$
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir le bouton pour faire disparaître l'image. Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image. (nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du "Image") Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour la faire disparaitre.
Sub image() If ActiveSheet.Shapes("Picture 1").Visible = True Then ActiveSheet.Shapes("Picture 1").Visible = False Else ActiveSheet.Shapes("Picture 1").Visible = True End If End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et cliquer uniquement sur l'image.
Michel
"Greg" a écrit dans le message de news: 4c961248$0$16080$
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Bonjour et merci Michel ou Sam,
Ca marche impec!
Greg
"michel ou sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe
de discussion : 4c962982$0$7683$ba4acef3@reader.news.orange.fr...
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir
le bouton pour faire disparaître l'image.
Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image.
(nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du
"Image")
Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour
la faire disparaitre.
Sub image()
If ActiveSheet.Shapes("Picture 1").Visible = True Then
ActiveSheet.Shapes("Picture 1").Visible = False
Else
ActiveSheet.Shapes("Picture 1").Visible = True
End If
End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la
dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et
cliquer uniquement sur l'image.
Michel
"Greg" <kln@LJKnd> a écrit dans le message de news:
4c961248$0$16080$426a34cc@news.free.fr...
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
"michel ou sam" a écrit dans le message de groupe de discussion : 4c962982$0$7683$
Si tu fais apparaître l'image sur tout l'écran, tu risques de ne plus voir le bouton pour faire disparaître l'image. Il serait bon d'affecter aussi à l'image la partie macro "disparaître"
Ci-dessous, j'ai affecté la macro à un bouton et à l'image. (nota: par rapport à Isabelle, mon VBA veut du "Picture" et pas du "Image") Je clique sur le bouton pour faire apparaitre, je clique sur l'image pour la faire disparaitre.
Sub image() If ActiveSheet.Shapes("Picture 1").Visible = True Then ActiveSheet.Shapes("Picture 1").Visible = False Else ActiveSheet.Shapes("Picture 1").Visible = True End If End Sub
Il y a aussi une autre possibilité : reduire la taille de l'image à la dimension d'un bouton avec la propriété .ScaleWidth et .ScaleHeight et cliquer uniquement sur l'image.
Michel
"Greg" a écrit dans le message de news: 4c961248$0$16080$
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
isabelle
bonjour Greg,
mets un ToggleButton sur la feuille, fait un clic droit sur celui-ci et sélectionne visualiser le code,
isabelle
Le 2010-09-19 12:06, Greg a écrit :
Bonjour et merci Isabelle,
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer un bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" a écrit dans le message de groupe de discussion : i75497$klh$
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
bonjour Greg,
mets un ToggleButton sur la feuille, fait un clic droit sur celui-ci et sélectionne visualiser le code,
isabelle
Le 2010-09-19 12:06, Greg a écrit :
Bonjour et merci Isabelle,
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer
un bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" <i@v.org> a écrit dans le message de groupe de discussion :
i75497$klh$1@speranza.aioe.org...
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click()
If ActiveSheet.ToggleButton1.Value Then
ActiveSheet.Shapes("Image1").Visible = True
Else
ActiveSheet.Shapes("Image1").Visible = False
End If
End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
mets un ToggleButton sur la feuille, fait un clic droit sur celui-ci et sélectionne visualiser le code,
isabelle
Le 2010-09-19 12:06, Greg a écrit :
Bonjour et merci Isabelle,
Comment dois-je m'y prendre? Je sais mettre le code dans le VB, associer un bouton à une macro... mais là, j'avoue que je bloque.
Merci
Greg
"isabelle" a écrit dans le message de groupe de discussion : i75497$klh$
bonjour Greg,
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
isabelle
Le 2010-09-19 09:38, Greg a écrit :
Bonjour à tous et content de vous retrouver,
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
Pourriez-vous m'aider?
Merci
Greg
Modeste
Bonsour®
"Greg" a écrit
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros. Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
autre alternative : insérer un commentaire dans une cellule incorporer l'image en texture de fond
;o))) bises à Emma
Bonsour®
"Greg" a écrit
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et
un pour la faire disparaître.
autre alternative :
insérer un commentaire dans une cellule
incorporer l'image en texture de fond
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros. Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
autre alternative : insérer un commentaire dans une cellule incorporer l'image en texture de fond
;o))) bises à Emma
Maude Este
Bonsour®
"isabelle" a écrit
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
;o))) plus directement ... Private Sub ToggleButton1_Click() ActiveSheet.Shapes("Image1").Visible = ActiveSheet.ToggleButton1.Value End Sub
Bonsour®
"isabelle" a écrit
par exemple avec un ToggleButton,
Private Sub ToggleButton1_Click()
If ActiveSheet.ToggleButton1.Value Then
ActiveSheet.Shapes("Image1").Visible = True
Else
ActiveSheet.Shapes("Image1").Visible = False
End If
End Sub
;o)))
plus directement ...
Private Sub ToggleButton1_Click()
ActiveSheet.Shapes("Image1").Visible = ActiveSheet.ToggleButton1.Value
End Sub
Private Sub ToggleButton1_Click() If ActiveSheet.ToggleButton1.Value Then ActiveSheet.Shapes("Image1").Visible = True Else ActiveSheet.Shapes("Image1").Visible = False End If End Sub
;o))) plus directement ... Private Sub ToggleButton1_Click() ActiveSheet.Shapes("Image1").Visible = ActiveSheet.ToggleButton1.Value End Sub
Greg
Merci Modeste,
Ce sera fait... 1 an de mariage hier! et le deuxième en route......
à bientôt
Greg
"Modeste" a écrit dans le message de groupe de discussion : 4c966d12$0$3695$
Bonsour®
"Greg" a écrit
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros. Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
autre alternative : insérer un commentaire dans une cellule incorporer l'image en texture de fond
;o))) bises à Emma
Merci Modeste,
Ce sera fait... 1 an de mariage hier! et le deuxième en route......
à bientôt
Greg
"Modeste" <nomail@live.fr> a écrit dans le message de groupe de discussion :
4c966d12$0$3695$426a74cc@news.free.fr...
Bonsour®
"Greg" a écrit
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2
macros.
Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette
image, et un pour la faire disparaître.
autre alternative :
insérer un commentaire dans une cellule
incorporer l'image en texture de fond
Ce sera fait... 1 an de mariage hier! et le deuxième en route......
à bientôt
Greg
"Modeste" a écrit dans le message de groupe de discussion : 4c966d12$0$3695$
Bonsour®
"Greg" a écrit
Je cherche à affecter une macro à une image. En fait, je dirais plutôt 2 macros. Voilà, il faudrait qu'il y ait un bouton pour faire apparaitre cette image, et un pour la faire disparaître.
autre alternative : insérer un commentaire dans une cellule incorporer l'image en texture de fond
;o))) bises à Emma
michel ou sam
"Greg" a écrit dans le message de news: 4c96f2d7$0$13346$
Merci Modeste,
Ce sera fait... 1 an de mariage hier! et le deuxième en route......
à bientôt
Greg
et tu veux déjà, à volonté, faire disparaître son image ! ? ;-)
Michel
"Greg" <kln@LJKnd> a écrit dans le message de news:
4c96f2d7$0$13346$426a34cc@news.free.fr...
Merci Modeste,
Ce sera fait... 1 an de mariage hier! et le deuxième en route......
à bientôt
Greg
et tu veux déjà, à volonté, faire disparaître son image ! ?
;-)