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
A voir également:
- Formate de commentaire
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Forum blog
- Que du fake formate heritage ✓ - Forum Vos droits sur internet
- Formate de menace police interpol - Forum Vos droits sur internet
- Formate de connexion internet ✓ - Forum Réseau
- Format des commentaires ✓ - Forum Excel
1 réponse
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
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