Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel commentaires sur cellules multiples

commentaires sur cellules multiples

9 réponses
Avatar
AB
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le même
texte : un peu long...
Une idée ?
AB
Signaler un problème avec ce contenu

9 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
lSteph
Bonjour,
Ecris ton commentaire,copie la cellule,
sélectionne les cellules qui doivent faire apparaître le même.
Edition
Collage Spécial
Commentaire
Ok

Cdlt.

lSteph
AB avait écrit le 12/12/2006 :
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le même
texte : un peu long...
Une idée ?
AB


--
- -

Avatar
AB
Salut Steph,
Effectivement !
Je vais déjà gagner du temps.
Merci.
Juste pour le fun, y a pas moyen d'avoir un seul commentaire, et plusieurs
flèches pointant vers les cellules concernées?
AB


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

Bonjour,
Ecris ton commentaire,copie la cellule,
sélectionne les cellules qui doivent faire apparaître le même.
Edition
Collage Spécial
Commentaire
Ok

Cdlt.

lSteph
AB avait écrit le 12/12/2006 :
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le
même texte : un peu long...
Une idée ?
AB


--
- -





Avatar
garnote
Salut AB,

Vraiment juste pour le fun ;-)
Bricolage pas pratique et macro non optimisée !
Suppposons que tu as un "petit" commentaire affiché dans
la cellule e7 et que tu veuilles le faire pointer vers les cellules
e3, e11, h4 et h10.
Lance cette macro sur une feuille vierge pour essayer :

Sub Flèches()
Set c = [e7].Comment.Shape
With c
L = .Left
T = .Top
W = .Width
H = .Height
End With
L1 = [h4].Left
T1 = [h4].Top
H1 = [h4].Height
[h4].Interior.ColorIndex = 19
Set f1 = ActiveSheet.Shapes.AddLine(L + W, T, L1, T1 + H1)
f1.Line.EndArrowheadStyle = msoArrowheadTriangle
L2 = [h10].Left
T2 = [h10].Top
[h10].Interior.ColorIndex = 19
Set f2 = ActiveSheet.Shapes.AddLine(L + W, T + H, L2, T2)
f2.Line.EndArrowheadStyle = msoArrowheadTriangle
L3 = [e11].Left
T3 = [e11].Top
W3 = [e11].Width
[e11].Interior.ColorIndex = 19
Set f3 = ActiveSheet.Shapes.AddLine(L, T + H, L3 + W3, T3)
f3.Line.EndArrowheadStyle = msoArrowheadTriangle
L4 = [e3].Left
T4 = [e3].Top
W4 = [e3].Width
h4 = [e3].Height
[e3].Interior.ColorIndex = 19
Set f4 = ActiveSheet.Shapes.AddLine(L, T, L4 + W4, T4 + h4)
f4.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Serge

"AB" a écrit dans le message de news:
Salut Steph,
Effectivement !
Je vais déjà gagner du temps.
Merci.
Juste pour le fun, y a pas moyen d'avoir un seul commentaire, et plusieurs flèches pointant vers les cellules concernées?
AB


"lSteph" a écrit dans le message de news:
Bonjour,
Ecris ton commentaire,copie la cellule,
sélectionne les cellules qui doivent faire apparaître le même.
Edition
Collage Spécial
Commentaire
Ok

Cdlt.

lSteph
AB avait écrit le 12/12/2006 :
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le même texte : un peu long...
Une idée ?
AB


--
- -









Avatar
AB
Ben, mon colon !!!
Ca marche...et je dois dire que ça me laisse pantois.
Cela dit, tel que, c'est vraiment pour le fun, parce que si tu déplaces le
commentaire, les flèches restent à leur place.
Manque plus qu'à pouvoir sélectionner d'abord les cellules cibles des
flèches, et lancer la macro ensuite, en faisant en sorte que les flèches
suivent.
Heu...je disais ça pour plaisanter.
C'est quand même étonnant que les concepteurs d'Excel n'aient pas pensé à
ça, non ?
Peut-être dans la version 2007 ? Faudra que j'aille y jeter un oeil, quand
même.
En tout cas, merci !
André

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

Salut AB,

Vraiment juste pour le fun ;-)
Bricolage pas pratique et macro non optimisée !
Suppposons que tu as un "petit" commentaire affiché dans
la cellule e7 et que tu veuilles le faire pointer vers les cellules
e3, e11, h4 et h10.
Lance cette macro sur une feuille vierge pour essayer :

Sub Flèches()
Set c = [e7].Comment.Shape
With c
L = .Left
T = .Top
W = .Width
H = .Height
End With
L1 = [h4].Left
T1 = [h4].Top
H1 = [h4].Height
[h4].Interior.ColorIndex = 19
Set f1 = ActiveSheet.Shapes.AddLine(L + W, T, L1, T1 + H1)
f1.Line.EndArrowheadStyle = msoArrowheadTriangle
L2 = [h10].Left
T2 = [h10].Top
[h10].Interior.ColorIndex = 19
Set f2 = ActiveSheet.Shapes.AddLine(L + W, T + H, L2, T2)
f2.Line.EndArrowheadStyle = msoArrowheadTriangle
L3 = [e11].Left
T3 = [e11].Top
W3 = [e11].Width
[e11].Interior.ColorIndex = 19
Set f3 = ActiveSheet.Shapes.AddLine(L, T + H, L3 + W3, T3)
f3.Line.EndArrowheadStyle = msoArrowheadTriangle
L4 = [e3].Left
T4 = [e3].Top
W4 = [e3].Width
h4 = [e3].Height
[e3].Interior.ColorIndex = 19
Set f4 = ActiveSheet.Shapes.AddLine(L, T, L4 + W4, T4 + h4)
f4.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Serge

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

Salut Steph,
Effectivement !
Je vais déjà gagner du temps.
Merci.
Juste pour le fun, y a pas moyen d'avoir un seul commentaire, et
plusieurs flèches pointant vers les cellules concernées?
AB


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

Bonjour,
Ecris ton commentaire,copie la cellule,
sélectionne les cellules qui doivent faire apparaître le même.
Edition
Collage Spécial
Commentaire
Ok

Cdlt.

lSteph
AB avait écrit le 12/12/2006 :
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le
même texte : un peu long...
Une idée ?
AB


--
- -













Avatar
garnote
Ben, mon colon !!!
Ca marche...et je dois dire que ça me laisse pantois
;-)

Manque plus qu'à pouvoir sélectionner d'abord les cellules cibles des flèches, et lancer la macro ensuite, en faisant en sorte que
les flèches suivent.
Une belle nuit blanche en perspective. Vais tenter le coup pour

encore plus de fun ;-))

Serge

.
Cela dit, tel que, c'est vraiment pour le fun, parce que si tu déplaces le commentaire, les flèches restent à leur place.
Heu...je disais ça pour plaisanter.
C'est quand même étonnant que les concepteurs d'Excel n'aient pas pensé à ça, non ?
Peut-être dans la version 2007 ? Faudra que j'aille y jeter un oeil, quand même.
En tout cas, merci !
André

"garnote" a écrit dans le message de news:
Salut AB,

Vraiment juste pour le fun ;-)
Bricolage pas pratique et macro non optimisée !
Suppposons que tu as un "petit" commentaire affiché dans
la cellule e7 et que tu veuilles le faire pointer vers les cellules
e3, e11, h4 et h10.
Lance cette macro sur une feuille vierge pour essayer :

Sub Flèches()
Set c = [e7].Comment.Shape
With c
L = .Left
T = .Top
W = .Width
H = .Height
End With
L1 = [h4].Left
T1 = [h4].Top
H1 = [h4].Height
[h4].Interior.ColorIndex = 19
Set f1 = ActiveSheet.Shapes.AddLine(L + W, T, L1, T1 + H1)
f1.Line.EndArrowheadStyle = msoArrowheadTriangle
L2 = [h10].Left
T2 = [h10].Top
[h10].Interior.ColorIndex = 19
Set f2 = ActiveSheet.Shapes.AddLine(L + W, T + H, L2, T2)
f2.Line.EndArrowheadStyle = msoArrowheadTriangle
L3 = [e11].Left
T3 = [e11].Top
W3 = [e11].Width
[e11].Interior.ColorIndex = 19
Set f3 = ActiveSheet.Shapes.AddLine(L, T + H, L3 + W3, T3)
f3.Line.EndArrowheadStyle = msoArrowheadTriangle
L4 = [e3].Left
T4 = [e3].Top
W4 = [e3].Width
h4 = [e3].Height
[e3].Interior.ColorIndex = 19
Set f4 = ActiveSheet.Shapes.AddLine(L, T, L4 + W4, T4 + h4)
f4.Line.EndArrowheadStyle = msoArrowheadTriangle
End Sub

Serge

"AB" a écrit dans le message de news:
Salut Steph,
Effectivement !
Je vais déjà gagner du temps.
Merci.
Juste pour le fun, y a pas moyen d'avoir un seul commentaire, et plusieurs flèches pointant vers les cellules concernées?
AB


"lSteph" a écrit dans le message de news:
Bonjour,
Ecris ton commentaire,copie la cellule,
sélectionne les cellules qui doivent faire apparaître le même.
Edition
Collage Spécial
Commentaire
Ok

Cdlt.

lSteph
AB avait écrit le 12/12/2006 :
Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le même texte : un peu long...
Une idée ?
AB


--
- -

















Avatar
JB
Bonjour,


Commentaire lié au contenu d'une autre cellule (dynamique si le
commentaire est modifié)

http://cjoint.com/?mnf7j3RrY7

1- La première fois:
-Double-clic sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
With Target
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom =
NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = Target.Address
If NomCellule(Target.Address) <> "" Then nom =
NomCellule(Target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If Target <> "" Then
c.Text Target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function

Corialement JB



Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le même
texte : un peu long...
Une idée ?
AB


Avatar
AB
Chapeau JB !
Il y en a qui ont de l'idée !
Si je peux me permettre une suggestion (je n'ai aucune idée de la
faisabilité...)
Le fait de double cliquer sur la cellule supprime la modification directe
(que j'ai l'habitude d'utiliser). Ne peut-on remplacer le double clic par un
menu contextuel "ajouter commentaire", ou un bouton dans une barre d'outils,
qui lancerait la macro ?
En tout cas, bravo !
Cordialement,
André

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

Bonjour,


Commentaire lié au contenu d'une autre cellule (dynamique si le
commentaire est modifié)

http://cjoint.com/?mnf7j3RrY7

1- La première fois:
-Double-clic sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
With Target
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = Target.Address
If NomCellule(Target.Address) <> "" Then nom NomCellule(Target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If Target <> "" Then
c.Text Target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function

Corialement JB



Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le
même
texte : un peu long...
Une idée ?
AB


Avatar
JB
Bonsoir,

Variante avec Clic-droit/Commentaire lié.

http://cjoint.com/?mnuvTSDAZv

1- La première fois:
-Clic-droit/Commentaire lié sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Sub auto_open()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Commentaire lié"
temp.OnAction = "CommentaireLié"
temp.FaceId = 120
temp.BeginGroup = True
End Sub

Sub auto_close()
Application.CommandBars("Cell").Reset
End Sub

Sub commentaireLié()
With ActiveCell
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom =
NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
End Sub
Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function


Private Sub Worksheet_Change(ByVal target As Range)
If target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = target.Address
If NomCellule(target.Address) <> "" Then nom =
NomCellule(target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If target <> "" Then
c.Text target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

JB

Chapeau JB !
Il y en a qui ont de l'idée !
Si je peux me permettre une suggestion (je n'ai aucune idée de la
faisabilité...)
Le fait de double cliquer sur la cellule supprime la modification directe
(que j'ai l'habitude d'utiliser). Ne peut-on remplacer le double clic par un
menu contextuel "ajouter commentaire", ou un bouton dans une barre d'outi ls,
qui lancerait la macro ?
En tout cas, bravo !
Cordialement,
André

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

Bonjour,


Commentaire lié au contenu d'une autre cellule (dynamique si le
commentaire est modifié)

http://cjoint.com/?mnf7j3RrY7

1- La première fois:
-Double-clic sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
With Target
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom =
NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = Target.Address
If NomCellule(Target.Address) <> "" Then nom =
NomCellule(Target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If Target <> "" Then
c.Text Target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function

Corialement JB



Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieu rs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le
même
texte : un peu long...
Une idée ?
AB




Avatar
AB
Bonsoir JB,
Et bravo !
Ca marche parfaitement.
Grand merci et passe une bonne journée.
André

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

Bonsoir,

Variante avec Clic-droit/Commentaire lié.

http://cjoint.com/?mnuvTSDAZv

1- La première fois:
-Clic-droit/Commentaire lié sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Sub auto_open()
Set temp = CommandBars("cell").Controls.Add
temp.Caption = "Commentaire lié"
temp.OnAction = "CommentaireLié"
temp.FaceId = 120
temp.BeginGroup = True
End Sub

Sub auto_close()
Application.CommandBars("Cell").Reset
End Sub

Sub commentaireLié()
With ActiveCell
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
End Sub
Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function


Private Sub Worksheet_Change(ByVal target As Range)
If target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = target.Address
If NomCellule(target.Address) <> "" Then nom NomCellule(target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If target <> "" Then
c.Text target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

JB

Chapeau JB !
Il y en a qui ont de l'idée !
Si je peux me permettre une suggestion (je n'ai aucune idée de la
faisabilité...)
Le fait de double cliquer sur la cellule supprime la modification directe
(que j'ai l'habitude d'utiliser). Ne peut-on remplacer le double clic par
un
menu contextuel "ajouter commentaire", ou un bouton dans une barre
d'outils,
qui lancerait la macro ?
En tout cas, bravo !
Cordialement,
André

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

Bonjour,


Commentaire lié au contenu d'une autre cellule (dynamique si le
commentaire est modifié)

http://cjoint.com/?mnf7j3RrY7

1- La première fois:
-Double-clic sur la cellule pour créer le commentaire
- Pointer vers la cellule liée
2- Lorsque le texte est modifié dans la cellule liée , il y a maj du
commentaire

Les cellules nommées peuvent être déplacées

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
With Target
If .NoteText = "" Then
On Error Resume Next
Set reponse = Application.InputBox("Pointer vers la cellule
liée", Type:=8)
On Error GoTo 0
If Err = 0 Then
If reponse <> "" Then
nom = reponse.Address
If NomCellule(reponse.Address) <> "" Then nom > NomCellule(reponse.Address)
.AddComment reponse & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
With .Comment.Shape.OLEFormat.Object.Font
.Name = "Tverdana"
.Size = 8
.FontStyle = "Normal"
.ColorIndex = 1
End With
.Comment.Visible = True
.Comment.Shape.Select
Selection.AutoSize = True
.Comment.Visible = False
End If
End If
Else
.Comment.Delete
End If
End With
Cancel = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
For Each c In ActiveSheet.Comments
nom = Target.Address
If NomCellule(Target.Address) <> "" Then nom > NomCellule(Target.Address)
p = InStr(c.Text, nom)
If p > 0 And p = InStr(c.Text, "[") + 1 Then
If Target <> "" Then
c.Text Target.Value & Chr(10) & "[" & nom & "]" & _
Chr(10) & "[" & Now() & "]"
Else
c.Delete
End If
End If
Next c
End If
End Sub

Function NomCellule(adr)
NomCellule = ""
For Each n In ActiveWorkbook.Names
If InStr(n, adr) > 0 Then NomCellule = n.Name
Next n
End Function

Corialement JB



Bonjour à tous,
Est-il possible d'affecter facilement un commentaire unique à plusieurs
cellules ?
Actuellement je crée un commentaire pour chaque cellule, et y colle le
même
texte : un peu long...
Une idée ?
AB