Bonjours =E0 tous,
Comment on copie les commentaires automatiquement.
Ex en A1 j'ai un chiffre avec un commentaire
en H1 je fait =3DSI(A1<1;"";A1) mais il ne me met pas le commentaire
saisie
tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir =E0 mon secours.
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
Daniel
Bonjour. Non, Les fonctions ne travaillent que sur les valeurs. Cordialement. Daniel "Fredy" a écrit dans le message de news:
Bonjours à tous, Comment on copie les commentaires automatiquement. Ex en A1 j'ai un chiffre avec un commentaire en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire saisie tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
Bonjour.
Non, Les fonctions ne travaillent que sur les valeurs.
Cordialement.
Daniel
"Fredy" <laurent.fredy@wanadoo.fr> a écrit dans le message de news:
1166020031.006093.19560@l12g2000cwl.googlegroups.com...
Bonjours à tous,
Comment on copie les commentaires automatiquement.
Ex en A1 j'ai un chiffre avec un commentaire
en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire
saisie
tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
Bonjour. Non, Les fonctions ne travaillent que sur les valeurs. Cordialement. Daniel "Fredy" a écrit dans le message de news:
Bonjours à tous, Comment on copie les commentaires automatiquement. Ex en A1 j'ai un chiffre avec un commentaire en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire saisie tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
FdeCourt
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjours à tous, Comment on copie les commentaires automatiquement. Ex en A1 j'ai un chiffre avec un commentaire en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire saisie tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range)
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
puis dans ta feuille de calcul tu l'appelles ainsi :
en B1 :
=com(B1, A1)
et ca va te copier le contenu de la cellule A1 en B1, ainsi que son
commentaire.
Bonjours à tous,
Comment on copie les commentaires automatiquement.
Ex en A1 j'ai un chiffre avec un commentaire
en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire
saisie
tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjours à tous, Comment on copie les commentaires automatiquement. Ex en A1 j'ai un chiffre avec un commentaire en H1 je fait =SI(A1<1;"";A1) mais il ne me met pas le commentaire saisie tous le reste fonctionne bien. Question pourquoi et comment ?
Je remercie tous ceux qui peuvent venir à mon secours.
Fredy
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range)
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
puis dans ta feuille de calcul tu l'appelles ainsi :
en B1 :
=com(B1, A1)
et ca va te copier le contenu de la cellule A1 en B1, ainsi que son
commentaire.
Bonjour,
Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire
apres essai la valeur apparait mais sans le commentaire.
y aurai-t-il quelque chose à faire ?
Fredy
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
FdeCourt
Salut Fredy, Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à rentrer l'adresse de la cellule appelante :
Function com(r As Range) Dim x As Range Set x = Application.Caller Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton problème. Dans B1, je met la formule, avec A1 de vide Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon. Par contre, effectivement, il faut mettre le commentaire avant le contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
Salut Fredy,
Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à
rentrer l'adresse de la cellule appelante :
Function com(r As Range)
Dim x As Range
Set x = Application.Caller
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton
problème.
Dans B1, je met la formule, avec A1 de vide
Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon.
Par contre, effectivement, il faut mettre le commentaire avant le
contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range)
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
puis dans ta feuille de calcul tu l'appelles ainsi :
en B1 :
=com(B1, A1)
et ca va te copier le contenu de la cellule A1 en B1, ainsi que son
commentaire.
Bonjour,
Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire
apres essai la valeur apparait mais sans le commentaire.
y aurai-t-il quelque chose à faire ?
Fredy
Salut Fredy, Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à rentrer l'adresse de la cellule appelante :
Function com(r As Range) Dim x As Range Set x = Application.Caller Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton problème. Dans B1, je met la formule, avec A1 de vide Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon. Par contre, effectivement, il faut mettre le commentaire avant le contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
Fredy
salut, J'ai testé et ça Marche un grand merci à toi fredy
Salut Fredy, Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à rentrer l'adresse de la cellule appelante :
Function com(r As Range) Dim x As Range Set x = Application.Caller Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton problème. Dans B1, je met la formule, avec A1 de vide Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon. Par contre, effectivement, il faut mettre le commentaire avant le contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
salut,
J'ai testé et ça Marche
un grand merci à toi
fredy
Salut Fredy,
Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à
rentrer l'adresse de la cellule appelante :
Function com(r As Range)
Dim x As Range
Set x = Application.Caller
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton
problème.
Dans B1, je met la formule, avec A1 de vide
Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon.
Par contre, effectivement, il faut mettre le commentaire avant le
contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range)
Dim v As Shape
On Error Resume Next
Set v = x.AddComment
If Error <> "" Then
x.Comment.Text r.Comment.Text
Else
v.Text r.Comment.Text
End If
com = r.Value
End Function
puis dans ta feuille de calcul tu l'appelles ainsi :
en B1 :
=com(B1, A1)
et ca va te copier le contenu de la cellule A1 en B1, ainsi que son
commentaire.
Bonjour,
Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire
apres essai la valeur apparait mais sans le commentaire.
y aurai-t-il quelque chose à faire ?
Fredy
salut, J'ai testé et ça Marche un grand merci à toi fredy
Salut Fredy, Déjà tu peux mettre cette fonction plutot, qui t'évite d'avoir à rentrer l'adresse de la cellule appelante :
Function com(r As Range) Dim x As Range Set x = Application.Caller Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
Ensuite, chez moi ca marche, donc je ne comprend pas ou est ton problème. Dans B1, je met la formule, avec A1 de vide Je met un commentaire a A1, puis je remplis A1, et hop, tout est bon. Par contre, effectivement, il faut mettre le commentaire avant le contenu
Salut,
Je m'en vais contredire un peu Daniel, mais essaye ce genre de truc :
Function com(x As Range, r As Range) Dim v As Shape On Error Resume Next Set v = x.AddComment If Error <> "" Then x.Comment.Text r.Comment.Text Else v.Text r.Comment.Text End If com = r.Value End Function
puis dans ta feuille de calcul tu l'appelles ainsi : en B1 : =com(B1, A1) et ca va te copier le contenu de la cellule A1 en B1, ainsi que son commentaire.
Bonjour, Cette fonction marche mais apres coup,CaD quand A1 existe avant B1.
Qu'en est-il si B1 est préparé a recevoir la valeur+commentaire apres essai la valeur apparait mais sans le commentaire. y aurai-t-il quelque chose à faire ? Fredy
