Afficher date en format commentaire Excel
Résolu/Fermé
amiraltom
Messages postés
48
Date d'inscription
mardi 29 mars 2011
Statut
Membre
Dernière intervention
28 juin 2011
-
7 avril 2011 à 16:51
amiraltom Messages postés 48 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 28 juin 2011 - 8 avril 2011 à 09:47
amiraltom Messages postés 48 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 28 juin 2011 - 8 avril 2011 à 09:47
1 réponse
Mike-31
Messages postés
18350
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 novembre 2024
5 105
7 avril 2011 à 18:51
7 avril 2011 à 18:51
Salut,
exemple pour traiter la plage de H2 à H100 si x est saisi dans une cellule de la plage création de commentaire avec date et heure
code à coller dans les propriétès de la feuille (clic droit sur l'onglet de feuille concerné/Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("H2:H100")) Is Nothing Then
If Target = "x" Then
Target.ClearComments
With Target.AddComment
.Visible = False
.Text vbCrLf & "visé le :" & Date & vbCrLf & " à " & Time
End With
End If
End If
End Sub
exemple pour traiter la plage de H2 à H100 si x est saisi dans une cellule de la plage création de commentaire avec date et heure
code à coller dans les propriétès de la feuille (clic droit sur l'onglet de feuille concerné/Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Selection, Range("H2:H100")) Is Nothing Then
If Target = "x" Then
Target.ClearComments
With Target.AddComment
.Visible = False
.Text vbCrLf & "visé le :" & Date & vbCrLf & " à " & Time
End With
End If
End If
End Sub
Modifié par amiraltom le 8/04/2011 à 10:42
Juste, tu vas me trouver pointilleux, mais est-il possible de ne pas voir apparaître les carrés dans le commentaire?
Bonne journée à toi!
Cordialement,
Tom