formule et commentaire

[roulies]

Bonjour,

est il possible de faire une formule et de mettre le resultat dans un
commentaire puis faire une somme des commentaires ?

Je m'explique, j'ai un tableau de 340 lignes dans certaine cellules, j'aurais la quantité comandée .. cette quantité doit étre multipliée par la valeur d'une autre cellule de la meme ligne.

J'ai nécessité de n'avoir qu'une colonne pour la quantité, c'est pour cela que je pensait à une macro permettant de faire le calcul dans les cellules ayant une quantité, dans une plage selectionnée.

L'avantage de mettre le resultat dans le commentaire, c'est d'avoir une justification du calcul au cas ou ...

bien entendu il me faut la somme des commentaire pour connaitre la valeur de la commande.

J'espere que vous m'aurez comprise ....

roulies

 

[roulies]

Avec RANGE (C341)= sommecout cela fonctionne

Est il posible d'avoir a la place de C une variable qui correspond
à la colonne de la selection de ma plage ?

 

[sousou]

voici quelques modifications, mais attention si tu ne sélectionne pas toutes les cellules de la colonnes.
la sommecout représente la somme des cellules sélectionnées.
Sub test()

For Each c In Selection
On Error Resume Next
c.Comment.Delete
suite:
Next
On Error GoTo 0
For Each i In Selection
If i <> "" Then
cout = i * Cells(i.Row, 2)
i.AddComment.Text i & " X " & Cells(i.Row, 2) & "= " & cout
sommecout=sommecout+cout
End If
col=i.column
next
cells(341,col)=sommecout
end sub