Autres Si en G on trouve "COMPL" alors colorer de vert F (XL 2007)

anthoYS

XLDnaute Barbatruc
Bonjour,

la cellule correspondante

Voir image jointe le résultat attendu sachant que voici le code présent actuellement :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 7 Then Exit Sub
    If Not IsEmpty(Target) Then
        Target.Offset(0, 1) = Date
        Target.Offset(0, -1).Interior.color = vbYellow
        Target.Offset(0, -1).Font.Bold = True
    Else
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, -1).Interior.color = xlNone
        Target.Offset(0, -1).Font.Bold = False
    End If
End Sub

Merci !
 

Pièces jointes

  • 2020-03-30_173246.png
    2020-03-30_173246.png
    1.4 KB · Affichages: 16

Discussions similaires

Statistiques des forums

Discussions
312 215
Messages
2 086 326
Membres
103 180
dernier inscrit
Vcr