Archivage d'information

Lucas · 27 Décembre 2008

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 · 27 Décembre 2008

Re : Archivage d'information

Code:

Bonjour,

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

Archivage sur double clic en colonne A:

Code:

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 · 27 Décembre 2008

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!...

Archivage d'information

Lucas

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lucas

XLDnaute Occasionnel

Archivage d'information

Lucas

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Lucas

XLDnaute Occasionnel

Privacy & Transparency

Privacy & Transparency