Erreur '1004'

[sebpoint]

Bonjour,
J'ai un probleme sur un fichier excel avec macro

J'ai l'erreur '1004'

Erreur d'execution '1004':
Impossible d'executer cette commande sur des selections multiples

En fait je veux copier les cellules selectionnées d'apres un filtre, et les coller ailleurs.

Voici une partie de mon code :

Else
If Cells(2, 3).Value = "5" Then
Range("X7:AB579").EntireColumn.SpecialCells(xlCellTypeConstants).Select
Range("X7:AB579").EntireColumn.SpecialCells(xlCellTypeConstants).Copy
Range("EL618").Select
ActiveSheet.Paste
End If

Merci de m'aider please, Help me...

Sébastien

 

[Guest]

Re : Erreur '1004'

Bonjour Seb,

Avec ceci cela devrait le faire:
X7:AB579 étant la plage filtrée

Range("X7:AB579").SpecialCells(xlCellTypeVisible).Copy Destination:=Range("EL618")

A+