copier lignes filtrées

[nemo]

Bonjour
Je ne comprends pas pourquoi mon code ne fonctionne pas.
Je voudrais qu'il me selectionne var nb lignes d'une page filtrée pour les coller dans une autre feuille (var feuille).
J'ai un message d'erreur "pas de cellules correspondantes


nb = Sheets("commande").Range("C19")
Dim feuille As String
feuille = Sheets("commande").Range("C21")
Sheets("test").Range("A2:K" & 1 + nb).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(feuille).Range("A65536").End(x lUp).Offset(1, 0)
For n = 1 To nb
Sheets("test").Range("K" & 1 + n) = "servi"
Next n

Qui peut m'aider ?
Merci.

 

[Dan]

Re : copier lignes filtrées

Bonjour,

...var nb lignes...

Que veux tu dire là ?
Place plutôt un fichier sans données confidentielles avec un mot d'explication.

A te lire

 

[MichelXld]

Re : copier lignes filtrées

bonjour cher Dan

J'ai déja répondu ici:

https://www.excel-downloads.com/threads/coper-n-premieres-lignes-dune-feuille-filtree.70832/

Worksheets("Feuil1").AutoFilter.Range. _
        SpecialCells(xlCellTypeVisible).Copy

Bonne journée
MichelXld

 

[Dan]

Re : copier lignes filtrées

Bonjour Michel,

Merci d'être passé.
Nemo tu nous fais quoi là ??? Pourquoi pas rester sur le premier fil

a+