anthoYS
XLDnaute Barbatruc
Bonjour,
la cellule correspondante
Voir image jointe le résultat attendu sachant que voici le code présent actuellement :
Merci !
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 !