Aide sur VBA - date de modification

Fermé

LoveDD - Modifié par LoveDD le 10/05/2011 à 10:12
LoveDD - 10 mai 2011 à 10:47

Bonjour,

J'ai un souci avec VBA. J'ai en fait un classeur excel avec beaucoup de feuilles. Ce que j'aimerai faire, c'est que dès qu'une feuille est modifiée, une date de modification apparaisse sur la feuille modifiée.
J'ai mis ce code :

Dim modif As Boolean
Private Sub Workbook_Open()
modif = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then

Sheets("Feuill1").Range("A1").Value = "Date de modification " & Format(Date, _
"dd/mm/yyyy") & " " & Format(Time, "hh:mm") 'c'est là que la date de modif s'affiche
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Mais le souci c'est qu'avec ce code, n'importe quelle modification sur le classeur change la date de modification, or moi j'aimerai que ce soit une modif sur la dite feuille qui change la date et pas une modif sur le reste du classeur.
Je me tiens à disposition si je n'a pas été assez clair.
Merci d'avance.

A voir également:

Aide sur VBA - date de modification
Suivi de modification word - Guide
Logiciel gratuit modification pdf - Guide
Airpods 3 date de sortie - Guide
Modification d'écriture - Guide
Office 2024 date de sortie - Accueil - Bureautique

1 réponse

Réponse 1 / 1

LoveDD
10 mai 2011 à 10:47

J'ai trouvé la solution pour ceux que ça intéresse, il faut mettre dans chaque feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1") = Now()
End Sub

Discussions similaires

je cherche la date et le lieu de naissance d une personne

bonjour
je cherche la date et le lieu de naissance d une personne

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Problème publipostage date de naissance

Bonjour,

J'ai créé une base de données sur Excel avec différentes informations dont un champ "Date de naissance". Lorsque je suis sur mon fichier Word et que je créais un publipostage en fonction de cette base de données, la date est en format anglais c'est-à-dire que l'ordre des chiffres est inversé. Je suis allé sur des forums pour tenter de trouver une solution, celle que j'ai retrouvé le plus était la modification du champ en ajoutant " \@"dd/MM/yyyy" ". Le seul résultat que j'ai est que cela m'affiche la date du jour, certes en format français mais ce n'est pas ce que je recherche.

Quelqu'un aurait-il une solution ??

Merci d'avance !!

...

trouver une date de naissance

Bonjours pouvez vous m'aidez à trouvez une date de naissance ? Merci