Discussion :

[Un Internaute]

Bonsoir le forum
Dans cellule E6 j'ai ajouté 100 €. Si je fais Suppr pour supprimer le montant et les dates ça fonctionne bien (dates cellules D6 & F6)
Je fais de même dans H6 mais ça n'efface pas les dates G6 & I6 et la ligne non plus
Le tableau 1 sert que de relais cellule B2

Merci à vous pour vos éventuels retours
Cordialement

[Un Internaute]

Bonjour le forum
Voici la solution
Cordialement


Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Sortie
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
If Not Intersect(Target, Range("E4:E100,H4:H100")) Is Nothing Then
Lig = Target.Row
If Target = "" Then 'Si le montant a été éffacé, on efface le mois et la date
On Error Resume Next
If Target.Column = 5 Then
Range(Cells(Lig, "D"), Cells(Lig, "F")).ListObject.ListRows(Lig - 3).Delete
GoTo Sortie
End If
If Target.Column = 8 Then
Range(Cells(Lig, "G"), Cells(Lig, "I")).ListObject.ListRows(Lig - 3).Delete
GoTo Sortie
End If
Else 'Sinon on inscrit mois et date
Cells(Lig, Target.Column - 1) = UCase(Format(Date, "mmmm"))
Cells(Lig, Target.Column + 1) = UCase(Format(Date, "dddd dd mmmm yyyy"))
End If
ElseIf Not Intersect(Target, Range("F4:F100,I4:I100")) Is Nothing Then
Target.Offset(, -2) = UCase(MonthName(Month(Target)))
Target = UCase(Format(Target, "dddd dd mmmm yyyy"))
End If
Sortie:
Application.EnableEvents = True
End Sub