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