Afficher en gras la cellule qui se colore en jaune

Bonjour

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
    Else
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, -1).Interior.color = xlNone
    End If
End Sub

Merci

Cordialement

Bonjour,

Etrange ... ce code me dit quelque chose ...

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 beaucoup, oui c'est celui d'hier que tu as créer.

PyranaS9 a écrit :

Merci beaucoup, oui c'est celui d'hier que tu as créer.

Content que la modification te convienne ...