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

[dogen]

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:

Code: Tout sélectionner

 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:

Code: Tout sélectionner

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....

[dubois]

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

[dogen]

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.

[dubois]

re,

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

non ! c'est pas + clair

Claude

[dogen]

Des images valant plus que des explications voici ce que je tache de réaliser:

La commande dans sont état initial:


Je rajoute mes articles, voilà ce que cela donne:


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.

[dubois]

Bonjour,

Code: Tout sélectionner

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

[dogen]

Merci Claude,
ca marche parfaitement!

[dubois]

Bonjour,
Pour solder le poste, c'est ici