Trouver ligne d'une cellule contenant une variable
Résolu
Loiwi
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
Loiwi Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
Loiwi Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Trouver ligne d'une cellule contenant une variable
- Aller à la ligne dans une cellule excel - Guide
- Trouver adresse mac - Guide
- Partager photos en ligne - Guide
- Bloquer une cellule excel - Guide
- Trouver une adresse - Guide
1 réponse
Bonjour
Essaies ceci : en supposant que nom_du_dossier est dans la colonne 1 de la feuille Feuil1 du fichier nomfichsuiv
Cdlmnt
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
Loiwi
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
1
Cela fonctionne, merci beaucoup!