Copier coller la mise en forme
I
Bonjour
Je cherche une macro qui au moment du déclenchement :
Prends la couleur de remplissage de A1 et l'applique sur B2
La couleur de remplissage de A1 se fait via une mise en forme conditionnelle
Merci par avance pour votre aide
Je cherche une macro qui au moment du déclenchement :
Prends la couleur de remplissage de A1 et l'applique sur B2
La couleur de remplissage de A1 se fait via une mise en forme conditionnelle
Merci par avance pour votre aide
Bonjour,
Vous pouvez utiliser l'enregistreur de macros pour ce genre de macro.
Ci-après le code :
Sub CopierFormat()
ActiveSheet.Range("A1").Copy
ActiveSheet.Range("B2").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End SubEdit : excusez-moi j'ai probablement mal interprété votre demande. Si vous voulez copier la couleur sans les conditions, alors utilisez plutot :
Sub CopierCouleur()
ActiveSheet.Range("B2").Interior.Color = ActiveSheet.Range("A1").DisplayFormat.Interior.Color
End SubI
Merci beaucoup
Ce code fonctionne en effet !
ActiveSheet.Range("B2").Interior.Color = ActiveSheet.Range("A1").DisplayFormat.Interior.ColorAvez vous une idée pour que celui ci s'applique jusqu’à la ligne 500 ?
Si vous souhaitez copier, pour chaque ligne en colonne A, la couleur en colonne B, ligne +1 :
Sub CopierCouleur()
For i = 1 to 500
ActiveSheet.Range("B" & i+1).Interior.Color = ActiveSheet.Range("A" & i).DisplayFormat.Interior.Color
Next i
End SubSi vous souhaitez copier la couleur de A1 en B2 à B500 :
Sub CopierCouleur()
ActiveSheet.Range("B2:B500").Interior.Color = ActiveSheet.Range("A1").DisplayFormat.Interior.Color
End SubI
Cela fonctionne parfaitement
Merci beaucoup