Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Conservation historique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Tilkes
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tilkes

XLDnaute Nouveau
Bonjour tout le monde,

Je vous joins mon fichier excel pour que vous compreniez.

Voilà, j'ai un onglet qui s'appelle 'Liste des surveillances'. Je rentre une date dans "date planifiée", puis lorsque je rentre une date dans "date replanifiée", ça me supprime la date dans "date planifiée" pour que ça puisse agrémenter ma feuille de planning.

Cependant, pour des raisons d'historiques et traçabilité, j'aimerais pouvoir conserver la date qui du coup a été supprimée dans "date planifiée" sur une autre feuille dans "Liste des surveillances 1".

Pour résumer, dans "Liste des surveillances" il doit y avoir qu'une date et dans "Liste des surveillances 1", il devrait y avoir 3 dates, la date planifiée, replanifiée et réalisée.

Pourriez-vous m'aider ou m'éclairer ?

En vous remerciant,
 

Pièces jointes

Trier par date Trier par votes
Re : Conservation historique

Bonjour Tilkes,

modifie ton code de la feuille "Liste des surveillances" comme ceci (3 lignes ajoutées en début de code)

Code: 
Public Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)

' ci-dessous, 3 lignes ajoutées =======================================
If Not Intersect(Target, Range("D14:H500", "K14:O500")) Is Nothing Then
Sheets("Liste des surveillances 1").Range(Target.Address) = Target
End If
' =====================================================================

If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("d14:d500")) Is Nothing Then
        Flag = True
            Target.Offset(0, 2).ClearContents
        Flag = False
    End If
    '------------
   If Not Application.Intersect(Target, Range("f14:f500")) Is Nothing Then
        Flag = True
            Target.Offset(0, -2).ClearContents
        Flag = False
    End If
    
      
    
    
    
    If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("f14:f500")) Is Nothing Then
        Flag = True
            Target.Offset(0, 2).ClearContents
        Flag = False
    End If
    '------------
   If Not Application.Intersect(Target, Range("h14:h500")) Is Nothing Then
        Flag = True
            Target.Offset(0, -2).ClearContents
        Flag = False
    End If

    
    '**************************
    
    
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("k14:k500")) Is Nothing Then
        Flag = True
            Target.Offset(0, 2).ClearContents
        Flag = False
    End If
    '------------
   If Not Application.Intersect(Target, Range("m14:m500")) Is Nothing Then
        Flag = True
            Target.Offset(0, -2).ClearContents
        Flag = False
    End If
    
      
    
    
    
    If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("m14:m500")) Is Nothing Then
        Flag = True
            Target.Offset(0, 2).ClearContents
        Flag = False
    End If
    '------------
   If Not Application.Intersect(Target, Range("o14:o500")) Is Nothing Then
        Flag = True
            Target.Offset(0, -2).ClearContents
        Flag = False
    End If

End Sub


à+
Philippe
 
Vote positif 0 Vote négatif
Re : Conservation historique

Merci pour ta réponse mais je pense pas que ce soit ce que je souhaitais. En rajoutant ces trois lignes, ça copie juste les dates de la première feuille dans la seconde mais c'est tout ?
Ca ne garde rien en mémoire ?

Merci !
 
Vote positif 0 Vote négatif
Re : Conservation historique

Re,

Pour garder l'historique , avec ceci:
Code: 
If Not Intersect(Target, Range("D14:H500", "K14:O500")) Is Nothing Then
Sheets("Liste des surveillances 1").Range(Target.Address) = Sheets("Liste des surveillances 1").Range(Target.Address) & vbLf & Target
End If

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Conservation historique

Parfait, c'est ce que je souhaitais !

Et saurais-tu s'il est possible de garder que la dernière date mise en mémoire ? Ne pas garder si tu changes la date mais seulement la dernière mise à jour pour pouvoir sortir des indicateurs et graphiques.

Des milliers de merci 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Conservation historique

Quand je mets ton premier code, ça garde bien la dernière mise à jour mais ça garde pas en mémoire .. Donc si je mets une date dans "date planifiée" de la première feuille, alors je retrouve cette date dans la seconde feuille. Cependant, si je mets une date dans "date replanifiée" de la première feuille, ça indique cette date dans la seconde feuille mais ça supprime celle dans "date planifiée" donc ça ne garde pas l'historique ..
 
Vote positif 0 Vote négatif
Re : Conservation historique

Re,

il suffit d'ajouter:
Application.EnableEvents = False
au début du code

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("D14:H500", "K14:O500")) Is Nothing Then
...................................................
.....................................


à+
Philippe
 
Vote positif 0 Vote négatif
Re : Conservation historique

Re,

et ne pas oublier de mettre ceci à la fin du code
Code: 
....................................
............................................
Application.EnableEvents = True
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Conservation historique

En rajoutant cette ligne, ça fait arrêter le code entier et plus rien ne fonctionne ...

En fait, avec ce code là :

Code: 
If Not Intersect(Target, Range("D14:H500", "K14:O500")) Is Nothing Then
Sheets("Liste des surveillances 1").Range(Target.Address) = Sheets("Liste des surveillances 1").Range(Target.Address) & vbLf & Target
End If

ça marche, sauf que dans une cellule de la feuille 2, il peut y avoir plusieurs dates si on change plusieurs fois la date dans la feuille 1. Du coup, je ne peux pas faire de graphique avec les données de la feuille 2 car il peut y avoir plusieurs dates dans une seule cellule. C'est pour cette raison que j'aimerais un code qui supprime toutes ces dates SAUF la dernière ..

En te remerciant
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Planning et calendrier vacances
Réponses
8
Affichages
875
MLIZIN
M
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
272
ManuEven
M
O
  • Résolu(e)
XL 2016 Transfert de données sous conditions
Réponses
4
Affichages
609
sylvanu
S
  • Question Question
Autres liste déroulante dynamique à 2 niveaux
Réponses
2
Affichages
244
saralht
S
C
  • Résolu(e)
XL 2013 Fonction pour obtenir taille fichier, auteur...
2 3
Réponses
42
Affichages
2 K
crocrocro
C
  • Question Question
XL 2016 colonnes automatique
Réponses
0
Affichages
299
richardlion
A
  • Question Question
XL 2016 To do list
Réponses
1
Affichages
784
chris
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
547
djidji59430
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
685
HANN
H
M
  • Question Question
Microsoft 365 formules si
Réponses
3
Affichages
411
MONJARET
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
L
  • Question Question
Microsoft 365 Gestion de stock matieres premieres VS produits finaux
Réponses
5
Affichages
1 K
youky(BJ)
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
  • Résolu(e)
XL 2016 Notification d'absence consécutive vba
Réponses
4
Affichages
619
Messan
D
  • Question Question
XL 2019 Vue d'ensemble (planning) de l'activité d'une équipe sur l'année
Réponses
12
Affichages
1 K
Doublenico79
D
  • Question Question
Microsoft 365 Données récupérées d'un tableau
Réponses
4
Affichages
613
TooFatBoy
S
  • Résolu(e)
XL 2016 VBA effacer contenu colonne en fonction des infos d'une autre
Réponses
8
Affichages
792
sandfer
S
Z
  • Question Question
Exporter / extraire des cellule selon critère
Réponses
3
Affichages
454
job75
  • Question Question
XL pour MAC Calendrier et remplissage automatique
2
Réponses
28
Affichages
2 K
TooFatBoy
M
  • Résolu(e)
XL 2019 Création d'un historique via VBA
Réponses
14
Affichages
3 K
thunder23
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…