Discussion :

[Nagel Tha]

Bonjour,

Je m'arrache les cheveux depuis 2 jours sur ce problème : je veux copier une plage de 2 colonnes de nombre de lignes variables à la suite d'une plage de données sur une autre worksheet. J'ai tenté beaucoup de choses qui ont fonctionné à un moment parfois. J'ai rencontré 2 types d'erreur : erreur définie par l'objet et surtout "la méthode Copy a échoué".

Code :

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

1
2
3
 
Dim StartRow As Integer: StartRow = ThisWorkbook.Worksheets(2).Range("A:B").SpecialCells(xlCellTypeBlanks).Row
ThisWorkbook.Worksheets(1).Range("A11:B60").Copy ThisWorkbook.Worksheets(2).Range("A:B").Rows(StartRow)

Le code ci-dessus a fonctionné mais maintenant donne l'erreur "la méthode Copy a échoué".

Auriez-vous des idées ?

Merci

[Marc-L]

Bonjour,

en destination de copie indiquer juste la première cellule ! (le coin supérieur gauche)

 Feuil1.[A11:B60].Copy Feuil2.Cells(Rows.Count, 1).End(xlUp)(2)   …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[BENNASR]

bonsoir

Code :

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

1
2
3
4
5
Sub test()
Dim StartRow As Long
StartRow = ThisWorkbook.Worksheets(2).Range("A" & Rows.Count).End(xlUp).Row+1
ThisWorkbook.Worksheets(1).Range("A11:B60").Copy ThisWorkbook.Worksheets(2).Range("A:B").Rows(StartRow)
End Sub

[Marc-L]

'soir Ben !

T'as oublié de décaler d'une ligne car ainsi la dernière ligne de la feuille de destination est écrasée par la première recopiée !
(correction effectuée)

Jette aussi un œil au code de mon précédent message …

[RyuAutodidacte]

Hi
+1 Marc on va à l'essentiel

[Nagel Tha]

Merci beaucoup ! Je vais essayer dès demain (toujours pas de pc)

Edit :

J'ai réussi grâce à ta réponse Marc-L encore merci

Code :

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

1
2
3
 
ThisWorkbook.Worksheets(1).Range("A11:B60").Copy ThisWorkbook.Worksheets(2).Cells(Rows.Count, 1).End(xlUp)(2)
ThisWorkbook.Worksheets(1).Range("A11:B60").ClearContents

Ce forum est vraiment sympa. Il y a beaucoup de contributeurs experts et prêts à aider les autres

Je remercie tous ceux grâce à qui j'ai progressé en VBA sur ce site (c'est la deuxième question que je pose), notamment Pierre Fauconnier, Marc-L, Docmarti, unparia dont les réponses m'ont beaucoup aidé !

J'espère pouvoir apporter ma contribution à ce forum également à l'occasion ^^