Macro boucle (suppression de ligne selon critère)

[julien974]

Bonjour,

Je souhaiterais créer un boucle (While...Wend par exemple) de suppression de ligne en VBA selon des critères.

Je m'explique :

Je voudrais supprimer les lignes de la feuille extraction dont les valeurs de la colonne poste sont identiques aux critères de la feuille Critères. (ci joint le fichier)

Merci de votre aide précieuse,

Juli3n974

 

[Cousinhub]

Re : Macro boucle (suppression de ligne selon critère)

Bonjour,
une solution sans boucle
tu peux mettre autant de critères que tu veux en colonne I et J
Regarde si cela te convient

 

[julien974]

Re : Macro boucle (suppression de ligne selon critère)

Merci pour ta réponse.

Par contre je souhaiterais que cette suppression se fasse quelque soit le nombre de lignes mais aussi que les critères soient dans une autre feuille.

Merci beaucoup,

Julien974

 

[Cousinhub]

Re : Macro boucle (suppression de ligne selon critère)

Re-,
le fichier modifié

Tu entres les critères en feuille 2

Par contre je souhaiterais que cette suppression se fasse quelque soit le nombre de lignes

C'est déjà prévu, l'extraction sur toute la base, entre A1 et Gxx, juste modifié la ligne :

    Range("A2:G" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

 

[julien974]

Re : Macro boucle (suppression de ligne selon critère)

Merci collègue,

Je souhaiterais maintenant compter le nombre de lignes (excepté la première) et de d'indiquer ce nombre tout en bas de la colonne prèl (G).

Salutations,

Julien974

 

[Cousinhub]

Re : Macro boucle (suppression de ligne selon critère)

Re-,
il serait préférable de faire toutes tes demandes dès l'énoncé.....😉

rajoute en bas du code, juste avant End sub :

Range("G" & [G65000].End(xlUp).Row + 1) = Application.CountA(Range("G2:G" & [G65000].End(xlUp).Row))

 

[julien974]

Re : Macro boucle (suppression de ligne selon critère)

Merci beaucoup, ç fonctionne!

Pour tout te dire, je suis en stage et je découvre VBA... Pas simple qd tu n'as aucune notion!

J'aurais srmt besoin de l'aide de toute la communauté d'ici les semaines qui viennent. (surtout en ce qui concerne les boucles...)

A bientôt,

Julien974