macro supprimer un certain nbr de lignes en fonction d'un comptage

[merguez59]

Bonjour

Je me rends compte que le titre de mon topic n'est pas très explicite.

J'ai un fichier dans lequel j'ai deux onglets.

L'onglet B est l'onglet dans lequel je rentre des valeurs qui sont amenées à être différentes chaque jour et qui remplissent un nombre de ligne différent à chaque fois.

L'onglet A reprend ces données avec un index equiv. Mais cette formule est étendue bien au delà de ce qui est nécéssaire.

Je vais enregistrer une macro qui dans un 1ere temps va copier/coller valeur l'onglet A, puis va effectuer un tri.
Ce tri sera éronné si je ne supprime pas les 0 (ou #n/a)

Je souhaite donc supprimer les lignes à 0

Etant donné que dans l'onglet B, avec un nbval, je peux compter le nombre de lignes renseignées.

Est-il possible de demander à une macro du supprimer les lignes en trop. En gros:

Rows(Sheets("B")ActiveCell.FormulaR1C1 = "=COUNTA(RC[-7]:R[4998]C[-7])":50000").Select
Selection.Delete Shift:=xlUp

Voici un fichier en exemple!

Merci d'avance, pour votre aidre

cordialement

 

[vgendron]

Re : macro supprimer un certain nbr de lignes en fonction d'un comptage

Hello

Avec ce code dans un module

Sub sup()
nbVal = Sheets("B").Range("H1")
Sheets("A").Range(Range("A" & nbVal + 3), Range("A" & nbVal + 3).End(xlDown)).EntireRow.Delete

End Sub

 

[merguez59]

Re : macro supprimer un certain nbr de lignes en fonction d'un comptage

Bonjour Merci pour ton aide!
C'est exactement ce que je cherchais
Bonne journée