Plusieurs commentaires dans une même cellule

G

guillaume

Guest
<HTML>Bonjour,

j'aimerai savoir s'il était possible de fusionner plusieurs commentaires en un seul. Je prends par exemple les commentaires de trois cellules différentes et il faudrait qu'ils soient réunis en une seule cellule.

P.S. : Je sais qu'on peut ajouter des commentaires à la suite avec l'option "partage du classeur" mais je ne veux pas l'utiliser.

Merci d'avance.

Guillaume</HTML>
 
Y

yvette

Guest
<HTML>Désolée, FEITARASSGAT, mais ceci transforme 2 ou plusieurs cellules en 1 seule, mais ne lie pas les commentaires associés. En plus, en les "fusionnant", il ne reste plus qu'une seule valeur et je ne crois pas que ce soit la question posée.

Mais par contre, je ne connais pas le moyen de lier les commentaires.</HTML>
 
S

stephane

Guest
<HTML>Bonjour


tu ne peux pas je pense.

il faudrait en créer à l'aide de boîtes textes, mais cela serait un peu l'usine à gaz.

tu peux peut-être créer une macro qui permet de saisir un commentaire à la suite d'un commentaire existant mais il y a tout de même une limite à laquantitéde texte que peut contenir un commentaire.


des bouts de code
Sub Macro1()
Dim existcomment
existcomment = ActiveCell.Comment.Text
ActiveCell.Comment.Text Text:=existcomment & Chr(10) & InputBox("Ajouter
votre commentaire")
End Sub

voir ici : http://xlbysteph.free.fr/aideinformatique/actioncellule.htm (partie commentaires)
voir ici : http://perso.wanadoo.fr/frederic.sigonneau
voir là : http://disciplus.simplex.free.fr

bye
stephane</HTML>
 
S

stephane

Guest
<HTML>Bonjour


Il existe une collection pour cet objet "comment", c'est la collection comments. Tu peux ainsi boucler sur tous les objets commentaires pour une feuille donnée et éventuellement les concaténer (les mettre bout à bout)

Sub test()
For Each cmt In ActiveSheet.Comments
If Not Intersect(cmt.Parent, Selection) Is Nothing Then cmt_all = cmt_all & cmt.Text & Chr(10)
Next cmt
If cmt_all <> "" Then MsgBox (cmt_all)
End Sub



'la macro ci-dessous permet d'enrichir des commentaires avec plusieurs interventions de différents users ; dans cet exelmple, vous avez besoin de dessiner une boîte texte avec la barre d'outils commandes/contrôles


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 12/02/02 par Royer ' et modifiée à la mano
'
Dim cl As Range, cmt_user As String
Set cl = Selection
cmt_user = "" & Application.UserName & " :" & Chr(10)

cmt_saisie = ActiveSheet.TextBox1.Text
If HasComment(cl) = False Then cl.Cells(1, 1).AddComment
cl.Comment.Shape.Placement = xlFreeFloating
cl.Comment.Shape.TextFrame.AutoSize = True
cl_cmt = cl.Comment.Text
cl_cmt_text = IIf(cl_cmt = "", cmt_user & cmt_saisie & Chr(10), cl_cmt & Chr(10) & cmt_user & cmt_saisie & chr10 & Chr(10))
cl.Comment.Text Text:=cl_cmt_text
cl.Select
End Sub

Function HasComment(rg As Range) As Boolean
Dim txNote
On Error Resume Next
txNote = rg.Comment.Text
Select Case Err
Case 0: HasComment = True 'MsgBox "Note de la cellule active: " & txNote
Case 91: HasComment = False ' MsgBox "pas de note dans la cellule active: "
Case Else: HasComment = False ' MsgBox "Erreur non prévue" & Err
End Select
On Error GoTo 0</HTML>
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG