Supprimer un groupe de lignes après recherche de critères

Hello,

J'ai le tableau suivant:

Ligne 13: "Désignation Prix Unitaire Qte Total"

Si j'insère un nouvelle article, il se met en ligne 14.

Si je rajoute un 2 ème article, la ligne 14 passe en 15 et le nouveau enregistrement se mets en ligne 14 etc...

Je souhaiterais exécuter une macro qui effacerait toutes ces lignes articles.

Du genre:

Effacer ligne 14 à dernière ligne remplie.

Ce test doit s'effectuer sur la colonne D14 qui contient la désignation de l'article.

Merci à ceux qui voudront bien m'aider.

EDIT:

J'ai trouvé ca:

 RowFin = Range("F65536").End(xlUp).Row + 0
    Range(Range("D14"), Range("G" & RowFin)).Select

Il faudrait maintenant selectionner les lignes de cette plage avant de les supprimer.

-- 01 Sep 2010, 16:44 --

En fait, plutot que de supprimer les lignes j'ai supprimé les cellules vers le haut avec ceci:

dernière = Range("D14").End(xlDown).Row
     Range(Range("D14"), Range("G" & dernière)).Select
 Selection.Delete Shift:=xlUp
    Range("B2").Select

Seul petit probleme, quand je protège la feuille il ne veut pas supprimer la plage alors qu'il veut bien supprimer les lignes de cette plage....

Bonsoir,

On a du mal à comprendre, tu parles de recherche de critères,

c'est à dire qu'on filtre suivant un critère et qu'on supprime

les lignes correspondantes aux critères,

c'est bien çà ?

le mieux serait de joindre un fichier avec annotations

Amicalement

Claude

Bonsoir Dubois,

J'aurais du écrire "critère" au singulier.

Le critère en question c'est la première cellule vide rencontrée après la cellule de départ.

Je n'ai pas encore la macro correspondante...

Voilà ce que j'aimerais faire:

On se positionne sur une cellule de départ, ici D14.

On recherche sur tout la colonne en dessous les cellules remplies.

Puis, on sélectionne de D14 à D... (dernière cellule remplie).

Nous voici donc avec une plage D14:D...

On sélectionne les lignes correspondant à cette plage et on les supprime.

J'espère avoir été plus clair.

re,

J'espère avoir été plus clair.

non ! c'est pas + clair

Claude

J'aimerais une macro qui sélectionne les lignes correspondants aux articles (comme ci dessus) et qui suppriment ces lignes pour remettre le bon de commande dans son état initial.

Bonjour,

Sub SupprimeLignes()
Dim Lg%
    Lg = Range("d65536").End(xlUp).Row
    If Lg < 14 Then Exit Sub
    Range("14:" & Lg).Rows.Delete
End Sub

Amicalement

Claude

Merci Claude,

ca marche parfaitement!

Bonjour,

Pour solder le poste, c'est ici