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