CLick image

[cheromi]

Bonjour,

J'ai un petit problème. J'aimerais avoir la possibilité de cliquer sur une image afin que celle ci se change en une autre image et laisse un chiffre (1 par exemple) dans la cellule A1. Si je reclique sur la nouvelle image, j'ai de nouveau l'image de début avec le chiffre 0 en A1. Etc etc
Si vous voyez une chose simple 🙂
Merci
Cheromi

 

[cheromi]

Re : CLick image

personne n'a une idee ?
😕

 

[MichelXld]

Re : CLick image

bonjour

j'espere que tu n'est pas pressé car avec ce genre de relance au bout d'une heure, tu ne risques pas d'avoir beaucoup de réponses ...


bon week end
MichelXld

 

[MichelXld]

Re : CLick image

rebonjour

tu peux affecter cette macro à chacune des images
(clic droit sur les images/affrcter une macro ...)

Sub TestShape()
With Feuil1
    .Range("A1").Value = IIf(Range("A1") = 1, 0, 1)
    .Shapes(1).Visible = IIf(Range("A1") = 1, False, True)
    .Shapes(2).Visible = IIf(Range("A1") = 1, True, False)
End With
End Sub

bon week end
MichelXld

 

[cheromi]

Re : CLick image

Merci michel 🙂