Trouver ligne d'une cellule contenant une variable

Résolu/Fermé
Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 - 1 avril 2020 à 11:09
Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 - 2 avril 2020 à 08:54
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
A voir également:

1 réponse

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
1 avril 2020 à 16:39
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
0
Loiwi Messages postés 37 Date d'inscription vendredi 1 février 2019 Statut Membre Dernière intervention 29 septembre 2020 1
2 avril 2020 à 08:54
Cela fonctionne, merci beaucoup!
0