Afficher l'Heure de modific d'une cellule
barben
Messages postés
52
Statut
Membre
-
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 25847 Date d'inscription Statut Contributeur Dernière intervention -
bonjour les membres de ce fameux forum..
j'ai une feuille sous Excel 2007 que dans laquelle je fais le saisie par cellule et puisque je me trempe parfois si j'ai fais la saisie du donnée dans la cellule dédié ou non, alors je veux savoir y'a t'il un truc qui me permet de savoir l'heure exacte de la saisie d'une cellule sous Excel 2007 ?? merciiiii
j'ai une feuille sous Excel 2007 que dans laquelle je fais le saisie par cellule et puisque je me trempe parfois si j'ai fais la saisie du donnée dans la cellule dédié ou non, alors je veux savoir y'a t'il un truc qui me permet de savoir l'heure exacte de la saisie d'une cellule sous Excel 2007 ?? merciiiii
A voir également:
- Afficher l'Heure de modific d'une cellule
- Changement d'heure - Guide
- Excel afficher couleur conditionnelle dans une cellule - Guide
- Bloquer une cellule excel - Guide
- Heure de connexion whatsapp qui ne changé pas - Accueil - WhatsApp
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Salut,
Si les cellules soumises à contrôle sont par exemple B2 à B250
et la colonne d'enregistrement des modifs est la colonne A qui peut être masquée, colles ce code dans les propriétés de la feuille (clic droit sur l'onglet de la feuille concernée/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B250")) Is Nothing Then
Range("A65536").End(xlUp).Offset(1, 0) = Now
End If
End Sub
Ce code peut être amélioré pour mémoriser que les dix ou vingt etc ... dernières modifs
Si les cellules soumises à contrôle sont par exemple B2 à B250
et la colonne d'enregistrement des modifs est la colonne A qui peut être masquée, colles ce code dans les propriétés de la feuille (clic droit sur l'onglet de la feuille concernée/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B250")) Is Nothing Then
Range("A65536").End(xlUp).Offset(1, 0) = Now
End If
End Sub
Ce code peut être amélioré pour mémoriser que les dix ou vingt etc ... dernières modifs
