XL 2016 Mettre en rouge la cellule sous l'image

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #2

Bonjour le fil, MJ13

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

VB:

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Avril 2020

• #3

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?

 

Pièces jointes

• Click Image Rouge.xlsm

  396.8 KB · Affichages: 6

Dernière édition: 28 Avril 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Avril 2020

• #4

Re,

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

VB:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Avril 2020

• #5

Re

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

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

Porte toi et portez vous bien. 😉

 

Pièces jointes

• Click Image RougeV2.xlsm

  397.7 KB · Affichages: 14

Dernière édition: 28 Avril 2020

Vote positif 0 Vote négatif