[EXCEL] VBA insertion date modif de feuille
Résolu
danny_coccinnelle
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
micka0+8 -
micka0+8 -
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
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
A voir également:
- [EXCEL] VBA insertion date modif de feuille
- Feuille de pointage excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Nombre de jours entre deux dates excel - Guide
- Bruler feuille de laurier - Guide
6 réponses
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
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
Bonjour, j'aimaerais appliquer cette formule mais sur plusieurs feuilles dans le même classeur???
Merci d'avance pour vos astuces...
Merci d'avance pour vos astuces...
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.
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.
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!!
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!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je rebondis sur votre message car je voudrais insérer automatiquement la date de modification dans une cellule de mon classeur (ce qui me semble avoir été votre problématique de départ !).
J'ai essayé la formule que vous proposez, ainsi que d'autres, mais rien à faire, ça ne marche pas.
Pourriez-vous me décrire la procédure pas à pas ? Il y a certainement qqch que je ne fais pas "bien" mais comme je n'y connais rien en VBA (ou même en macro sous excel), je n'y arrive pas...
D'avance merci.