Commentaire

[david45000]

Bonjour,

J'ai des commentaires sur la feuille 1 et je souhaiterai faire apparaître celui-ci sur la feuille 2.

Ex: feuille 1 cellule A1 >>> feuille 2 cellule D1

feuille 1 cellule A2>>>> feuille 2 cellule D2


merci d'avance

 

[phlaurent55]

Re : Commentaire

Salut DAVID


à mettre en D1 de la feuille2

=Feuil1!A1

et en D2 de la feuille2

=Feuil1!A2

 

[david45000]

Re : Commentaire

Oui, mais ce n'est pas cela, je veux que les commentaires avec un triangle rouge apparaîssent dans l'autre feuille.

 

[phlaurent55]

Re : Commentaire

Salut David,

autant pour moi, j'ai lu ta question trop rapidement
je pense que la soluce passe par macro.........là, il va falloir attendre les spécialistes

à+

 

[ODVJ]

Re : Commentaire

Bonsoir,

un bout de code pour ta demande :

Function commentaire(vcell As Range) As String
commentaire = vcell.Comment.Text
End Function

en feuil2!D1 tu mets =commentaire(feuil1!A1)

A+

 

[phlaurent55]

Re : Commentaire

Re,
je viens de trouver à peu près le même type de question sur le fil suivant

https://www.excel-downloads.com/threads/commentaire.59182/

 

[david45000]

Re : Commentaire

Cela ne fonctionne pas, je l'ai mis dans la feuille 2:

Function commentaire(vcell As Range) As String
commentaire = vcell.Comment.Text
End Function

 

[ODVJ]

Re : Commentaire

Heuuuu.... tu as mis le code dans la feuille de calcul?

regardes la pièce jointe (si j'arrive à la joindre....)

A+

 

[david45000]

Re : Commentaire

Re,
je viens de trouver à peu près le même type de question sur le fil suivant

https://www.excel-downloads.com/threads/commentaire.59182/

Oui, mais le code n'est pas bon...

Merci quand même...

 

[david45000]

Re : Commentaire

Heuuuu.... tu as mis le code dans la feuille de calcul?

regardes la pièce jointe (si j'arrive à la joindre....)

A+

Merci c'est génial cela fonctionne, seul petit soucis lorsque je faire entrée dans le commentaire, l'affichage dans la cellule de la feuille 2 faire apparaître des carrés au lieu des espaces, puis-je les mettres sur 2 lignes dans la même cellule.

je cherche compliqué....

 

[david45000]

Re : Commentaire

lors de la saisie "=commentaire(feuil1!A1)" dans la feuille 2, lorsqu'il ni y a pas de commentaire cela m'affiche "#VALEUR!", y a t'il un moyen de pas avoir cette valeur là.

Merci.

 

[ODVJ]

Re : Commentaire

tu mets
If vcell.Comment Is Nothing Then commentaire = "" Else commentaire = vcell.Comment.Text

à la place de

commentaire = vcell.Comment.Text

pour les retours charriots, je ne sais pas pour l'instant

peut-être qu'en passant par un SUB plutôt que par une fonction on peut éliminer ce problème.
A+

 

[david45000]

Re : Commentaire

tu mets
If vcell.Comment Is Nothing Then commentaire = "" Else commentaire = vcell.Comment.Text

à la place de

commentaire = vcell.Comment.Text

pour les retours charriots, je ne sais pas pour l'instant

peut-être qu'en passant par un SUB plutôt que par une fonction on peut éliminer ce problème.
A+

Merci cela fonctionne.

 

[ODVJ]

Re : Commentaire

pour les carrés, essaye de mettre un format "retour à la ligne auto".
chez moi ça marche

cordialement

 

[jeanpierre]

Re : Commentaire

Bonsoir ODVJ, david45000, phlaurent55,

Pour info.

Sous 2000, aucun retour chariot n'apparaît.

Bonne soirée à tous.

Jean-Pierre

Edit : Je viens de voir ton nouveau message et le retour automatique se coche tout seul. Je viens de tester sur une cellule ordinaire.