Tableau de suivi de backup

Sylvain.gva · 15 Janvier 2009

Bonjour à tous,

Nous avons un fichier excel qui nous permet de faire un suivit de nos sauvegarde systeme.
Nous aurions aimé automatisé certains champs, avec la lettre du disque a inserer. Nous avons reussi tant bien que mal a faire quelque chose pour les jeux de sauvegarde A et B de la partie ACOM, mais on peche pour le tableau avec un jeux de 5 disques A,B,C,D,E de la partie Abacus.
Nous voudrions faire en sorte que lorsque l'on selectionne le mois desiré, le tableau se mette a jour automatiquement avec la bonne sequence (A;B;C;D;E;A;B;C;.....). A savoir que les sauvegardes Abacus ne se changes que le mardi et le jeudi.

Ci-joint une copie du fichier en question car je ne suis pas sûr d'avoir été tres clair 🙁

Si quelqu'un avait un debut de piste a exploiter je suis prenneur 😱

Merci infiniment et bonne soirée
Sylvain

skoobi · 15 Janvier 2009

Re : Tableau de suivi de backup

Bonjour,

voici un code à mettre dans le code de la feuille: bouton droit sur l'onglet puis "visualiser le code".
La macro s'exécute en changeant le mois en J4:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Jour As Range
If Target.Address = "$J$4" Then
  abacusSeq = Array("A", "B", "C", "D", "E", "A", "B", "C", "D", "E")
  i = -1
  Range("I15:I45").ClearContents
  For Each Jour In Range("J15", Range("J65536").End(xlUp)).SpecialCells(xlCellTypeFormulas)
    If Weekday(Jour.Value) = 3 Or Weekday(Jour.Value) = 5 Then
      i = i + 1
      Jour.Offset(0, -1).Value = abacusSeq(i)
    End If
  Next
End If
End Sub

Sylvain.gva · 16 Janvier 2009

Re : Tableau de suivi de backup

Bonjour Skoobi 🙂 Merci pour ta reponse !

Ca marche tres bien. La seule petite chose, pas vitale en soi, c'est que en fonction des mois selectionnés, le code ne garde pas en memoire la lettre de la derniere sauvegarde du mois precedent. (Par exemple, si la derniere lettre est D, le mois suivant il repartira avec A et zappera la E).

Je ne sait pas si integrer ce genre de variable est possible, et compliqué a rajouter (Si c'est le cas laissez tomber, c'est pas la mort et c'est deja super comme ca 😛)

@+

skoobi · 16 Janvier 2009

Re : Tableau de suivi de backup

Re bonjour,

voici l'adaptation:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Jour As Range
Static i As Integer
If Target.Address = "$J$4" Then
  abacusSeq = Array("", "A", "B", "C", "D", "E")
  Range("I15:I45").ClearContents
  For Each Jour In Range("J15", Range("J65536").End(xlUp)).SpecialCells(xlCellTypeFormulas)
    If Weekday(Jour.Value) = 3 Or Weekday(Jour.Value) = 5 Then
      i = IIf(i = 5, 1, i + 1)
      Jour.Offset(0, -1).Value = abacusSeq(i)
    End If
  Next
End If
End Sub

Attention: le code passe à la lettre suivante à chaque changement du mois, indépendemment de l'ordre de choix. C'est-à-dire que le fait de passer par exemple de janvier à avril va "sauter" les mois de février et mars et inversement: passer de mai à février (pour consultation par exemple) va écraser les anciennes données de février. Donc dans l'état actuel, il ne faut pas s'en servir comme consultation mais bien comme "générateur" de mois en mois.

Sylvain.gva · 16 Janvier 2009

Re : Tableau de suivi de backup

Re Skoubi,

C'est super comme ca ! Merci d'y avoir consacré du temps ca m'a vraiment depanné 🙂

@+

Tableau de suivi de backup

Sylvain.gva

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

Sylvain.gva

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

Sylvain.gva

XLDnaute Nouveau

Discussions similaires

Tableau de suivi de backup

Sylvain.gva

XLDnaute Nouveau

Pièces jointes

skoobi

XLDnaute Barbatruc

Sylvain.gva

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

Sylvain.gva

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency