Archivage d'information

[Lucas]

Bonjour...

J'aimerais savoir s'il est possible d'archiver soit dans un fichier ou onglet quelconque de l'information effacée...

Je m'explique : j'ai un fichier joint que je vais me servir lors de réunions, il aura 7 ou 8 onglets pour différentes sortes de réunions lorsqu'une tâche serait accomplie, je pourrais l'effacer (ou autre manoeuvre) et elle se retrouverait dans un ficher ou onglet...pour consultation future...

Merci beaucoup!....Lucas

 

[BOISGONTIER]

Re : Archivage d'information

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModifiees.xls

Archivage sur double clic en colonne A:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 1 And Target.Count = 1 Then
     Application.EnableEvents = False
     Target.Resize(, 8).Copy Sheets("espion").[A65000].End(xlUp).Offset(1, 0)
     Sheets("espion").[A65000].End(xlUp).Offset(, 8) = Sh.Name
     Sheets("espion").[A65000].End(xlUp).Offset(, 9) = Now
     Sheets("espion").[A65000].End(xlUp).Offset(, 10) = Environ("username")
     Application.EnableEvents = True
   End If
   Cancel = True
End Sub

JB

 

[Lucas]

Re : Archivage d'information à Boisgontier...

Wow...Boisgontier...

Tu as tout a fait compris ma demande....c'est plus qu'espéré...tout dans un même fichier par catégories de réunions....

Petite question : peut-on archiver seulement que les éléments que l'on désire (exemple : les décisions seraient disons « terminées »)...

Merci...Merci...beaucoup!...