Addition de commentaire par bouton

bonjour

dans le fichier joint

je cherche comment additionner tous les commentaires dans les cellules ou ils se trouvent en cliquant sur le bouton

cela le fait en double cliquant sur la cellule qui a un commentaire

mais je n'y arrive pas en une seule fois

amicalement

Bonjour,

Procédure à attacher au bouton (Affecter une macro) :

Sub NBCommentaires()

    Dim Plage As Range
    Dim Cel As Range
    Dim NBCom As Long

    Set Plage = ActiveSheet.UsedRange

    For Each Cel In Plage.SpecialCells(-4144): NBCom = NBCom + 1: Next Cel

    MsgBox "Il y a " & NBCom & " commentaire" & IIf(NBCom > 1, "s", "") & " sur la feuille !"

End Sub

re

merci pour te réponse

mais j'ai mal du m'exprimer c'est le résultat de l'addition du commentaire et non le nombre de commentaires que je recherche a afficher dans les cellules concernées

amicalement

re

milles excuses de vous embêter

mais si quelqu'un pouvais me mettre sur la voie ce serais très gentil

amicalement

Bonjour,

C'est ce qui se passe, non !

Ah ! J'avais mal lu le problème, tu veux que toutes les additions se fassent en appuyant sur le bouton ?

Re,

Avec un bouton ActiveX pour plus de commodité...

Private Sub CommandButton1_Click()
    Dim cmt As Comment
    For Each cmt In Me.Comments
        cmt.Parent = Evaluate(Replace(cmt.Text, ",", "."))
    Next cmt
End Sub

Cordialement.

re

merci beaucoup de ta réponse

cela fonctionne très très bien

encore merci

amicalement