ldexplorer
XLDnaute Junior
Bonjour à vous tous,
Merci de l'aide que vous m'avez apporté jusqu'ici.
Je rencontre le problème suivant. Je fais une petite base de donnée qui me sert à recenser les interventions que nous faisons pour les usagers du centre ou je travaille. Chaque usager a une feuille avec son nom, la date d'entrée et le listing des actes par date, heure ... .
Je souhaite qu'en tout début de la base, une feuille Recap mette en avant le dernière acte fait pour chacun des usagers.
J'ai le code suivant qui me copie le dernier acte dans la feuille recap, mais il 'additionne' les actes. Il les mets les uns derrière les autres. Or je voudrais que chaque usager est une ligne et que ce soit à cette ligne précise que soit copié ce dernier acte. J'espère que je suis clair !!! pas sûr !
Je vous envoie le classeur épuré en pièce jointe. Vous y verrez la feuille 'Alain' et la feuille Recap.(il y a également la macro)
Merci à tous de m'aider.
Ci-dessous le bout de code qui me permet de faire la copie du dernier acte dans la feuille recap .
Merci de l'aide que vous m'avez apporté jusqu'ici.
Je rencontre le problème suivant. Je fais une petite base de donnée qui me sert à recenser les interventions que nous faisons pour les usagers du centre ou je travaille. Chaque usager a une feuille avec son nom, la date d'entrée et le listing des actes par date, heure ... .
Je souhaite qu'en tout début de la base, une feuille Recap mette en avant le dernière acte fait pour chacun des usagers.
J'ai le code suivant qui me copie le dernier acte dans la feuille recap, mais il 'additionne' les actes. Il les mets les uns derrière les autres. Or je voudrais que chaque usager est une ligne et que ce soit à cette ligne précise que soit copié ce dernier acte. J'espère que je suis clair !!! pas sûr !
Je vous envoie le classeur épuré en pièce jointe. Vous y verrez la feuille 'Alain' et la feuille Recap.(il y a également la macro)
Merci à tous de m'aider.
Ci-dessous le bout de code qui me permet de faire la copie du dernier acte dans la feuille recap .
Code:
Sub IRecap()
Dim nom As String
nom = Range("B5").Value
Rows(Range("B65536").End(xlUp).Row).Copy
Application.Goto Sheets("Recap").Range("A65536").End(xlUp)(2)
ActiveSheet.Paste
Cells(Range("A65536").End(xlUp)(2).Row, 1).Value = nom
End Sub