Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 demande fonction bordure image excel

ZWALOUmamene

XLDnaute Nouveau
Bonjour à toutes et à tous,

J'ai créé un tableau de bord sur Excel et ce dernier change la couleur des pays selon une valeur donnée. Cependant je souhaiterai que ce soient les bordures des pays (image) qui changent... Comment faire??

Voici la fonction que j'ai utilisé pour les couleurs des images :

Function ColorieImage(s, couleur1, couleur2, couleur3)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = RGB(couleur1, couleur2, couleur3)
ActiveSheet.Calculate

End Function


J'ai essayé de remplacer le Fill.ForeColor par Border.ForeColor ou Fill.Border.color et cela ne fonctionne pas...Quelqu'un peut m'aider ?

Merci encore,

Alexia
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir ZWALOUmamene,
Essayez avec f.Shapes(s).DrawingObject.Border.Color = RGB(couleur1, couleur2, couleur3), comme :
VB:
ActiveSheet.Shapes("Image 1").DrawingObject.Border.Color = vbRed
For the fun, une PJ.
 

Pièces jointes

  • ShapeBordure.xlsm
    23.7 KB · Affichages: 11
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Bonjour sylvanu, le Forum
Super ton code mais il ne devrait pas pouvoir colorer l'image du second onglet qui n'a pas le même nom ?
Voir fichier joint,
lionel
 

Pièces jointes

  • ShapeBordure.xlsm
    29.8 KB · Affichages: 6

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…