Si cell contien 3 Effacer Ligne, Sub Worksheet_Change(ByVal

Bonjours et merci de votre aide

Je cherche une méthode pour incruster un code automatique qui en fonction de la valeur de la cellule ,

certaine cellule de cette ligne serons supprimer.

J'aimerai un code qui ferai donc que

si la cellule B4=3

Supprimer les cellules c4 e5 f5 g5 et i5

Je dispose déjà dun code VB avec Sub Worksheet_Change(ByVal Target As Range)

Sachant que on ne peut pas en mettre 2

Mais j'aimerai l'appliquer quand même en automatique au moment ou une valeur change ou on clique sur une cellule

Des idée ?

Merci beaucoup pour votre aide.

Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    Temp# = Target.Row
    Cells(Temp#, 6) = 60
    Call RunOnTime
  ElseIf Target.Row = Temp# And Target.Column = 7 Then
  'ElseIf Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Target.Offset(0, 2) = Now     'Date
  End If
End Sub

Salut,

Tu peux mettre autant de conditions que tu désires dans ton code "Worksheet_Change". Essai le code complété ci-dessous. Il est difficile de t'en dire plus sans voir ton fichier

Public Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    Temp# = Target.Row
    Cells(Temp#, 6) = 60
    Call RunOnTime
  ElseIf Target.Row = Temp# And Target.Column = 7 Then
  'ElseIf Not Application.Intersect(Target, Range("G:G")) Is Nothing Then
    Target.Offset(0, 2) = Now     'Date
  End If

      If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
        If Target = 3 Then Range("C4,E5,G5,I5").ClearContents
    End If

End Sub

Cordialement.

Merci très apprécier.