Microsoft 365 Archivage et Récupération données

[eric72]

Bonsoir à tous,
Tout d'abord à TooFatBoy pour avoir solutionné un de mes problème, cependant il m'en reste un...
Lorsque je remplis mon planning pour une semaine choisie j'archive ces données dans l'onglet "Archives", par contre quand je rappelle cette semaine, le temps de traitement est long pour récupérer les données.
Vous avez peut-être un code "allégé" pour effectuer cette récupération (je galère)!!!
Merci à tous pour votre aide (comme d'habitude).
Eric

 

[eric72]

Mais du coup la plage fera toujours le même nombre de colonnes puisqu'on en ajoutera autant qu'on en enlèvera, je ne sais pas si c'est bien clair!!!

 

[TooFatBoy]

Mais du coup la plage fera toujours le même nombre de colonnes puisqu'on en ajoutera autant qu'on en enlèvera, je ne sais pas si c'est bien clair!!!

C'est parfaitement clair.

Il suffit de rechercher la date d'hier moins un an, de supprimer tout ce qui est inférieur ou égal et d'ajouter autant de colonnes que nécessaire.

(ou chercher la date d'aujourd'hui moins un an, et supprimer tout ce qui est strictement inférieur)

 

[eric72]

C'est parfaitement clair.

Il suffit de rechercher la date d'hier, de supprimer tout ce qui est inférieur et d'ajouter autant de colonnes que nécessaire.

oui mais ça ne fonctionne pas, je ne trouve pas le code pour ajouter, snifff!!!

 

[TooFatBoy]

oui mais ça ne fonctionne pas, je ne trouve pas le code pour ajouter, snifff!!!

Je regarderais ce soir et te donnerais un bout de code pour faire ça.

 

[ChTi160]

Re
Ça devrait pouvoir ce faire
Tu pars d'une base qui respect ses deux consignes et ensuite en fonction de la dernière date on calcule le delta de Date du jour et date du jour plus 6 mois
Je regarde ce soir si pas de réponse avant
Jean marie
PS : depuis mon téléphone !

 

[eric72]

Vous êtes vraiment géniaux , de plus vous contribuez à faire progresser les autres
Merci

 

[TooFatBoy]

Saurais-tu me dire à quoi servent la plage de données BW8:CC584, stp ?

J'ai bien une petite idée, mais je voudrais être sûr.
Et du coup : pourquoi CC584 et non CC455 ?

 

[eric72]

Saurais-tu me dire à quoi servent la plage de données BW8:CC584, stp ?

J'ai bien une petite idée, mais je voudrais être sûr.
Et du coup : pourquoi CC584 et non CC455 ?

Dans "Planning" sauf a avoir les données alignées pour pouvoir les archiver, sinon à rien du tout!!

 

[eric72]

mais j'imagine que cela ne sert plus avec ton code Z_archiver, je peux donc le virer?

 

[TooFatBoy]

Dans "Planning" sauf a avoir les données alignées pour pouvoir les archiver, sinon à rien du tout!!

Oui, pardon, j'ai oublié de préciser la feuille.

Bon, c'est bien ce que je pensais donc, si tu utilises ma proposition de macro pour l'archivage, on doit pouvoir supprimer cette plage de données.

 

[eric72]

Bonjour à tous,
je me permets de venir aux nouvelles pour l'ajout de colonnes, je n'arrive pas à trouver de mon côté!!!
Merci et bonne journée
Eric

 

[TooFatBoy]

Euh... comment dire... ben... je t'ai complètement oublié... Et là, je n'ai pas vraiment le temps.

 

[eric72]

Euh... comment dire... ben... je t'ai complètement oublié... Et là, je n'ai pas vraiment le temps.

Je suis plié de rire, pas de souci je comprends, si tu as un moment un de ces jours n'hésite pas.
Bonne journée.

 

[TooFatBoy]

Une proposition pour les colonnes :

Sub SupprAjoutColArchives()
'
Dim MaDate As Long, MaColonne As Long, NbColonnes As Long

    With Sheets("Archives")

        MaDate = DateAdd("yyyy", -1, Date)
        MaColonne = Application.Match(MaDate, .Range("2:2"), 0)
        NbColonnes = MaColonne - 4
        If Not IsError(MaColonne) And NbColonnes > 0 Then .Range("D2").Resize(, NbColonnes).EntireColumn.Delete Shift:=xlToLeft

        MaDate = DateAdd("m", 6, Date)
        MaColonne = .Range("B2").End(xlToRight).Column
        NbColonnes = MaDate - .Cells(2, MaColonne).Value
        If NbColonnes > 0 Then
            With .Cells(2, MaColonne + 1).Resize(, NbColonnes)
                .FormulaR1C1 = "=RC[-1]+1"
                .Value = .Value
            End With
        End If

    End With

End Sub

 

[eric72]

Une proposition pour les colonnes :

Sub SupprAjoutColArchives()
'
Dim MaDate As Long, MaColonne As Long, NbColonnes As Long

    With Sheets("Archives")

        MaDate = DateAdd("yyyy", -1, Date)
        MaColonne = Application.Match(MaDate, .Range("2:2"), 0)
        NbColonnes = MaColonne - 4
        If Not IsError(MaColonne) And NbColonnes > 0 Then .Range("D2").Resize(, NbColonnes).EntireColumn.Delete Shift:=xlToLeft

        MaDate = DateAdd("m", 6, Date)
        MaColonne = .Range("B2").End(xlToRight).Column
        NbColonnes = MaDate - .Cells(2, MaColonne).Value
        If NbColonnes > 0 Then
            With .Cells(2, MaColonne + 1).Resize(, NbColonnes)
                .FormulaR1C1 = "=RC[-1]+1"
                .Value = .Value
            End With
        End If

    End With

End Sub

Bonjour TooFatBoy,
J'ai testé ce code et apparemment ça fonctionne nickel, merci d'avoir pu te dégager du temps.
Ca parait si simple!!!
Merci pour tout le boulot réalisé ces derniers jours.

Bonne journée et bon courage.
Eric