copier la couleur d'une celluel dans une forme

[nicoloc]

bonjour, je souhaite realiser une macro qui reprend la couleur d'une cellule pour colorier une forme.
je rencontre un pb avec colorindex des cellules dont les couleurs sont représenté par des valeurs <> des schemecolor des formes .
Merci de votre aide

 

[Staple1600]

Re : copier la couleur d'une celluel dans une forme

Bonjur



Je te suggère de rester dans ton premier fil

https://www.excel-downloads.com/threads/donner-la-valeur-dun-objet-a-une-cellule.89486/

 

[nicoloc]

Re : copier la couleur d'une celluel dans une forme

ce n'etait pas mon fil, mais je vais suivre ton conseil est etudier celui la 🙂
Merci
***********************************************************
apres avoir lu les post , cela ne repond pas a ma demande.
mon probleme est que quand je fait

Selection.ShapeRange.Fill.ForeColor.SchemeColor = cells(1,1).Interior.ColorIndex

je n'obtiens pas la meme couleur...

 

[Staple1600]

Re : copier la couleur d'une celluel dans une forme

RE



Excuse moi, je viens de mettre mes lunettes

niiiiico nicoloc c'est proche, mes pauvres vieux yeux ont confondu

Désolé

 

[Staple1600]

Re : copier la couleur d'une celluel dans une forme

Re

message édité car propos érronés

 

[Staple1600]

Re : copier la couleur d'une celluel dans une forme

Re

Après quelques tatonnements voici une solution qui fonctionne

Sub GetRGB(RGB As Long, ByRef Red As Integer, _
    ByRef Green As Integer, ByRef Blue As Integer)
    'Auteur de cette fonction: Chip Pearson
    Red = RGB And 255
    Green = RGB \ 256 And 255
    Blue = RGB \ 256 ^ 2 And 255
End Sub

Sub couleurCELLULE_SUR_FORME()
Dim R As Integer
Dim G As Integer
Dim B As Integer
GetRGB Range("A1").Interior.Color, R, G, B
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(R, G, B)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub

 

[BOISGONTIER]

Re : copier la couleur d'une celluel dans une forme

Bonjour,

ActiveSheet.Shapes.AddShape(msoShapeOval, 10, 10, 60, 50).Name = "MonShape"
ActiveSheet.Shapes("MonShape").OLEFormat.Object.Interior.ColorIndex = [A1].Interior.ColorIndex
ActiveSheet.Shapes("MonShape").OLEFormat.Object.Characters.Text = "Texte dans un shape"

JB
Formation Excel VBA JB

 

[nicoloc]

Re : copier la couleur d'une celluel dans une forme

Merci pour la soluce 🙂
Merci pour le liens 🙂