Propriétés d'un shaperange

**ninon** · 08/10/2018, 15h32

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** · 08/10/2018, 16h14

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** · 08/10/2018, 16h27

Envoyé par ninon

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** · 08/10/2018, 17h56

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** · 08/10/2018, 18h20

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** · 08/10/2018, 18h55

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

**Theze** · 08/10/2018, 19h14

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 !

**patricktoulon** · 08/10/2018, 19h23

re

Code :

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

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

**Menhir** · 08/10/2018, 19h30

Envoyé par ninon

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** · 08/10/2018, 19h35

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** · 08/10/2018, 19h43

re

Nom : demo.gif
Affichages : 1704
Taille : 786,0 Ko

**patricktoulon** · 08/10/2018, 19h47

re
d'apres toi c'est pas contradictoire ca

Code :

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

 macolor = ActiveCell.Interior.color

si la selection est une cellule tu risque pas de taper sur tes shapes (voir demo animée)

**ninon** · 08/10/2018, 20h26

Envoyé par patricktoulon

re
d'apres toi c'est pas contradictoire ca

Code :

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

 macolor = ActiveCell.Interior.color

si la selection est une cellule tu risque pas de taper sur tes shapes (voir demo animée)

j'ai bien précis :

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

donc, on récapitule
j'ai une variable maColor
lorsque je passe sur K8, qui est une cellule avec un fond coloré, le code

Code :

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

 maColor = ActiveCell.Interior.color

enregistre la couleur

Quelques lignes de code plus bas, le code

Code :

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

Selection.ShapeRange.Fill.ForeColor.RGB = maColor

ne fonctionne pas, ma shape est blanche.

Il en est de même pour

Code :

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

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

, ma shape est blanche.

Pourtant, ça fonctionne chez toi. Est-ce que c'est parce que chez moi, ce sont des formes libres (des cartes, images vectorielles) et non des formes géométriques ?

**patricktoulon** · 08/10/2018, 20h41

re
donc je recapitule moi aussi

donc, on récapitule
j'ai une variable maColor,
lorsque je passe sur K8, qui est une cellule avec un fond coloré, le code

Code :

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

maColor = ActiveCell.Interior.color

enregistre la couleur

Quelques lignes de code plus bas, le code

A QUEL MOMENT AVANT LA LIGNE CI DESSOUS TU SELECTIONNE TA/TES SHAPES

Code :

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

Selection.ShapeRange.Fill.ForeColor.RGB = maColor

ne fonctionne pas, ma shape est blanche.

c'est plus clair pour toi la

**ninon** · 08/10/2018, 20h43

AUTANT POUR MOI ! le code simplifié fonctionne maintenant que j'ai enquiquiné tout le monde avec ça !

Désolée de vous avoir fait perdre votre temps.

Il me reste la question suivante :

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

**patricktoulon** · 08/10/2018, 20h56

et bien les memes

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    With Selection.Interior
        Dim motif, pathcolor, couleur, TinAshde, patintAshde
        motif = .Pattern
        pathcolor = .PatternThemeColor
        couleur = .Color
        TinAshde = .TintAndShade
        patintAshde = .PatternTintAndShade
    End With
End Sub

**Theze** · 09/10/2018, 06h57

Bonjour,

Franchement là, ninon tu n'as pas fait trop d'efforts

:

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

extrait de l'aide pour la Propriété "PatternThemeColor" par exemple :

Renvoie ou définit un motif de couleur de thème pour un objet Interior.Variant en lecture-écriture.

Il suffit de lire (lecture-écriture) et de là, il est facile d'en déduire qu'on peut simplement en récupérer la valeur par Theme = PatternThemeColor !

**ninon** · 09/10/2018, 08h35

En fait, avant de vous demander de l'aide sur ce forum, j'ai bien essayé de faire comme cela, voici le code exact de mes dernières tentatives :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Macro1()
Dim motif, pathcolor, couleur, TinAshde, patintAshde
'
' Macro1 Macro
'
'initialisation des variables
motif = 0
pathcolor = 0
couleur = 0
TinAshde = 0
patintAshde = 0
 
    Range("K6").Select
 
    With Selection.Interior
        motif = .Pattern
        pathcolor = .PatternThemeColor
        couleur = .color
        TinAshde = .TintAndShade
        patintAshde = .PatternTintAndShade
    End With
 
    ActiveSheet.Shapes.Range(Array("carte-HLS")).Select
 
    With Selection.Interior
        .Pattern = motif
        '.PatternThemeColor = pathcolor
        .color = couleur
        .TintAndShade = TinAshde
        '.PatternTintAndShade = patintAshde
    End With
 
 
End Sub

Ma carte prend bien la couleur, mais pas le motif.

Et comme la macro plante sur .PatternThemeColor et sur .PatternTintAndShade (erreur d'éxécution 1004 - Erreur définie par l'application ou par l'objet), je les ai mis en commentaire.

Est ce pour cela que ma carte HLS (Hauteville Lompnes) ne prend que la couleur, sans le motif ?

Voici le résultat :