Supprimer libgne sur cellule non vide

bonjour à toutes et à tous

je cherche une solution (voir exemple ) sur un classeur qui débute en A11 et se termine en Z500

je voudrais que lorsque la cellule est non vide en P la ligne soit supprimée de la feuil1

en vous remerciant par avance

Salut,

Une proposition dans le fichier ci-joint :

Sub aa()
Dim DerLig As Long, i As Integer

Application.ScreenUpdating = False

DerLig = Range("A" & Rows.Count).End(xlUp).Row

For i = 11 To DerLig
    If Range("P" & i) = "" Then Range("Q" & i) = "x"
Next i

Range("Q11:Q" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Range("Q:Q").ClearContents

End Sub

Ton fichier est quand même un peu minimaliste

Cordialement.

Bonjour,

Sub LIGNEvide()
Range("P11:P500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Cdlt

Re-bonjour Anaxagore, Salut Civo,

@ Civo

Selon moi, avec ton code, tu supprimes les lignes dont la colonne P ne contient aucun texte, alors que Anaxagore désire supprimer les lignes ‘lorsque la cellule est non vide en P’.

@ Anaxagore

Je remarque à l’instant que tu as peut-être de données dans les colonnes Q à Z également. Tu peux alors utiliser le code ci-dessous à la place du premier code proposé :

Sub aa()
Dim DerLig As Long, i As Integer

Application.ScreenUpdating = False

DerLig = Range("A" & Rows.Count).End(xlUp).Row

For i = 11 To DerLig
If Range("P" & i) = "" Then Range("BB" & i) = "x"
Next i

Range("BB11:BB" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Range("BB:BB").ClearContents

End Sub

Amicalement.

Bonjour Yvouille, Re les autres,

C'est vrai, autant pour moi j'ai lu en diagonale ou me manque une dose de café !

Désolé je tâcherai de faire attention aux énoncés.

Cdlt

Civo a écrit :

Désolé je tâcherai de faire attention aux énoncés.

Mon code aurait également dû te mettre la puce à l'oreille

Cordialement.

bonjour yvouille et civo

merci pour ta réponse yvouille.

mais y a t-il une solution sans passer par un bouton .

la ligne serait supprimer après validation .

en vous remerciant

Re,

Si tu m’avais indiqué clairement dès le départ ce que tu désirais, je serais probablement parti dans une autre direction.

Là j’ai simplement réadapté mon premier code à ta nouvelle demande.

A te relire.

bonsoir yvouille

merci beaucoup