Adapter le nombre de ligne

[nicollivier]

Bonjour,

Dans un fichier excel j'ai un onglet où j'ai une base de données, et dans divers autres onglets j'extrais seulement les informations suivant selon divers critères.

Mon "problème" est que le tableau de résultat peut avoir de nombreuses lignes vides.

Est-ce qu'il est possible de faire en sorte que le nombre de ligne s'adapte au besoin?

Merci

Nicolas

 

[mapomme]

Re : Adapter le nombre de ligne

Bonjour nicollivier,

Est ce quelque chose comme ça ?

Code dans module1:

Sub Macro1()
Dim xrg As Range
    Range("A4:B30").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[D1:D2], CopyToRange:=[F5:G5], Unique:=True
    'effacement des bordures depuis la ligne 5 jusqu'au bas de la feuille
    Range(Cells(5, "f"), Cells(Rows.Count, "g")).Borders.LineStyle = xlLineStyleNone
    'Recherche de la dernière cellule de la zone résultat du filtre avancé
    Set xrg = Range("F" & Rows.Count).End(xlUp)
    'application des bordures à la zone résultat du filtre avancé
    Range("F5:G" & xrg.Row).Borders.LineStyle = xlContinuous
End Sub