Incrementer un historique

[Christophe]

Bonsoir,

Je tiens un agenda d'actions dans une feuille et je souhaite transférer chaque semaine ces données dans un onglet 'historique' afin de compiler ces données et ce de façon chronologique.

Je suis complètement novice.

Une âme bien charitable voudra-t-elle m'aider ?

Par avance merci bcp. Bonne soirée.


[file name=Suivi Agenda_20050321183133.zip size=6392]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Suivi Agenda_20050321183133.zip[/file]

 

[Rai]

Bonsoir,

En PJ ton fichier agrémenté d'une petite macro et d'un bouton.
Si tu cliques sur le bouton 'transfert' de ta feuille Agenda,
tous les RDV sont transférés dans Historique, et supprimés d'Agenda.

Ci dessous la macro :

Sub transfert()

Set Org = ThisWorkbook.Sheets('Agenda')
Set Dest = ThisWorkbook.Sheets('Historique_')

L_Org = Org.Range('B65536').End(xlUp).Row
L_Dest = Dest.Range('B65536').End(xlUp).Row + 1

Org.Range('B10:C' & L_Org).Copy Destination:=Dest.Range('B' & L_Dest)
Org.Range('B10:C' & L_Org).ClearContents

End Sub


Bonne continuation, [file name=Suivi Agenda_20050321185949.zip size=9946]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Suivi Agenda_20050321185949.zip[/file]

 

[Christophe]

Bonsoir Rai,

C'est eXXXtra ! Cela fonctionen à merveille.
Je vais transposer sur mon fichier réel et te tiens au courant.

Merci bcp du coup de mains ! Bonne soirée.

Christophe

 

[Abel]

Bonjour Christophe,

Ci-joint une première approche.

Dis nous si cela te convient.

En espérant que cela te dépanne.

Abel. [file name=ExempleChristophe.zip size=11450]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleChristophe.zip[/file]

 

[Abel]

Re,

Oups ! Paf !

Pardon Rai. Pas rafraichi.

Abel.

 

[Christophe]

Merci quand même Abel.

Christophe