recopier la couleur de fond d'une cellule

[pascal21]

bonjour le forum
grâce à une macro de ce cher didier
https://www.excel-downloads.com/threads/mise-en-forme-conditionnelle-a-5-niveaux.67072/
j'arrive maintenant à obtenir plus de 4 formats conditionnels dans un classeur
j'ai donc une cellule qui contient ce fameux format mais je cherche le moyen de recopier la couleur de fond appliquée,dans les cellules voisines
ex si a1 = jaune alors b1;c1,d1,etc.. = jaune
j'ai essayé avec le pinceau mais si la cellule change de couleur ça ne suit pas
merci

 

[wilfried_42]

Re : recopier la couleur de fond d'une cellule

bonsoir pascal

essaye ca sans garantie

range("$B$1:$D$1").interior.colorindex = range("A$1").interior.colorindex

 

[pascal21]

Re : recopier la couleur de fond d'une cellule

BONJOUR ET MERCI
ça ne fonctionne pas
j'ai recopier le code comme celà

Option Explicit
Sub COULEUR()
Range("$B$1:$D$1").Interior.ColorIndex = Range("A$1").Interior.ColorIndex
End Sub

est-ce correct?
merci

 

[wilfried_42]

Re : recopier la couleur de fond d'une cellule

re

dis moi, c'est une mfc bidouillée tu as dis, comment se presente la cellule A1, comment est elle mise en couleur, est - elle physiquement colorée

envoie nous un bout de ton fichier sans renseignements sensibles

a te lire

 

[pascal21]

Re : recopier la couleur de fond d'une cellule

la couleur de la cellule a1 vient d'une mfc
ce qu'il faudrait c'est une formule de mfc pour les cellules voisines
genre si a1 = jaune alors jaune
mais voila! il y a plus de 4 couleurs possibles
faut-il recopier le code de didier et l'adapter pour les cellules voisines

 

[wilfried_42]

Re : recopier la couleur de fond d'une cellule

re

je te renvoie le fichier, dans la page test tu double clique dans une cellule et les caracteristique de la cellule se retrouve en a22, de a1 à a5 tue recuperes les valeurs font

le code vba est tres court

à te lire

 

[wilfried_42]

Re : recopier la couleur de fond d'une cellule

re:

tu peux adapter ce code avec une boucle et un offset et directement mettre les x cellule à droite de la meme couleur

en dessous de

.cells(L,2).copy

For i = 0 To 1 ' 1 = nombre de cellule à droite
Range(Target.Address).Offset(0, i).Select
V = Selection.Formula
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Selection.Formula = V
Next i
Range(Target.Address).Select

bonne soirée