Mise en forme conditionnelle mais seulement les couleurs

tupinius

XLDnaute Nouveau
Bonjour,
En utilisant la macro suivante, je parviens à réaliser une mise en forme conditionnelle en appliquant le format des cellules "Couleurs" aux cellules "Statut". Hors, j'aimerais seulement appliquer la couleur des cellules "Couleurs" aux cellules "Statut", et non pas les bordures, la taille de police, etc... Comment puis-je modifier le code ? J'ai essayé PasteColors à la place de PasteFormats mais ça ne marche pas :( Merci pour votre aide !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([ChampMFC], Target) Is Nothing Then
Application.EnableEvents = False
On Error Resume Next
[Couleurs].Find(Target, LookAt:=xlWhole).Copy
Target.PasteSpecial Paste:=xlPasteFormats
Application.EnableEvents = True
End If
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 496
Messages
2 088 979
Membres
103 996
dernier inscrit
KB4175