Afficher l'Heure de modific d'une cellule
barben
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 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
- Verrouiller une cellule excel - Guide
- Changement d'heure - Guide
- Afficher taille dossier windows - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Afficher cellules masquées excel ✓ - Forum Excel
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
