XL 2016 Mettre en rouge la cellule sous l'image

[MJ13]

Bonjour à tous

J'espère que vous allez bien.

J'ai un problème sur Excel et j'ai un peu de mal.

J'ai des images sur une feuille et je voudrais que quand je clique ou clique-droit sur une image, que la cellule sous l'image se mette en rouge.

Merci d'avance.

 

[Staple1600]

Bonjour le fil, MJ13

Test OK sur une shape
(Je te laisse tester avec une Image)

Sub Rouge()
ActiveSheet.Shapes(Application.Caller).BottomRightCell.Offset(1, -1).Interior.Color = 255
End Sub

NB: Affecter cette macro à toutes les images sur la feuille.

 

[MJ13]

Bonjour JM

J'ai pris ton code pour l'intégrer dans une feuille.

Merci, pour ce code, mais est-ce possible sans devoir affecter la macro à chaque image?

Peut-être avec un module de classe?

 

[Staple1600]

Re,

•>MJ13
Je me casse pas la tête avec un module de classe
Je fais cela comme ceci

Sub Affection()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then
shp.OnAction = "mRouge"
End If
Next
End Sub
Sub mRouge()
ActiveSheet.Shapes(Application.Caller).BottomRightCell.Offset(1, -1).Interior.Color = 255
End Sub

 

[MJ13]

Re

Ah, ça, c'est cool. Merci JM.

Même sur un fichier avec 4000 Images, cela fonctionne.

Porte toi et portez vous bien.