Alimenter commentaire

[Mapat]

Bonjour

Est-il possible de mettre le résultat d'une formule dans un commentaire ?

Petit fichier en PJ ou j'aimerais voir s'afficher dans les commentaires le total

Merci et bonne soirée à tous

 

[david84]

Re : Alimenter commentaire

Bonsoir,

à tester :

Sub test() 
Set f = Sheets("feuil1") 'nom de la feuille à adapter
  For Each c In f.Comments
    c.Text Text:=CStr(c.Parent.Value)
  Next c
End Sub

A+

 

[Mapat]

Re : Alimenter commentaire

Re, David

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

 

[david84]

Re : Alimenter commentaire

Re

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

A+

 

[Mapat]

Re : Alimenter commentaire

Re

Super, c'est bien cela !
Un grand merci pour ce petit code.
Bonne soirée

 

[Mapat]

Re : Alimenter commentaire

Re le forum, David

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

 

[gosselien]

Re : Alimenter commentaire

Bonjour,

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 ?

 

[Minise]

Re : Alimenter commentaire

d'apres ce que j'ai compris

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

+7 parce que ya 7 colonnes d'écart,

 

[david84]

Re : Alimenter commentaire

Bonjour,
il suffit donc de prendre le décalage du nombre de colonnes en compte :

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

A+

 

[Mapat]

Re : Alimenter commentaire

Re

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