[EXCEL] VBA insertion date modif de feuille Résolu/Fermé

Question

Bonjour,

J'essais d'insérer une macro VBA qui me permettrais d'afficher la date des dernières modifications effectuées dans une feuille en particulier d'un classeur Excel qui en contient trois.

J'ai essayé ceci : 

Dans This Workbook, place : 
Dim modif As Boolean 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If modif = True Then 
Sheets("Feuil1").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) 
modif = True 
End Sub

Mais rien ne fonctionne dans mon fichier.

Merci

danny_coccinnelle · Accepted Answer

Hey! Hey!

J'ai finis par trouver la solution en placotant avec des amis qui travaillent en infos aussi.

Voici donc le VBA que je cherchais : 

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Nom de la feuille").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") & Format(Time, "hh:mm:ss")


End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub


Bonne journée

zefoots · Answer

Salut,

j'y connais pas grand chose en VBA (seulement en VB tout court), mais je pense qu'il faut enregistrer le fichier pour que les modifications soient gardées.

Papou93 · Answer

Bonjour danny_coccinnelle,

C'est un problème de portée de variable :

Remplaces 'Dim modif as boolean' par 'Public modif as boolean'.

Le mieux est de placer cette instruction dans la section (General) d'un module de code.

Espérant avoir répondu.

Cordialement.

danny_coccinnelle · Answer

Je vous remercie pour vos conseils, mais ça ne fonctionne pas plus.

J'ai aussi essayé deux options : 

- Placer les intructions dans My Woorkbook
- Placer les instructions dans Feuil2 (qui est celle où devrait apparaître ma fonction)

À chaque fois je précise ceci dans mes instructions : 

Sheets("Feuil2").Range("O1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") 
End If 
End Sub 

Pour que ma fonction apparaisse dans la cellule O1 de la feuille 2.

J'ai déjà appris un peu le VBA, mais très brièvement. Est-ce qu'il existe un lexique de la terminologie VBA? Ce serait sûrement utile pour mon apprentissage.

Gros merci à l'avance pour ceux qui me répondront!!

Tolum · Answer

Cela m'intéresse aussi.

Merci beaucoup pour votre aide précieuse

micka0+8 · Answer

Bonjour, j'aimaerais appliquer cette formule mais sur plusieurs feuilles dans le même classeur???

Merci d'avance pour vos astuces...

[EXCEL] VBA insertion date modif de feuille

6 réponses

Discussions similaires