Copier des lignes filtrées sous VBA
Bonjour à tous,
J'ai fait une petite macro (de débutant en VBA) qui fait des filtres sur plusieurs colonnes d'un tableau de données. Mon résultat se présente donc avec des lignes cachées (filtrées) et d'autres lignes visibles qui répondent aux conditions des filtres.
Je voudrais sélectionner avec ma macro les 10 premières lignes de mon résultat et de les copier dans une feuille de synthèse (voir la macro ci-bas). Mais l'ennui c'est qu'il prend en compte les lignes cachées et copie tout !
Y a t il moyen d'arranger ça ? merci d'avance
PS : dans mon exemple, la sélection des 10 premières lignes de mon résultat correspond à (Range("B2:M72").Select)
Range("B2:M72").Select
Selection.Copy
Sheets("SYNTHèSE").Select
Range("A153").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Bonjour à tous,
J'ai fait une petite macro (de débutant en VBA) qui fait des filtres sur plusieurs colonnes d'un tableau de données. Mon résultat se présente donc avec des lignes cachées (filtrées) et d'autres lignes visibles qui répondent aux conditions des filtres.
Je voudrais sélectionner avec ma macro les 10 premières lignes de mon résultat et de les copier dans une feuille de synthèse (voir la macro ci-bas). Mais l'ennui c'est qu'il prend en compte les lignes cachées et copie tout !
Y a t il moyen d'arranger ça ? merci d'avance
PS : dans mon exemple, la sélection des 10 premières lignes de mon résultat correspond à (Range("B2:M72").Select)
Range("B2:M72").Select
Selection.Copy
Sheets("SYNTHèSE").Select
Range("A153").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Dernière édition: