Bonjour à tous,

Je travaille sur un tableur EXCEL qui me permet d'afficher des cartes, que j'ai importées sous forme de SHAPEs.

J'arrive à en modifier par VBA la couleur en modifiant la propriété Selection.ShapeRange.Fill.ForeColor.RGB

en récupérant la couleur de fond d'une cellule donnée :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(Int(couleurDeMaCellule) Mod 256), Int(couleurDeMaCellule) Mod 65536) / 256), Int(couleurDeMaCellule / 65536))
1) existe-t-il un moyen plus élégant, sans passer par RGB, de récupérer la couleur EXACTE ?

2) je souhaite aller plus loin, et récupérer aussi le motif, la brillance, etc... , du moins ce qu'il est possible de récupérer parmi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
    With Selection.Interior
        .Pattern = xlHorizontal
        .PatternThemeColor = xlThemeColorAccent1
        .color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
mais je ne trouve pas de doc en français sur les propriétés de ShapeRange.Fill

Ce n'est peut-être pas possible ?

Un grand merci d'avance pour vos réponses.