Archivage fin du mois

jeannot68 · 7 Juillet 2009

Bonjour a tous

Actuellement j'ai un mini programme qui me permet d'archiver a l'ouverture du fichier les tache qui sont déja réalisés. si la colonne I est rempli alors la ligne est en couleur et considerer comme fait apres suvegarde et fermeture puis ré ouverture la ligne se déplace sur mon onglet Archives.

Je souhaiterai aujourd'hui garder les taches réalisés jusqua la fin du mois (avec la couleur colorié) et basculer vers l'archive a la fin du mois automatiquement. comment coder ? je suppose quil faut faire un calcul entre la date de réalisation et la date d'aujourd hui ?

merci de votre aide

Compte Supprimé 979 · 7 Juillet 2009

Re : Archivage fin du mois

Bonjour Jeannot68,

Essaye peut-être avec ça

Code:

Private Sub Workbook_Open()
  Dim lig As Integer
  Dim lig2 As Integer
  ' Au cas ou on serait resté sur une autre feuille
  Sheets("Travaux").Activate
  '
  With ActiveSheet
    For lig = .Range("I65536").End(xlUp).Row To 2 Step -1
      lig2 = Sheets("Archives").Range("I65536").End(xlUp).Row
      If .Range("I" & lig).Value <> "" And _
         Month(.Range("I" & lig)) < Month(Now()) Then
        .Rows(lig).Cut Sheets("Archives").Rows(lig2 + 1)
        .Rows(lig).Delete Shift:=xlUp
      End If
    Next
  End With
End Sub

A+

jeannot68 · 8 Juillet 2009

Re : Archivage fin du mois

bonjour

Un grand merci BrunoM45, ca marche comme je voulais
A bientot

Archivage fin du mois

jeannot68

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

jeannot68

XLDnaute Occasionnel

Discussions similaires

Archivage fin du mois

jeannot68

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

jeannot68

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency