Mise en forme conditionnelle

[gourdin]

Bonjour,

Je souhaite que des lignes changent de couleur lorsque dans une colonne les valeurs sont différentes

Voir exemple en fichier joint

Merci

 

[Theze]

Re : Mise en forme conditionnelle

Bonjour,

A mettre dans le module de ta feuille :

Dim Valeur As Double

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column <> 2 Then Exit Sub
    
    If Target.Value <> Valeur Then Target.Resize(1, 2).Interior.ColorIndex = 6
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Column <> 2 Or Target.Count <> 1 Then Exit Sub
    
    Valeur = Target.Value
    
End Sub

Hervé.

 

[gourdin]

Re : Mise en forme conditionnelle

Merci Hervé

Bonne fin de dimanche