Discussion :

[ninon]

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.

[Philippe Tulliez]

Bonjour,
Pour copier la couleur, de l'intérieur d'une cellule, il y a plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShapeRange.Fill.ForeColor.RGB = Range("B2").Interior.Color

[Menhir]

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 ?

Comment est renseignée la variable couleurDeMaCellule ?

[ninon]

Merci de vous pencher tous deux sur la question :

Je réponds à Menhir :
Je me positionne sur la cellule-paramètre, et puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CouleurDeMaCellule = ActiveCell.Interior.color

Je réponds à Philippe Tulliez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShapeRange.Fill.ForeColor.RGB = Range("B2").Interior.Color

Ne fonctionne pas, c’est pour cela que j’ai traduit la couleur en RGB.

[Philippe Tulliez]

Bonjour,

Ne fonctionne pas, c’est pour cela que j’ai traduit la couleur en RGB.

Qu'entends-tu par ne fonctionne pas ?

C'est pourtant ainsi que je pratique pour mettre mes cartes en couleur

[ninon]

Ça fonctionne chez toi ? chez moi, ce code ne remplit pas du tout ma carte, le fond devient blanc !

[Theze]

Bonjour,

Ça fonctionne chez toi ? chez moi, ce code ne remplit pas du tout ma carte, le fond devient blanc !

Pour que ça fonctionne, il te faut d'abords sélectionner tes Shapes !

[Menhir]

Je me positionne sur la cellule-paramètre, et puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CouleurDeMaCellule = ActiveCell.Interior.color

Fais encore un effort en montrant le code de sélection de la cellule et celui de la Shape.

[ninon]

Le code qui ne fonctionne pas chez moi est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.ShapeRange.Fill.ForeColor.RGB = Range("K8").Interior.color

Celui qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.ShapeRange.Fill.ForeColor.RGB = RGB(Int(maColor Mod 256), Int((maColor Mod 65536) / 256), Int(maColor / 65536))

avec, en amont de mon programme, alors que je suis sur K8, il y a le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

macolor = ActiveCell.Interior.color

[patricktoulon]

re