codification transfert de données

[ironangel]

Bonjour,

j'aimerais adapter ce code à une copie de données vers un autres classeur, et non vers un autre onglet comme c'est le cas dans le code. Qqun pourrait m'aider?

voici le code:

With ThisWorkbook.Sheets("Feuil1")
ThisWorkbook.Sheets("Définition PF").Range("C4").Value = .Cells(.Rows.Count, 4).End(xlUp).Value
ThisWorkbook.Sheets("Définition PF").Range("L2").Value = .Cells(.Rows.Count, 4).End(xlUp).Offset(0, 2).Value
End With

Merci

 

[Catrice]

Re : codification transfert de données

Bonjour,

comme ceci :

Sub Test()
With ThisWorkbook.Sheets("Feuil1")
Workbooks("MonClasseur.xls").Sheets("Définition PF").Range("C4").Value = .Cells(.Rows.Count, 4).End(xlUp).Value
Workbooks("MonClasseur.xls").Sheets("Définition PF").Range("L2").Value = .Cells(.Rows.Count, 4).End(xlUp).Offset(0, 2).Value
End With
End Sub

 

[ironangel]

Re : codification transfert de données

Merci de ton aide,
En fait ce code prend la derniere ligne de la feuille 1 pour le copier dans une autre feuille (le 1er code que j'ai donnée), j'aimerais que ce soit l'inverse, c'est à dire qu'il copie des données de la feuille 1 dans la 1ere ligne vide de l'autre feuille

Est ce possible?

Merci

 

[Hulk]

Re : codification transfert de données

Hello, Catrice, Ironangel,

Petite parenthèse :

Ironangel, tu as vu cette réponse ? Si oui, c'est bon ça joue ?

Si oui, avertis ceux qui t'aident si c'est ok ou pas

Cdt, et bon we à vous.

 

[Catrice]

Re : codification transfert de données

Re,

Oui c'est possible.
Normalement, il suffit d'inverser :

Workbooks("MonClasseur.xls").Sheets("Définition PF").Range("C4").Value = .Cells(.Rows.Count, 4).End(xlUp).Value

.Cells(.Rows.Count, 4).End(xlUp).Value = Workbooks("MonClasseur.xls").Sheets("Définition PF").Range("C4").Value