Discussion :

[nicola13]

bonjour,

je souhaite faire une macro qui copie et colle des cellules filtrés (uniquement les visibles) sur excel.

la commande se trouve dans un classeur et je souhaite copier des cellules filtrées d'un autre classeur, mais j ai toujours le même problème il ne veut pas électionner les cellules quand il y a un filtre.

ci dessous mon code simplifié:

'j'active la premiere feuille (avec filtre)
Sheets("Sheet1").Select

'je selectionne ma plage de cellules et c est à ce moment qu il bug alors avec sans filtre je n ai aucun problème!

Range("A1:O4").Select

Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

J espere que je suis assez clair et que quelqu un peut m aider .

merci pour votre aide

nico

[nicola13]

pb résolu,

pour ceux qui serait interressé:
il faut activé la feuille avec les cellules filtrées et pour pouvoir les selectionner:

Sheets("sheet 1").Activate

Dim Cel As Range
With ActiveSheet
Set Cel = .Range("A1").CurrentRegion
.Range(.Cells(Cel.Row, 1), Cel.Offset(1, 0)).Select
End With


je ne suis pas sur que ca soit la meilleure solution mais ca fonctionne