Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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 '-----------------------------------------
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
'-----------------------------------------
'----------------------------------------- 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.
Merci M Denis En + on me l'a (il me semble ) déjà soufflé, faut pas vieillir! "MichD" a écrit dans le message de news: 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 '-----------------------------------------
Merci M Denis
En + on me l'a (il me semble ) déjà soufflé, faut pas vieillir!
"MichD" <michdenis@hotmail.com> a écrit dans le message de news:
mfukhv$16m$1@speranza.aioe.org...
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
'-----------------------------------------
Merci M Denis En + on me l'a (il me semble ) déjà soufflé, faut pas vieillir! "MichD" a écrit dans le message de news: 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 '-----------------------------------------
