copier la couleur d'une celluel dans une forme

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #2

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/

 

Vote positif 0 Vote négatif

N

nicoloc

Guest

• 30 Janvier 2008

• #3

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

Cliquez pour agrandir...

je n'obtiens pas la meme couleur...

 

Dernière modification par un modérateur: 30 Janvier 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #4

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é

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #5

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

Re

message édité car propos érronés

 

Dernière édition: 30 Janvier 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #6

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

Re

Après quelques tatonnements voici une solution qui fonctionne

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Janvier 2008

• #7

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

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

N

nicoloc

Guest

• 30 Janvier 2008

• #8

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

Merci pour la soluce 🙂
Merci pour le liens 🙂

 

Vote positif 0 Vote négatif