probleme code copier coller données triées

5 réponses
Avatar
df
Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy des
cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe Worksheet
a échoué.

Je vous remercie par avance de votre aide

DF

5 réponses

Avatar
Daniel.C
Bonjour.
Le code ne pose pas de problème ici (XL2007)
Daniel
"df" a écrit dans le message de news:
fjau9e$hda$
Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy des
cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe
Worksheet a échoué.

Je vous remercie par avance de votre aide

DF






Avatar
df
Merci pour l'info



"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Le code ne pose pas de problème ici (XL2007)
Daniel
"df" a écrit dans le message de news:
fjau9e$hda$
Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy
des cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe
Worksheet a échoué.

Je vous remercie par avance de votre aide

DF










Avatar
df
Pour info


Pour que ce code fonctionne il a fallu que je passe par un collage spécial
(special paste)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks
:úlse, Transpose:úlse

Si quelqu'un peut m'expliquer cette étrangeté?

Merci et bonne journée





"df" a écrit dans le message de news:
fjavm5$i3c$
Merci pour l'info



"Daniel.C" a écrit dans le message de news:
%
Bonjour.
Le code ne pose pas de problème ici (XL2007)
Daniel
"df" a écrit dans le message de news:
fjau9e$hda$
Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy
des cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe
Worksheet a échoué.

Je vous remercie par avance de votre aide

DF














Avatar
FFO
Salut à toi

Même réponse que Daniel avec Excel 2003

Tente l'opération sur un classeur neuf celui-ci est peut être vérolé

Une idée comme ça


Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy des
cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe Worksheet
a échoué.

Je vous remercie par avance de votre aide

DF







Avatar
Fredo P.
Sub cop()
Feuil1.[b3:h25000].Copy Destination:þuil2.[b2]
End Sub

"df" a écrit dans le message de news:
fjau9e$hda$
Bonjour

j'ai un petit problème avec ce code

Sheets("Feuil1").Select
Range("b3:h25000").SpecialCells(xlCellTypeVisible).Select 'copy des
cellules visibles dans une feuille ou les données sont triées'
Selection.Copy
Sheets("Feuil2").Activate
Range("b2").Select
ActiveSheet.Paste

Excel me renvoie une erreur '1004' La methode Paste de la classe
Worksheet a échoué.

Je vous remercie par avance de votre aide

DF