Test commentaire

Le
Fredo P.
Bonjour
Est il possible de tester la présence de commentaire sur une cellule et
comment.

--
Fréd. Ponsinet
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26348025
Bonjour,

'-----------------------------------------
Sub test()
Dim Cmt As Comment

With Range("b1")
Set Cmt = .Comment
If Not Cmt Is Nothing Then
MsgBox Cmt.Text
Else
MsgBox "pas de commentaire dans cette cellule " & .Address
End If
End With
End Sub
'-----------------------------------------
Fredo P.
Le #26348043
Merci M Denis
En + on me l'a (il me semble ) déjà soufflé, faut pas vieillir!
"MichD" mfukhv$16m$
Bonjour,

'-----------------------------------------
Sub test()
Dim Cmt As Comment

With Range("b1")
Set Cmt = .Comment
If Not Cmt Is Nothing Then
MsgBox Cmt.Text
Else
MsgBox "pas de commentaire dans cette cellule " & .Address
End If
End With
End Sub
'-----------------------------------------
Publicité
Poster une réponse
Anonyme