Une valeur de cellule change les valeurs des autres cellules sont effacées

Bonjour tout le monde,

Je ne suis pas une experte en VBA donc j'aurai besoin de votre aide pour trouver un code.

Je souhaiterai qu'à chaque fois qu'une cellule change les valeurs après soient effacées. C'est à dire si la valeur de H10 change les valeurs de H11 à H70 doivent être effacées, si la valeur de H11 change les valeurs de H12 à H70 doivent être effacées et ainsi de suite.

Quelqu'un sait comment je pourrai faire ça s'il-vous-plaît ?

Merci .

Bonjour Yas, bonjour le forum,

Curieux mais...

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("H10:H70")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row + 1, "H"), Cells(70, "H")).ClearContents
Application.EnableEvents = True
End Sub

Bonjour yas13579, le forum,

Un essai....

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim col As Integer, lig As Integer, dl As Integer

 dl = 70

  If Not Application.Intersect(Target, Range("H10:H" & dl)) Is Nothing Then
   If Target.Count > 1 Then Exit Sub
    cancel = True
     col = Target.Column
     lig = Target.Row
      If lig = 70 Then Exit Sub
       Range(Cells(lig + 1, col), Cells(dl, col)).ClearContents
  End If
End Sub

Cordialement,

[EDIT] : Bonsoir ThauThème

Bonjour ThauThème, Bonjour xorsankukai,

Merci beaucoup pour votre aide, vos deux solutions marche. C'était vraiment rapide merciiiii