Merci pour cette réponse
Le résultat affiche la valeur de la cellule contenant le commentaire.
Ce que je voudrais, c'est faire apparaître dans les commentaires, le résultat de la formule en colonne D
Merci
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, 4).Value)
Next c
End Sub
Je me suis un peu trompé dans la formulation de ma question.
La réponse convient pour une seule colonne et moi je voudrais alimenter sur plusieurs colonnes
est-ce toujours possible ?
Merci et bonnne journée
ta demande manque un peu de clarté...
quels commentaires doivent aller dans quelles cellules ?
tu as 2 tableaux et 2 colonnes Total, quel tableau doit avoir les commentaires ?
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, c.Parent.Column +7).Value)
Next c
End Sub
Bonjour,
il suffit donc de prendre le décalage du nombre de colonnes en compte :
Code:
Sub test()
Dim f As Worksheet, c As Comment
Set f = Sheets("feuil1") 'nom de la feuille à adapter
For Each c In f.Comments
c.Text Text:=CStr(Cells(c.Parent.Row, c.Parent.Column + 7).Value)
Next c
End Sub
Merci à vous trois de vos réponses
Cette solution est la bonne ! ( Minise et David)
Pas grand chose à changer mais je n'ai pas su .......
Bonne journée