Discussion :

[steevassie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[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

[Gorfael]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+