Discussion :

[Kawabaumga]

Bonjour,

j'utilise le code ci joint pour copier des lignes dans un autre onglet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim xlErr As Excel.Worksheet
 
    Set xlErr = xlBook.Worksheets("Error")
    xlSheet.Rows(line).EntireRow.Copy
 
    MsgBox LineError
 
    xlErr.Rows(LineError).Select
    xlErr.Paste
    xlBook.Save
    Set xlErr = Nothing

xlSheet est ma Worksheet principal
XlBook mon classeur excel
LineError la ligne sur laquelle je dois coller (celle ci est incrémentée à chaque fois que je colle une ligne)

Au premier appel, tout fonctionne correctement mais au deuxieme passage j'obtiens cette erreur...
Erreur d'execution 1004: la méthode Select de la classe Range a échoué

[pgz]

Bonjour.

Tu copies dans le presse papier un range puis tu copies dans une feuille. Le pb pourrait venir de là.

Pourquoi ne pas copier directement

Code :

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

xlSheet.Rows(line).EntireRow.Copy xlErr.Rows(LineError)

Cordialement,

PGZ

[Kawabaumga]

Je ne savais pas qu'il était possible de copier directement dans une feuille/ligne

Merci pour les renseignements