Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Contenu d'un commentaire d'une cellule

Contenu d'un commentaire d'une cellule

8 réponses
Avatar
Claudy
Bonjour

Je cherche a récupérer le contenu d'un commentaire d'une cellule par une
formule ou autre

Pour le copier dans la valeur d'une cellule à coté.

Ceci en vue d'un export en csv (l'export oublie les commentaires).

Merci d'avance
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
AV
Je cherche a récupérer le contenu d'un commentaire d'une cellule par une
formule ou autre



Sub zzz()
On Error Resume Next
MsgBox ActiveCell.Comment.Text
End Sub

AV

Avatar
Claudy
Merçi d'avoir répondu
mais je suis newbie en vb

"AV" a écrit dans le message de news:
eKggSyZ$
Je cherche a récupérer le contenu d'un commentaire d'une cellule par une
formule ou autre



Sub zzz()
On Error Resume Next
MsgBox ActiveCell.Comment.Text
End Sub

AV




Avatar
AV
Merçi d'avoir répondu
mais je suis newbie en vb


Regarde l'exemple joint
Fais Alt+F11 pour voir le code de la fonction perso

http://cjoint.com/?lblYFFeH6U

AV

Avatar
Claudy
Merciiiiiiiiiii
vais étudier ça

"AV" a écrit dans le message de news:
OfO5aOa$
Merçi d'avoir répondu
mais je suis newbie en vb


Regarde l'exemple joint
Fais Alt+F11 pour voir le code de la fonction perso

http://cjoint.com/?lblYFFeH6U

AV




Avatar
Claudy
Si je puis me permettre
comment faire pour que cela ne marque pas #value! qd le commentaire est
vide
sinon cela fonctionne nickel

merci

"AV" a écrit dans le message de news:
OfO5aOa$
Merçi d'avoir répondu
mais je suis newbie en vb


Regarde l'exemple joint
Fais Alt+F11 pour voir le code de la fonction perso

http://cjoint.com/?lblYFFeH6U

AV




Avatar
AV
comment faire pour que cela ne marque pas #value! qd le commentaire est vide


Modifie la fonction comme suit :

Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function

Remplace Then COMMENTAIRE = "" par ce que tu veux

AV

Avatar
Claudy
Cool
Merci beaucoup

"AV" a écrit dans le message de news:
%23CUeWmd$
comment faire pour que cela ne marque pas #value! qd le commentaire est
vide


Modifie la fonction comme suit :

Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function

Remplace Then COMMENTAIRE = "" par ce que tu veux

AV




Avatar
Claudy
Merci grace à toi j'ai gagné des jous et des nuits de copier coller

;o)


"AV" a écrit dans le message de news:
%23CUeWmd$
comment faire pour que cela ne marque pas #value! qd le commentaire est
vide


Modifie la fonction comme suit :

Function COMMENTAIRE(cellule As Range)
Application.Volatile
On Error Resume Next
COMMENTAIRE = cellule.COMMENT.Text
If Err.Number <> 0 Then COMMENTAIRE = ""
End Function

Remplace Then COMMENTAIRE = "" par ce que tu veux

AV