Enregistrer résultat en face dernière occurence d'un mot

Loiwi Messages postés 37 Statut Membre -  
Loiwi Messages postés 37 Statut Membre -
Bonjour,

Voici une macro que vous m'avez aidé à définir il y'a quelques temps:

Sub Date_of_exit_RD()
nomfic = Left(ActiveWorkbook.Name, 13)
datemodif = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
nomfichsuiv = "Response time R&D.xlsm"
Workbooks.Open ("\\path\" & nomfichsuiv)
ligne = Workbooks(nomfichsuiv).Sheets("Feuil1").Columns(1).Find(nomfic).Row
Workbooks(nomfichsuiv).Sheets("Feuil1").Range("C" & ligne) = datemodif
MsgBox "Please check that the date of exit were saved"
Workbooks(nomfichsuiv).Save
Workbooks(nomfichsuiv).Close

End Sub

Elle permettait d'enregistrer la date de dernière sauvegarde d'un fichir Excel qui correspond dans mon cas à la clôture d'une affaire.

Cependant lorsque une affaire est ouverte plusieurs fois, la macro enregistre la date de la dernière sauvegarde sur la ligne de la première occurrence de l'affaire. Comment faire en sorte qu'elle l'enregistre sur la dernière occurrence?

Merci d'avance

Configuration: Windows / Chrome 84.0.4147.135
A voir également:

1 réponse

danielc0 Messages postés 1988 Date d'inscription   Statut Membre Dernière intervention   243
 
Bonjour,

Mets :
  ligne = Workbooks(nomfichsuiv).Sheets("Feuil1").Columns(1).Find(nomfic, , , , xlByRows, xlPrevious).Row


Cordialement.

Daniel
1
Loiwi Messages postés 37 Statut Membre 1
 
Désolé pour le retard mais j'étais en congé. La modification fonctionne. Merci:
0