ctrl+z ne fonctionne plus Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
U
UFI
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 2 janvier 2014
Version d'Excel : 2010

Message par UFI » 6 août 2015, 17:51

Bonjour,

Depuis que j'utilise un fonction Vba qui me permet d'indiquer la date de la dernière modification apportée à un fichier excel, la fonction Ctrl+z ne marche plus.

Voici le code utilisé :

Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("EN COURS").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") _
& " par " & Application.UserName
Application.EnableEvents = True
End Sub


Y a-t-il une solution pour que la fonction Ctrl+z remarche sans supprimer mon code ?

PS : je précise que je suis novice en Vba, je me suis contenté de copier/coller ce code trouvé sur internet.

Merci d'avance.
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'173
Appréciations reçues : 354
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 6 août 2015, 23:38

Bonjour,

Non, dès que tu écris sur une feuille en vba tu perds le tampon d'annulations. Pareil que si tu enregistres le fichier.
Garde-le en mémoire dans une variable que tu sauvegarde sur ta feuille à la fermeture ou bien écrit sur une autre feuille.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
U
UFI
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 2 janvier 2014
Version d'Excel : 2010

Message par UFI » 7 août 2015, 09:28

Y a-t-il un autre moyen plus simple (via une formule par exemple) d'indiquer la date de la dernière modification ?

L'idée serait d'éviter de passer par du code vba, et donc éliminer mon problème.

Merci d'avance.
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'173
Appréciations reçues : 354
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 7 août 2015, 14:04

Bonjour,

Par formule non, aujourdhui() te donne la date du jour, ça change tous les jours...
Utilises les raccourcis clavier qui t'inscriront la date en dur : Ctrl+; pour la date

eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
U
UFI
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 2 janvier 2014
Version d'Excel : 2010

Message par UFI » 11 septembre 2015, 12:00

Rebonjour,

Je viens de trouver un code en Vba qui me permet d'afficher la date de la dernière modification ainsi que le nom de celui qui l'a modifié (après enregistrement). Cette fois c'est compatible avec la fonction Ctrl+z. J'ai pensé que ça pouvait être utile à certain.

Voici le code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Feuill1").Range("B1") = Format(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"), "DD/MM/YY hh:mm") _
& " par " & Application.UserName


End Sub


Je ne suis pas spécialiste, peut-être que quelqu'un pourra nous dire pourquoi ce code fonctionne et pas le précédent.

Bonne journée.
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'173
Appréciations reçues : 354
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 11 septembre 2015, 15:26

Bonjour,

avec ce code tu n'écris pas dans la feuille par macro, tu ne perds donc pas son historique. Ca revient au même que d'écrire dans une feuille dédiée comme je te le suggérait.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Format Date fonctionne/fonctionne pas..
    par SoJa » 14 février 2018, 10:20 » dans Excel - VBA
    10 Réponses
    335 Vues
    Dernier message par archer
    14 février 2018, 15:09
  • CTRL + F
    par Haazda » 27 avril 2017, 13:02 » dans Excel - VBA
    3 Réponses
    363 Vues
    Dernier message par Dan
    27 avril 2017, 13:10
  • lenteur ctrl+z
    par nicoloco » 31 janvier 2017, 17:40 » dans Excel - VBA
    3 Réponses
    266 Vues
    Dernier message par eriiic
    31 janvier 2017, 23:00
  • Ctrl end
    par tomatito37 » 18 mars 2019, 15:56 » dans Excel - VBA
    12 Réponses
    97 Vues
    Dernier message par tomatito37
    19 mars 2019, 15:56
  • Remplacer CTRL H
    par oly111 » 10 août 2017, 21:57 » dans Excel - VBA
    3 Réponses
    282 Vues
    Dernier message par LouReeD
    10 août 2017, 23:00
  • Colorier Mot Ctrl + F
    par frt045 » 13 septembre 2018, 11:55 » dans Excel - VBA
    1 Réponses
    59 Vues
    Dernier message par IronBoule
    13 septembre 2018, 13:38