Discussion :

[Denis_67]

Bonjour,

je cherche à copier coller des cellules filtrées.

J'utilise la séquence suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Rows.AutoFilter Field:=1, Criteria1:="MonChoix"
Range("A2", Cells(lastRow, 14)).SpecialCells(xlCellTypeVisible).Copy

Malheureusement si MonChoix ne figure pas en ligne 2 le range("A2") n'est pas visible.--> Erreur 1004.
Si en débug je remplace A2 par Ax, x étant le N° de la première ligne où se trouve Monchoix, ça marche.
Cela voudrait dire qu'il faille d'abord faire un find de MonChoix pour obtenir le N° de la ligne ?
Ou alors prendre la ligne de titre et la supprimer après ?

Merci pour vos lumières
Denis

[Marc-L]

Bonjour …

Encore une fois, SpecialCells est inutile car Range.Copy gère déjà uniquement les cellules visibles !

Ensuite comme disponible dans de nombreux exemples dans ce forum,
il suffit de commencer par pointer l'intégralité de la plage du tableau via With par exemple avant de filtrer
puis une fois le filtre en place rendre invisible la ligne de titres puis effectuer une simple copie …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[joe.levrai]

Bonjour,

voilà pour la fiabilité

https://www.developpez.net/forums/d1...e/#post9866820
https://www.developpez.net/forums/d1...e/#post9963102

[Denis_67]

Merci, en plus j'avais raconté une bêtise, c'est mon lastrow qui était faux.
Denis

[Marc-L]

Même sans ce nom associé juste en pointant l'intégralité de la plage du tableau,
comme déjà démontré à maintes reprises dans ce forum …