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

Commentaires "dynamiques" d'une cellule

10 réponses
Avatar
mik
Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

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

10 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
Francois L
Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)



Bonsoir,

Je ne crois pas... mais tu peux obtenir quelque chose d'approchant en
utilisant des textbox.

--
François L

Avatar
MichDenis
OUI, si tu l'écris manuellement au moment de créer le commentaire.

Pour ce qui est de sa mise à jour suite à une modification du texte
de la cellule source, jusqu'à hier, c'étai impossible sans VBA.


"mik" a écrit dans le message de news:

Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance
Avatar
mik
Je ne peux donc pas faire référence à une cellule pour un commentaire... Bien
dommage!
Merci de vos réponses

"MichDenis" wrote:

OUI, si tu l'écris manuellement au moment de créer le commentaire.

Pour ce qui est de sa mise à jour suite à une modification du texte
de la cellule source, jusqu'à hier, c'étai impossible sans VBA.


"mik" a écrit dans le message de news:

Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance





Avatar
DarthMac
hello mik,

pourquoi "sans VBA". J'ai fait un truc équivalent (commentaires changeant
selon une macro qui gère des ordres de tri d'un tableau) et c'est simple,
pratique et utile.

Mac

"mik" a écrit dans le message de news:

Je ne peux donc pas faire référence à une cellule pour un commentaire...
Bien
dommage!
Merci de vos réponses

"MichDenis" wrote:

OUI, si tu l'écris manuellement au moment de créer le commentaire.

Pour ce qui est de sa mise à jour suite à une modification du texte
de la cellule source, jusqu'à hier, c'étai impossible sans VBA.


"mik" a écrit dans le message de news:

Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance







Avatar
JB
Bonjour,

Voir PJ: http://cjoint.com/?kitVKJ7Twa

JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance


Avatar
JB
Autre solution avec shapes liés:

http://cjoint.com/?kivodpFoYS

Lorsque le commentaire est saisie en colonne A, un shape est crée:

-Si le commentaire est modifié, le shape est modifié
-Les shapes peuvent être déplacés et modifiés

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
On Error Resume Next
nom = Shapes(Target.Address).TextFrame.Characters.Text
If Err <> 0 Then
On Error GoTo 0
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 120, 20).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 8
nom = Target.Address
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = Target.Offset(0, 1).Left +
10
ActiveSheet.Shapes(nom).Top = Target.Top
ActiveSheet.Shapes(nom).TextFrame.Characters.Text = Target
Target.Select
Else

ActiveSheet.Shapes(Target.Address).TextFrame.Characters.Text = Target
End If
Else
On Error Resume Next
Shapes(Target.Address).Delete
End If
End If
End Sub


JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance


Avatar
DarthMac
bravo JB, deux solutions élégantes je trouve... cela dit, arrête parce que
le monsieur il a dit, sic : "sans VBA"

:-)

++ Mac

"JB" a écrit dans le message de news:

Autre solution avec shapes liés:

http://cjoint.com/?kivodpFoYS

Lorsque le commentaire est saisie en colonne A, un shape est crée:

-Si le commentaire est modifié, le shape est modifié
-Les shapes peuvent être déplacés et modifiés

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
On Error Resume Next
nom = Shapes(Target.Address).TextFrame.Characters.Text
If Err <> 0 Then
On Error GoTo 0
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 120, 20).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 8
nom = Target.Address
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = Target.Offset(0, 1).Left +
10
ActiveSheet.Shapes(nom).Top = Target.Top
ActiveSheet.Shapes(nom).TextFrame.Characters.Text = Target
Target.Select
Else

ActiveSheet.Shapes(Target.Address).TextFrame.Characters.Text = Target
End If
Else
On Error Resume Next
Shapes(Target.Address).Delete
End If
End If
End Sub


JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance


Avatar
mik
merci pour toutes ces solutions.
A terme j'aurais besoin de vba pour d'autres raisons et là j'incorporerai
ces programmes .
Merci,
Mik

"DarthMac" wrote:

bravo JB, deux solutions élégantes je trouve... cela dit, arrête parce que
le monsieur il a dit, sic : "sans VBA"

:-)

++ Mac

"JB" a écrit dans le message de news:

Autre solution avec shapes liés:

http://cjoint.com/?kivodpFoYS

Lorsque le commentaire est saisie en colonne A, un shape est crée:

-Si le commentaire est modifié, le shape est modifié
-Les shapes peuvent être déplacés et modifiés

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
On Error Resume Next
nom = Shapes(Target.Address).TextFrame.Characters.Text
If Err <> 0 Then
On Error GoTo 0
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 120, 20).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 8
nom = Target.Address
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = Target.Offset(0, 1).Left +
10
ActiveSheet.Shapes(nom).Top = Target.Top
ActiveSheet.Shapes(nom).TextFrame.Characters.Text = Target
Target.Select
Else

ActiveSheet.Shapes(Target.Address).TextFrame.Characters.Text = Target
End If
Else
On Error Resume Next
Shapes(Target.Address).Delete
End If
End If
End Sub


JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance








Avatar
JB
Avec cette version, on peut pointer vers des cellules nommées.

http://cjoint.com/?kke2acc5rI

JB



merci pour toutes ces solutions.
A terme j'aurais besoin de vba pour d'autres raisons et là j'incorporer ai
ces programmes .
Merci,
Mik

"DarthMac" wrote:

bravo JB, deux solutions élégantes je trouve... cela dit, arrête parce que
le monsieur il a dit, sic : "sans VBA"

:-)

++ Mac

"JB" a écrit dans le message de news:

Autre solution avec shapes liés:

http://cjoint.com/?kivodpFoYS

Lorsque le commentaire est saisie en colonne A, un shape est crée:

-Si le commentaire est modifié, le shape est modifié
-Les shapes peuvent être déplacés et modifiés

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
On Error Resume Next
nom = Shapes(Target.Address).TextFrame.Characters.Text
If Err <> 0 Then
On Error GoTo 0
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 120, 20).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 8
nom = Target.Address
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = Target.Offset(0, 1).Left +
10
ActiveSheet.Shapes(nom).Top = Target.Top
ActiveSheet.Shapes(nom).TextFrame.Characters.Text = Target
Target.Select
Else

ActiveSheet.Shapes(Target.Address).TextFrame.Characters.Text = Target
End If
Else
On Error Resume Next
Shapes(Target.Address).Delete
End If
End If
End Sub


JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui d 'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance










Avatar
DarthMac
on ne peut plus t'arrêter ;-)

"JB" a écrit dans le message de news:

Avec cette version, on peut pointer vers des cellules nommées.

http://cjoint.com/?kke2acc5rI

JB



merci pour toutes ces solutions.
A terme j'aurais besoin de vba pour d'autres raisons et là j'incorporerai
ces programmes .
Merci,
Mik

"DarthMac" wrote:

bravo JB, deux solutions élégantes je trouve... cela dit, arrête parce
que
le monsieur il a dit, sic : "sans VBA"

:-)

++ Mac

"JB" a écrit dans le message de news:

Autre solution avec shapes liés:

http://cjoint.com/?kivodpFoYS

Lorsque le commentaire est saisie en colonne A, un shape est crée:

-Si le commentaire est modifié, le shape est modifié
-Les shapes peuvent être déplacés et modifiés

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A10], Target) Is Nothing And Target.Count = 1
Then
If Target <> "" Then
On Error Resume Next
nom = Shapes(Target.Address).TextFrame.Characters.Text
If Err <> 0 Then
On Error GoTo 0
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal,
1, 1, 120, 20).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 8
nom = Target.Address
Selection.Name = nom
ActiveSheet.Shapes(nom).Left = Target.Offset(0, 1).Left +
10
ActiveSheet.Shapes(nom).Top = Target.Top
ActiveSheet.Shapes(nom).TextFrame.Characters.Text = Target
Target.Select
Else

ActiveSheet.Shapes(Target.Address).TextFrame.Characters.Text = Target
End If
Else
On Error Resume Next
Shapes(Target.Address).Delete
End If
End If
End Sub


JB



Bonjour à tous,

est-il possible de mettre un commentaire dont le texte serait celui
d'une
autre cellule?
Pas trouvé sur internet (sans VBA)

Merci d'avance