apparition disparition d'image

[jeny]

bon a force vous allez me connaitre mais encore une fois bonjour a tous
voila encore un probleme,et c'est pas fini!!!!
ça fait a peine quinze jours que je debute et je crois que j'ai surestime mais capacites.tout ça pour vous dire mon probleme
j'aimerai d'un clic faire apparaitre une image et du deuxieme lafaire disparaitre
j'ai mis ça et!!!ça marche pas
besoin d'aides
merci
@+
JENY (j'ai mis l'image en E3:G9)
et ça çi dessus

Sub feuil3_logo()
If activatesheet.sharpes("image").Visible = False Then
activatesheet.sharpes("image").Visible = True
Else
activatesheet.sharpes("image").Visible = False
End If

End Sub

 

[michel]

bonsoir Jeny

tu peux essayer

Sub feuil3_logo()
If ActiveSheet.Shapes("image").Visible = False Then
ActiveSheet.Shapes("image").Visible = True
Else
ActiveSheet.Shapes("image").Visible = False
End If
End Sub


bonne soiree
michel

 

[JEAN MICHEL]

bonsoir jenny

ci joint le code corrige + un exemple

Sub feuil3_logo()

If ActiveSheet.Shapes("image 5").Visible = False Then
ActiveSheet.Shapes("image 5").Visible = True
Else
ActiveSheet.Shapes("image 5").Visible = False
End If

End Sub

attention ("image 5") est le nom de l'image dans l'exemple

 

[JEAN MICHEL]

desole MICHEL je n'avais pas actualise la page du forum avant de mettre ma reponse apres une courte absence

bonne soiree

 

[jeny]

bonjour a tous
merci de ta reponse ,mais j'ai un petit souci
ça marche pas
je pense que ça vient du bouton
quel bouton tu as mis je trouve pas le même
lui as tu affecté une macro
dans l'attente de ta reponse je vais essayé de trouver l'erreur
bonne journée a tous
jeny
et encoer merci de votre patience
@+

 

[jeny]

bonjour,
merci de ta reponse chez moi ça marche pas
je pense que mon souci vient du fait de l'image ,faut-il la mettre sur un controle enfin j'y arrive pas
j'ai du loupé un episode
@+
JENY

 

[jeny]

encore moi
re bonjour ,
finalement j'ai ouvert un autre classeur
j'y suis arriver avec ça :

Private Sub Image1_Click()


If ActiveSheet.Shapes("image 1").Visible = False Then
ActiveSheet.Shapes("image 1").Visible = True
Else
ActiveSheet.Shapes("image 1").Visible = False
End If

End Sub
mais je n'arrive pas a ecrire sur le bouton (form image)
bon je vais insister mais en attendent je compte sur vous
merci
bonne journée
@+
JENY

 

[LaurentTBT]

Bonjour à tous

En lisant ce fil, je me pose une question sur ce que tu veux faire exactement, Jenny.
en particulier, sur quoi cliques-tu exactement?

D'après ta procédure, tu cliques sur ton image. Mais pour cela, il faut que tu la vois! Si elle n'est pas visible, comment peux-tu cliquer dessus?
Donc, pour moi, la condition
If ActiveSheet.Shapes("image 1").Visible = False
n'est jamais remplie lorsque tu cliques sur l'image!
Donc, pour la faire réaparaître, il faut cliquer ailleurs, sur un autre bouton par exemple. D'ailleurs, tu parles de bouton dans ton dernier message.

Par ailleurs, il existe 3 types d'images dans Excel:
- les images de la barre d'outils "dessin", ou celle que tu as insérées via le menu Insertion. Ce sont ces images que l'on appelle en VBA par les objets Shapes.
- les contrôles images, disponibles dans la barre d'outil formulaire
- les contrôles images, disponibles dans la barre d'outil visual basic via la boîte à outil.
Et c'est pareil pour le bouton, tu as les 3 types.

Dans les 2 premiers cas, il faut affecter une procédure au contrôle où à l'objet dessin. Cette procédure s'effectuera lorsqu'on cliquera sur l'objet en question.
Dans le 3ème cas, c'est beaucoup plus puissant, car tu as possibilité de jouer sur moulte procédures événementielles, dont celle qui se déclenche lorsqu'on clique dessus. Cette procédure est déjà liée au contrôle.

Enfin, pour compliquer le tout, tu as la possibilité avec les boutons (de la dernière catégorie) d'y insérer une image (plus du texte éventuellement)

Et je me dis que c'est peut-être ça que tu cherches à faire finalement: un bouton qui, lorsqu'on clique dessus, fait apparaitre (sur lui-même) une image si elle n'existait pas, ou au contraire la fait disparaître si elle était déjà présente.

Le mieux serait que tu envoies une pièce jointe zippée.

Bon courage, @ plus.

 

[JEAN MICHEL]

BONJOUR JENNY

AStu ouvert le classeur que j'avais joint comme exemple
cette procedure te convient elle ,recherche tu autre chose
a+

 

[jeny]

bonjour jean michel
je te remercie de ton aide et de ta patience
je n'est pas reussi a faire comme toi je ne trouve pas de bouton
j'ai prie form image je l'ai ecrit plus haut
par contre je ne peu pas ecrire dessus
je t'aurai bien envoyer un fichier mais je n'arrive pas a zipper
dommage car je cherche encore plen de trucs
je debute et je me suis lancé dans un truc pas possible
enfin petit a petit j'y arriverai
merci de ton aide
A+
JENY