Discussion :

[atk_49]

Bonjour à tous,

Je souhaite copier les données d'une plage vers une plage d'un autre document, voici mon code actuel :

Code :

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

Workbooks("Destination.xlsm").Sheets("Feuil1").Range("A1:F1").Value = Workbooks("Source.xlsm").Sheets("Feuil1").Range("A1:F1").Value

Ce code fonctionne, seulement je souhaiterais que la copie se fasse sur la dernière ligne vide afin d'éviter d'écraser le contenu existant du classeur de destination.

J'ai naïvement essayé (erreur de syntaxe) :

Code :

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

Workbooks("Destination.xlsm").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) & ":F" & Rows.Count).End(xlUp).Offset(0, 5).Value = Workbooks("Source.xlsm").Sheets("Feuil1").Range("A1:F1").Value

Auriez-vous une idée pour réussir cela ?

Merci d'avance et bonne journée à tous.

[Menhir]

Juste un petit détail pour alléger ton code : il n'est pas indispensable, pour la destination, de donner l'ensemble de la plage, la première case suffit.

Le problème de ton code, c'est que tu essaye de concaténer (&) une string (jusque là, ça va) avec une cellule, c'est à dire un objet alors qu'en fait, c'est le numéro de la ligne que tu veux.
Tu n'as pas non plus indiqué dans quelle feuille tu recherches la dernière ligne.
Autre détail : il est plus simple de faire un +1 qu'un Offset.

Je te le fais en deux lignes pour que tu comprennes mieux.

Code :

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

1
2
DerLigne = Workbooks("Destination.xlsm").Sheets("Feuil1").Cells(Rows.Count,1).End(xlUp).Row + 1
Workbooks("Destination.xlsm").Sheets("Feuil1").Cells(DerLigne,1).Value = Workbooks("Source.xlsm").Sheets("Feuil1").Range("A1:F1").Value

Personnellement, quand il y a des variables ou des valeurs calculée en jeu, je préfère utiliser Cells plutôt que Range, mais les deux peuvent être utilisés.

Dernier détail : si tu veux passer par une variable comme je l'ai fait, DerLigne doit être déclaré en Long, comme toute variable faisant référence à un numéro de ligne.

[atk_49]

Bonjour Menhir et merci de t'être penché sur mon problème.

En effet, c'est bien le numéro de ligne qui m’intéressait, le code est plus simple et c'est bien mieux !

J'ai essayé ton code, mais seule la premier cellule est remplie.

[Menhir]

J'ai fait une erreur.
Comme perso je fais généralement les copies de zone avec une Copy, je n'indique que la première cellule de la destination.
Mais, avec ta méthode utilisant un "=", il faut effectivement donner toutes la zone.

Code :

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

1
2
DerLigne = Workbooks("Destination.xlsm").Sheets("Feuil1").Cells(Rows.Count,1).End(xlUp).Row + 1
Workbooks("Destination.xlsm").Sheets("Feuil1").Range("A" & DerLigne & ":F"  & DerLigne).Value = Workbooks("Source.xlsm").Sheets("Feuil1").Range("A1:F1").Value

[atk_49]

Un grand merci Menhir, ton code fonctionne parfaitement !

Pour info je remplace un code préalablement fait avec la fonction copy, mais je trouve ce principe plus simple.

Encore merci et bonne journée !

[Menhir]

Pour info je remplace un code préalablement fait avec la fonction copy, mais je trouve ce principe plus simple.

Chacun son style et sa méthode.

Moi j'aurais plutôt écrit

Code :

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

1
2
3
DerLigne = Workbooks("Destination.xlsm").Sheets("Feuil1").Cells(Rows.Count,1).End(xlUp).Row + 1
Workbooks("Source.xlsm").Sheets("Feuil1").Range("A1:F1").Copy
Workbooks("Destination.xlsm").Sheets("Feuil1").Cells(DerLigne,1).PasteSpecial(xlValue)