Discussion :

[Un Internaute]

Bonjour le forum,
Je voudrais faire effacer du texte dans ligne G8 à I8 (fusionnée) si je fait suppr dans B8 ou E8
Code ci-dessous dans ThisWorKbook
Merci pour vos éventuels retours.
Bonne journée à vous tous
Cordialement

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  'Le chiffre 7 = Nombre de lettres du mot "Charges".On peut mettre 8 avec un espace après "Charges " pour une sécurité.
    If Not Intersect(Range("B8:B67,E8:E67"), 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

[Marc-L]

Bonjour !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If (.Address = "$B$8" Or .Address = "$E$8") And .Value = "" Then
            Application.EnableEvents = False
            [G8].ClearContents
            Application.EnableEvents = True
        End If
    End With
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Un Internaute]

Bonjour Marc-L,
Merci ça fonctionne
Bonne journée à toi
Cordialement