Copier la couleur d'une cellule dans une autre

[jed]

Bonjour à tous,
Voilà ce que j'aimerai faire :
J'ai un tableau avec des cellules (une cinquantaine) qui change de couleur (format conditionnel) en fonction de la valeur de la cellule. J'aimerai copier ces couleurs ailleurs dans ma feuille mais avec le format conditionnel cela ne fonctionne pas !!(Copier/collage special.. format)
Pas moyen de copier la couleur ailleurs avec le "interior.colorindex".

Auriez vous une astuce vba??

Exemple : Cellulle A1-A3 : CI= Bleu, BR= Jaune, CI=Bleu.
J'aimerai copier Bleu/Jaune/Bleu en H1-H3.

Merci de votre aide .

 

[TheLio]

Re : Copier la couleur d'une cellule dans une autre

Hello,
et bienvenue sur xld
Une piste : si tu veux copier le format conditionnel

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Ou alors pas ça du tout
A++
Lio

 

[tototiti2008]

Re : Copier la couleur d'une cellule dans une autre

Bonjour à tous,

à priori, le

Copier/collage special.. format

reprend normallement les mises en formes conditionnelles. Le mieux serait de regarder la mise en forme conditionnelle résultante pour comprendre pourquoi elle ne fonctionne pas...

 

[jed]

Re : Copier la couleur d'une cellule dans une autre

Merci pour vos réponses mais
Le pastespecial ne fonctionne pas. Si ma cellule est bleue parcequ'il y a "CI" dedans le collage ne donne pas la couleur bleue:-(

Voici mon bout de code qui ne fonctionne pas
Range("D6:F6").Select
Selection.Copy
Range("J9").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _False, Transpose:=False
Application.CutCopyMode = False

End Sub


J'aimerai ajouter un truc de ce genre pour récupérer la couleur de la cellule D6
Ca fonctionne pour la couleur de la cellule D6 mais comment faire pour avoir la couleur des autres deux cellules :

Selection.Interior.ColorIndex = Cells("D6").Interior.ColorIndex

Avec une boucle ???

Je galère ...

 

[tototiti2008]

Re : Copier la couleur d'une cellule dans une autre

Re,

et sinon, après avoir fait le PasteSpecial, es-tu allé sur une cellule résultante (qui ne reprend pas les couleurs, on l'a bien compris) pour aller voir dans le Menu Format - Mise en forme conditionnelle pour

comprendre pourquoi elle ne fonctionne pas

??

 

[jed]

Re : Copier la couleur d'une cellule dans une autre

Re,

et sinon, après avoir fait le PasteSpecial, es-tu allé sur une cellule résultante (qui ne reprend pas les couleurs, on l'a bien compris) pour aller voir dans le Menu Format - Mise en forme conditionnelle pour comprendre pourquoi elle ne fonctionne pas


??

Merci pour ton aide.

Je me suis fait mal comprendre :
Pour la recopie je ne veux que la couleur des cellules sans pour autant faire une mfc. Les cellules cibles seront de la même couleur sans les valeurs ni la mfc.

 

[TheLio]

Re : Copier la couleur d'une cellule dans une autre

Hello,
Tu peux t'inspirer de ceci:

Sub Supp_MFC()
Dim lglig As Long
Application.ScreenUpdating = False
' Boucle de la ligne 7 à la dernière
For lglig = 7 To Range("F65536").End(xlUp).Row
Range("A" & lglig & ":F" & lglig).FormatConditions.Delete
Select Case Range("F" & lglig).Value
' Bleu
Case Is = 1
Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 5
Range("A" & lglig & ":F" & lglig).Font.Bold = True
' Jaune
Case Is = 2
Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 9
Range("A" & lglig & ":F" & lglig).Font.Bold = True
' Rouge
Case Is = 3
Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 3
Range("A" & lglig & ":F" & lglig).Font.Bold = True
' Noir
Case Else
Range("A" & lglig & ":F" & lglig).Font.ColorIndex = xlAutomatic
Range("A" & lglig & ":F" & lglig).Font.Bold = False
End Select
Next lglig
Application.ScreenUpdating = True
End Sub

Que j'ai utilisé pour supprimer des MFC (trop lourdes) et attribuer la couleur de police selon une valeur de cellule
A++
Lio

 

[jed]

Re : Copier la couleur d'une cellule dans une autre

Merci de votre aide,
J'essaie plein de choses mais rien ne fonctionne.
Je ne pensais pas que c'était aussi dur de copier seulement la couleur sans la mfc.
Dans le coller special il y a une possibilité "format" mais ca sert a rien dasn une mfc !
Bon je renonce de faire en automatique, vais le faire en manuelle.
Merci encore.

 

[TheLio]

Re : Copier la couleur d'une cellule dans une autre

Re,
ne baisse pas les bras...
Joins un petit bout de fichier avec le résultat que tu aimerais obtenir
Je suis sur que quelqu'un pourra t'aider
A++
Lio