erreur '1004'

Question

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

whitelegend · Answer

sebypoint,

Ton message manque un peu d'infos... souhaite tu copier les cellules masquées par le filtre etc...

dans tout les cas ce qui pose problème c'est le ".EntireColunm"

Tu peux essayer avec

Range("X7:AB579").SpecialCells(xlCellTypeVisible).Select

Cette ligne à pour but de sélectionner toutes cellules visibles seulement suite à un filtre. ( correspondant à la commande raccourci "F5" sous Excel puis option " cellules visibles uniquement")

J'espère que ca pourra t'aider.

LC

Erreur '1004'

1 réponse

Votre réponse

Discussions similaires