suppression ligne sous condition

[clapas]

Bonjour
j'ai un petit programme qui fonctionne assez bien mais pour l'améliorer il faudrait qu'en supprimant le contenu d'une seule cellule les saisies faites dans les cellules adjacentes soient supprimées sans avoir à sélectionner les cellules concernées.

Merci d'avance
Clapas

 

[job75]

Re : suppression ligne sous condition

Bonjour clapas, le forum,

Essayez dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, Range("C4:E" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
On Error Resume Next 's'il n'y a pas de constantes sur la ligne
For Each r In r 'si plusieurs cellules sont effacées
  If IsEmpty(r) Then r.EntireRow _
    .SpecialCells(xlCellTypeConstants).ClearContents
Next
End Sub

Edit : comme il y a On Error Resume Next, l'instruction If r Is Nothing Then Exit Sub n'est pas indispensable.

A+

 

[clapas]

Re : suppression ligne sous condition

merci de votre aide d'autant que je ne maitrise ps suffisamment le VBA et me contente souvent de modifications
A+