Alimenter commentaire

D

david84

XLDnaute Barbatruc

• 12 Novembre 2015

• #2

Re : Alimenter commentaire

Bonsoir,

à tester :

Code:

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+

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 12 Novembre 2015

• #3

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 12 Novembre 2015

• #4

Re : Alimenter commentaire

Re

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, 4).Value)
  Next c
End Sub

A+

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 12 Novembre 2015

• #5

Re : Alimenter commentaire

Re

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 13 Novembre 2015

• #6

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

 

Pièces jointes

• Commentaire.xlsm

  20.4 KB · Affichages: 41
• Commentaire.xlsm

  20.4 KB · Affichages: 39

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 13 Novembre 2015

• #7

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 ?

 

Vote positif 0 Vote négatif

M

Minise

Guest

• 13 Novembre 2015

• #8

Re : Alimenter commentaire

d'apres ce que j'ai compris

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

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

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 13 Novembre 2015

• #9

Re : Alimenter commentaire

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

A+

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 13 Novembre 2015

• #10

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

 

Vote positif 0 Vote négatif