Copie Lignes Filtrées

[Mattharm]

Bonjour,

J'ai lu la moultitude de thread sur ce thème et j'ai trouvé une formule qui fonctionne bien :

Worksheets("Liste").Range("A7:A65536").SpecialCells(Type:=xlCellTypeVisible).Copy Worksheets("Tmp").Range("A1")

Cependant à la place de mon A7, j'aimerais mettre

"A" & ligne_debut":A65536"

!
Une variable en d'autre termes, pour faire varier le début de la copie.

Il me plante à chaque fois ? Une idée ?

Merci
Mattharm

 

[job75]

Re : Copie Lignes Filtrées

Bonjour,
Il manque un & :

"A" & ligne_debut & ":A65536"

Il faut bien sûr définir avant ligne_debut

A+

 

[BOISGONTIER]

Re : Copie Lignes Filtrées

Bonjour,

Worksheets("Liste").Range("A" & ligne_debut & ":A65536").SpecialCells(Type:=xlCellTypeVisible).Copy Worksheets("Tmp").Range("A1")


ou

Sheets("Liste").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy Sheets("tmp").[A1]

JB
Formation Excel VBA JB

 

[Mattharm]

Re : Copie Lignes Filtrées

Bonjour,
Il manque un & :

"A" & ligne_debut & ":A65536"

Il faut bien sûr définir avant ligne_debut

A+

Autant pour moi 😉

Merci