Calcul des commentaires en vba Résolu/Fermé

Question

Bonjour à tous 

Je voudrais calculer la somme des commentaires sur une ligne pour l’écrire dans une cellule au bout de la ligne   . 
De ce fait j'ai crée une macro qui me récupére ( ou est censée récupérer) les commentaires en format texte , les découpe (len) puis convertit le texte en nombre pour le calcul. 
Voilà trop compliqué pour moi , ( mais j'ai quand même essayé) 
je vous joins le code qui ne fonctionne pas  et fais appel à votre aide. 

Bonnes Fetes!!!!!!

Sub tes()Dim o As Range, i As StringFor Each o In Sheets("feuill1").Range("$I$11:$N0$11")If o.Comment.Text <> "" Then'On Error Resume Next i = 0.Comment.TextSheets("feuill1").Range("$NP$11").Value = Application.Sum(CInt((Right(i, Len(i) - 3))))End IfNextEnd Sub



J'espére que vous avez passé de bonnes fetes de Noel.




Configuration: Windows 7 / Firefox 43.0

f894009 · Answer

Bonjour,

Vous pouvez faire un ficher exemple, car additionner des commentaires nous semble pour le moins incongru

Pierre1310 · Answer

Bonjour,

Tu peux tout copier, l'enregistrer dans un fichier texte puis lancer un script qui va compter les " ' " dans ton fichier

julia Namor · Answer

Merci a vous 
le fichier ci joint
https://www.cjoint.com/c/ELCn0zNaQ0y
Cordialement

julia Namor · Answer

Merci pierre1310
Mais je ne comprends pas votre suggestion
Bien à vous

Frenchie83 · Answer

Bonjour
Essayez ceci
Sub tes()
    Application.ScreenUpdating = False
    Total=0
    On Error Resume Next
    Sheets("feuil1").Select
    For Each Item In Range("$I$11:$Z$11")
        Item.Activate
        Total = Total + CDbl(Replace(Item.Comment.Text, "rc:", ""))
    Next
    [AC11] = Total
End Sub

Cdlt

f894009 · Answer

Re,

un peu du meme style que Frenchie83 avec quelques controles en plus

Sub tes()
    Dim o As Range, i As String, TC As Variant
    
    With Sheets("feuil1")
        .Range("$AC$11").Value = Empty  'raz cellule
        For Each o In .Range("$I$11:$Z$11")
            If Not o.Comment Is Nothing Then    'cellule avec commentaire
                TC = Split(o.Comment.Text, ":")     'recuperation nombre dans TC(1)
                If IsNumeric(TC(1)) Then     'test si numerique
                    .Range("$AC$11").Value = .Range("$AC$11").Value + CDbl(TC(1))       'addition des nombres commentaires
                End If
            End If
        Next o
    End With
End Sub

julia Namor · Answer

Tout juste ce qu'il me fallait
Bravo les gars. 
Merci beaucoup

julia Namor · Answer

Je voudrais étendre la macro sur plusieurs lignes et écrire le résultat au bout de chaque ligne( comme ci dessus) 
je vous joins un fichier explicatif 



https://www.cjoint.com/c/ELCu1E3CrvA

merci

f894009 · Answer

Bonjour,

fichier modifie : https://www.cjoint.com/c/ELDhhYwEN7f

julia Namor · Answer

Bonjour *****
Merci beaucoup  f894009

bonnes fetes

Calcul des commentaires en vba

10 réponses

Discussions similaires