Erreur dans un code VBA

Version imprimable

Bonjour,

J'ai créé un code qui me permet de copier des cellules (sur la feuille 'données' ) selon des critères pour les coller dans une autre feuille '2007'.
Tout se déroule bien, elles se collent bien sur la feuille '2007', mais ensuite excel me marque "erreur paste", et ne veut plus executer la suite de ma macro.

Je vous met une partie du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sheets("donnees").Select ActiveSheet.Range("$A$3:$AU$140").AutoFilter Field:=1, Criteria1:="FINI" Range("A4:AU151").Select Selection.Copy Sheets("2007").Select Sheets("2007").Activate ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row + 1 Range("A" & ligne).PasteSpecial xlPasteValues ligne = [a65000].End(xlUp).Row + 1 ActiveSheet.Paste Sheets("donnees").Select
Ensuite je dois retourner sur la feuille '2007' pour effacer les champs copier, mais il bug.

Pouvez-vous m'aider?

Merci

Salut
Code:

1 2 3 4 5 6 7 Sheets("donnees").Select ActiveSheet.Range("$A$3:$AU$140").AutoFilter Field:=1, Criteria1:="FINI" Range("A4:AU151").Copy Sheets("2007").Activate ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row + 1 Range("A" & ligne).PasteSpecial xlPasteValues ligne = [a65000].End(xlUp).Row + 1
si j'ai bien compris, jusqu'à là, c'est bon ? c'est à l'exécution de :
Code:

1 2 ActiveSheet.Paste Sheets("donnees").Select
que le problème apparaît ?

je ne comprends pas ta macro :
tu copies une plage de "données" => ok
tu la colles en première ligne suivant la cellule "*" en A (uniquement les valeurs)=> ok
tu recolles ta plage sur la feuille => ??? comme je n'ai pas l'intégralité de la macro, je ne connais pas la plage actuellement sélectionnée. le paste colle à partir de la sélection actuelle, si c'est une cellule, dans la sélection actuelle si elle comporte plus d'une cellule. Si tu as 2 cellules de sélectionnées, par exemple, excel déclenchera une erreur, puisque les cellules (lignes/colonnes) sont différentes entre la sélection et ce qu'on veut coller
une solution serait de re-selectionner la bonne cellule
à moins, que ce ne soit une erreur : le .Pastespecial fait l'action de coller.
tu utilises range(x).pastespecial ... pour coller en/à partir de x
select x
activesheet.paste pour coller en/à partir de x
c'est 2 manières différentes d'exécuter (presque, suivant les arguments utilisés) les mêmes actions.
A+

19/12/2007, 10h59
steevassie

Merci de ton aide Gorfael.

En fait une fois le collage effectué sur la feuille '2007', je veux retourné sur la feuille 'données' pour effacer les cellules copiées.
Il n'y a qu'un collage à faire

Salut

Code:

1
2
3
4
5
6
7
8
9
10
Sheets("donnees").Select
ActiveSheet.Range("$A$3:$AU$140").AutoFilter Field:=1, Criteria1:="FINI"
Range("A4:AU151").Select
Selection.Copy
Sheets("2007").Select
Sheets("2007").Activate
ligne = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row + 1
Range("A" & ligne).PasteSpecial xlPasteValues
ligne = [a65000].End(xlUp).Row + 1
Sheets("donnees").Select

il suffit de supprimer le 2me paste
A+