Bonjour le forum,
Je voudrais ajouter dans ThisWorkbook une instruction pour faire effacer un commentaire dans colonnes G à I (fusionnées) si j'efface dans colonne B ou E une somme (voir macro ci-dessous)
Je ne sais où le placer.
merci d'avance pour vos éventuels retours
Bon WE à tous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim Ladate As Date
 
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 7) = "Charges" Then
    If Not Intersect(Range("B8:B70,E8:E70"), Target) Is Nothing Then
      If Target.Interior.ColorIndex = 2 Then
        ' Si la colonne B et la colonne E est vide on efface la date
        Range("A" & Target.Row) = IIf(Range("B" & Target.Row) & Range("E" & Target.Row) = "", "", Date)
      End If
    End If
  End If
  Application.EnableEvents = True
End Sub