effacer plusieurs cellules sous condition

[kinel]

bonjour le forum

je voudrais effacer automatiquement plusieurs cellules si la première est vide
ci joint fichier

merci de votre aide

Kinel

 

[Pierrot93]

Re : effacer plusieurs cellules sous condition

Bonjour,

essaye ceci, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
If IsEmpty(Target) Then
    Application.EnableEvents = False
    Target.Resize(, 4).ClearContents
    Application.EnableEvents = True
End If
End Sub

bon après midi
@+

 

[kinel]

Re : effacer plusieurs cellules sous condition

bonjour Pierrot

ça me semble correspondre mais je voudrais appliquer cette condition sur un nombre limité de lignes
par exemple sur les lignes de B4 à B44

 

[Pierrot93]

Re : effacer plusieurs cellules sous condition

Re,

modifie comme suit, ceci pour la colonne C comme dans ton fichier...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Or (Target.Row < 4 Or Target.Row > 44) Then Exit Sub
If IsEmpty(Target) Then
    Application.EnableEvents = False
    Target.Resize(, 4).ClearContents
    Application.EnableEvents = True
End If
End Sub

 

[kinel]

Re : effacer plusieurs cellules sous condition

génial

merci pierrot93

bonne fin d'année

Kinel