Trouver ligne d'une cellule contenant une variable [Résolu]

Signaler
Messages postés
35
Date d'inscription
vendredi 1 février 2019
Statut
Membre
Dernière intervention
26 juin 2020
-
Messages postés
35
Date d'inscription
vendredi 1 février 2019
Statut
Membre
Dernière intervention
26 juin 2020
-
Bonjour,

Grâce aux membres de ce forum (merci à eux), nous avons défini la macro suivante:

Sub Date_of_exit()
nomfic = Left(ActiveWorkbook.Name, 13)
datemodif = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
nomfichsuiv = "Response time.xlsm"
Workbooks.Open ("\\adresse réseau)
ligne = Workbooks(nomfichsuiv).Sheets("Feuil1").Columns(1).Find("*", , , , xlByColumns, xlPrevious).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

L'objectif de cette macro est d'enregistrer la date à laquelle je clôture un dossier client
Le problème est qu'en l'état, elle enregistre cette date dans la troisième cellule de la dernière ligne non vide (peu importe que la cellule soit vide ou non). Comment modifier cette macro pour qu'elle trouve la ligne contenant le nom du dossier et qu'elle enregistre la valeur dans la troisième cellule de cette ligne?

Merci d'avance

Configuration: Windows / Chrome 80.0.3987.149

1 réponse

Messages postés
9496
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
7 juillet 2020
1 857
Bonjour

Essaies ceci : en supposant que nom_du_dossier est dans la colonne 1 de la feuille Feuil1 du fichier nomfichsuiv
ligne = Workbooks(nomfichsuiv).Sheets("Feuil1").Columns(1).Find(nom_du_dossier).row

Cdlmnt
Messages postés
35
Date d'inscription
vendredi 1 février 2019
Statut
Membre
Dernière intervention
26 juin 2020
1
Cela fonctionne, merci beaucoup!