suppression ligne sous condition

clapas · 22 Mai 2013

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 · 23 Mai 2013

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) :

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 · 23 Mai 2013

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+

suppression ligne sous condition

clapas

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

clapas

XLDnaute Nouveau

Discussions similaires

suppression ligne sous condition

clapas

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

clapas

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency