Calendrier archive

[sev]

J'ai un calendrier auquel je voudrais associer des "archives"

Je voudrais garder en mémoire les données des colonne H,K,V,X,AI et AK pour chaque années. Quelles se réaffichent dans le calendrier correspondant à son année.
Un extrait de fichier est joint pour une meilleure compréhension

 

[Catrice]

Re : Calendrier archive

Bonsoir,

ci-joint un exemple à tester.
J'ai un peu "nettoyé" le fichier pour en reduire la taille ...

Dans Recto, le bouton permet de mémoriser les données dans l'onglet Mémoire1 sous la forme d'une base dedonnées

Dans Rappel mémoire, choisir une annee en C3. Le Bouton Rappel mémoire récupère les données en fontion de l'annee choisie et ventile les données dans le calendrier.

Dans Recto, le bouton permet de mémoriser les données dans l'onglet Mémoire1 sous la forme d'une base dedonnées

Dans Rappel mémoire, choisir une annee en C3. Le Bouton Rappel mémoire récupère les données en fontion de l'annee choisie et ventile les données dans le calendrier.

 

[sev]

Re : Calendrier archive

Bonsoir et merci Catrice,
Tes macros vont bien m'arranger mais :

Serait il possible d'exécuter les macros Miseenmémoire et Rappelmémoire automatiquement lorsque l'on change d'année ?

 

[Catrice]

Re : Calendrier archive

Bonsoir,

Oui c'est possible sur l'evenement Worksheet_Change.
Mais peut mieux encore en plaçant l'année dans une ListBox (evenement plus facile à controler je pense)

 

[sev]

Re : Calendrier archive

Bonjour, comment faire une petite modif sur ce code :

Sub MiseEnMemoire()
MesZones = Array("D11:D41", "Q11:Q41", "AD11:AD41")
For i = 0 To UBound(MesZones)
    For Each X In Sheets("Recto").Range(MesZones(i))
        Marqueur = 0
        For Each Y In X.Offset(0, 3).Resize(1, 5)
            If Y <> "" Then Marqueur = 1
            If Y.Interior.ColorIndex <> xlNone Then Marqueur = 1
        Next
        If Marqueur = 1 Then
            If IsError(Application.Match(X, Sheets("mémoire1").Range("A:A"), 0)) Then 'Pour eviter d'ecraser les lignes deja memorisée
                LaLigne = Sheets("mémoire1").Range("A65536").End(xlUp).Offset(1, 0).Row
                j = 2
                For Each Z In X.Offset(0, 3).Resize(1, 5)
                    Sheets("mémoire1").Cells(LaLigne, j) = Z
                    Sheets("mémoire1").Cells(LaLigne, j).Interior.ColorIndex = Z.Interior.ColorIndex
                    j = j + 1
                Next
                Sheets("mémoire1").Cells(LaLigne, 1) = X
            End If
        End If
    Next
Next
End Sub

Car si une date est déjà mémorisée dans la feuille "mémoire1" l'on ne peut actualiser de nouvelles données sur cette date.
Dans l'exemple si je met B en I11 pour la date du 1 janvier 2008 elle ne sera pas mémorisée dans la feuille "mémoire1".

De mon coté je met en place l'userform pour la sélection des années avec un combobox.

 

[Catrice]

Re : Calendrier archive

Hello,

Tu veux que toutes nouvelles données soient remplacées ?

Ci-joint une version qui :
- Efface une ligne dans l'onglet "mémoire1" si elle ne contient plus rien dans le calendrier
- Actualise les données si elles sont changées
- Execute le Rappel mémoire dans l'onglet "Rappel mémoire" en selectionnant une date dans la liste déroulante

 

[sev]

Re : Calendrier archive

Oui, de façon à actualiser les informations.

 

[Catrice]

Re : Calendrier archive

Bonsoir,

J'ai refait une maquette de ce que tu voulais faire en simplifiant et/ou optimisant un certain nombre de choses ...
Les Données sont automatiquement archivées et réaffichées.
Voir le fichier joint.

 

[sev]

Re : Calendrier archive

Bonjour et merci pour ton travail.
Je pense que je vais réussir à l'adapter sur mon calendrier.
A+