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
JB
Bonjour,
Function RecupCommentaire(c) Application.Volatile If c.NoteText = "" Then RecupCommentaire = "" Else RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ") End If End Function
Comment detecter si un commentaire existe sur une cellule ?
Merci de vos réponses
Jacques
Bonjour,
Function RecupCommentaire(c)
Application.Volatile
If c.NoteText = "" Then
RecupCommentaire = ""
Else
RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ")
End If
End Function
Function RecupCommentaire(c) Application.Volatile If c.NoteText = "" Then RecupCommentaire = "" Else RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ") End If End Function
Comment detecter si un commentaire existe sur une cellule ?
Une fonction perso :
Function Exist_Comment(Cellule) Exist_Comment = Not Cellule.Comment Is Nothing End Function
AV
MichDenis
Le fait que le commentaire soit vide ne signifie pas qu'il n'y a pas un commentaire.
Dim C as comment ON error resume next Set c = Activecell.Comment if err <>0 then err =0 'Pas de commentaire dans la cellue. else 'La cellule contient un commentairev(vide peut-être) end if
"JB" a écrit dans le message de news:
Bonjour,
Function RecupCommentaire(c) Application.Volatile If c.NoteText = "" Then RecupCommentaire = "" Else RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ") End If End Function
Comment detecter si un commentaire existe sur une cellule ?
Merci de vos réponses
Jacques
Le fait que le commentaire soit vide ne signifie pas qu'il
n'y a pas un commentaire.
Dim C as comment
ON error resume next
Set c = Activecell.Comment
if err <>0 then
err =0
'Pas de commentaire dans la cellue.
else
'La cellule contient un commentairev(vide peut-être)
end if
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1170170778.711338.186670@m58g2000cwm.googlegroups.com...
Bonjour,
Function RecupCommentaire(c)
Application.Volatile
If c.NoteText = "" Then
RecupCommentaire = ""
Else
RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ")
End If
End Function
Le fait que le commentaire soit vide ne signifie pas qu'il n'y a pas un commentaire.
Dim C as comment ON error resume next Set c = Activecell.Comment if err <>0 then err =0 'Pas de commentaire dans la cellue. else 'La cellule contient un commentairev(vide peut-être) end if
"JB" a écrit dans le message de news:
Bonjour,
Function RecupCommentaire(c) Application.Volatile If c.NoteText = "" Then RecupCommentaire = "" Else RecupCommentaire = Replace(c.Comment.Text, Chr(10), " ") End If End Function
Comment detecter si un commentaire existe sur une cellule ?
Merci de vos réponses
Jacques
Modeste
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1 Menu Insertion > Définir Nom : IlyaCommentaire Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX selon que que la cellule de gauche sur la même ligne contient ou non un commentaire (attention fait référence à la feuille ou l'on à défini lre Nom)
-- -- @+ ;o)))
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1
Menu Insertion > Définir Nom : IlyaCommentaire
Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille
saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX
selon que que la cellule de gauche sur la même ligne contient ou non un
commentaire
(attention fait référence à la feuille ou l'on à défini lre Nom)
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1 Menu Insertion > Définir Nom : IlyaCommentaire Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX selon que que la cellule de gauche sur la même ligne contient ou non un commentaire (attention fait référence à la feuille ou l'on à défini lre Nom)
-- -- @+ ;o)))
Jacques
Merci à tous pour vos réponses
Jacques
"Modeste" a écrit dans le message de news: #bA$
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1 Menu Insertion > Définir Nom : IlyaCommentaire Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX selon que que la cellule de gauche sur la même ligne contient ou non un commentaire (attention fait référence à la feuille ou l'on à défini lre Nom)
-- -- @+ ;o)))
Merci à tous pour vos réponses
Jacques
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
#bA$RfIRHHA.1908@TK2MSFTNGP05.phx.gbl...
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1
Menu Insertion > Définir Nom : IlyaCommentaire
Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille
saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX
selon que que la cellule de gauche sur la même ligne contient ou non un
commentaire
(attention fait référence à la feuille ou l'on à défini lre Nom)
Bonsour® Jacques (BE) avec ferveur ;o))) vous nous disiez :
Comment detecter si un commentaire existe sur une cellule ?
sans VBA (macro EXCEL4 ;o))))
se positionner en B1 Menu Insertion > Définir Nom : IlyaCommentaire Fait référence à : =LIRE.CELLULE(46;Feuil1!A1)
ensuite se placer n'importe ou dans une feuille saisir la formule : =IlyaCommentaire
la réponse sera VRAI ou FAUX selon que que la cellule de gauche sur la même ligne contient ou non un commentaire (attention fait référence à la feuille ou l'on à défini lre Nom)
