comptage de données suite à filtre

[alca666]

Bonjour

je cherche à compter le nombre de ligne après avoir appliqué une filtre pour recopier les données filtrées sur un autre onglet or VBA m'écrit toutes les données sans tenir compte du filtre !!auriez vous une solution?
Merci

Sub transfert_terrain()

'quelle est la session parametree
Sheets("IMP").Select
session = Cells(7, 6)

' selection des stagiaires de la session parametree
Sheets("stagiaires").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=session & "*"

nbligne = (Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Count)

' ecriture des feuilles de route nominativement
For cpt = 2 To nbligne

nom = Cells(cpt, 2)
prenom = Cells(cpt, 3)
inspecteur = Cells(cpt, 17)
commentaires = Cells(cpt, 40)

Sheets("feuille route").Activate
Cells(7, 2) = nom
Cells(9, 2) = prenom
Cells(11, 2) = inspecteur
Cells(13, 2) = commentaires

' et impression des plannings par phase
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
FILTRE_terrain
Sheets("stagiaires").Select
Next cpt

End Sub

 

[Staple1600]

Re : comptage de données suite à filtre

Bonjour




Inspire toi de ce fil
https://www.excel-downloads.com/threads/transfert-de-lignes.89356/