Code VBA pour automatisation

[ironangel]

Bonjour je vous envoie un fichier dans lequel j'aurais besoin de votre aide:

Je voudrais créer un code qui me permette de copier les cellules "nom de projet" et "code" de la feuille1 dans les cellules "produit" et "N°" de la feuille "Définition PF" respectivement. Cependant, il faudrait que la macro prenne les dernieres données entrées dans la feuille 1 (cette feuille va me servir d'archivage des données) c'est à dire la derniere ligne avant une ligne vide

Ci-joint, un fichier pour visualiser

Merci d'avance

 

[mromain]

Re : Code VBA pour automatisation

bonjour ironangel,

voici un code qui a l'air de fonctionner :

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

a+

 

[ironangel]

Re : Code VBA pour automatisation

Merci mromain,

ton code marche bien,
j'aimerais savoir, est il possible de creer un code qui appelle un fichier et qui copie certaines données dans celui ci ?
Je m'explique, à partir de la feuille "définition PF" j'aimerais copier les données des cellules "désignation articles" dans d'autres cellules d'un autre fichier, est-ce réalisable?
Donc en gros la macro devrait appeler le fichier, l'ouvrir et copier les données dans les cellules définies


Merci