colorer image clic macro

[akrillon]

Bonjour tout le monde,

J'aimerais un peu d'aide

je cherche à colorer une image lorsque je clic dessus,
Cepandant ayant plusieurs images j'aimerais que celle-ci redeviene blanc si je clic sur une autre image.

J'imagine qu'il faut utiliser un do loop, while mais je ne suis pas bien sur je suis novice en macro ^^

J'ai deja écrie ça :

ActiveSheet.Shapes.Range(Array("xxxx")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With

Voila merci beaucoup de votre aide!!

 

[st007]

Re : colorer image clic macro

Bonjour,
un peu comme dans ce fichier

 

[akrillon]

Re : colorer image clic macro

Bonjour à toi,
Merci d'avoir répondue

Alors c'est un peu ça, mais dans ce cas, les images ne sont pas indépandante les unes des autres,
Moi j'ai plus de 40 images différentes alors ce sera long à écrire ^^

 

[st007]

Re : colorer image clic macro

ou bien voir du côté de
For Each s In ActiveSheet.Shapes

next s