Calcul des commentaires en vba

Résolu/Fermé

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 28 déc. 2015 à 08:34
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 30 déc. 2015 à 15:39

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 String

For Each o In Sheets("feuill1").Range("$I$11:$N0$11")

If o.Comment.Text <> "" Then
'On Error Resume Next
 i = 0.Comment.Text
Sheets("feuill1").Range("$NP$11").Value = Application.Sum(CInt((Right(i, Len(i) - 3))))
End If
Next
End Sub

J'espére que vous avez passé de bonnes fetes de Noel.

A voir également:

Calcul des commentaires en vba
Calcul moyenne excel - Guide
Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Guide
Logiciel calcul plancher bois gratuit - Télécharger - Architecture & Déco
Formule de calcul excel - Guide
Logiciel gratuit calcul surface m2 - Télécharger - Outils professionnels

10 réponses

Réponse 1 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 déc. 2015 à 13:26

Bonjour,

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

Réponse 2 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
28 déc. 2015 à 14:53

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

Réponse 3 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
28 déc. 2015 à 15:26

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

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
28 déc. 2015 à 15:33

Tu dis vouloir compter le nombre de commentaires dans ton programme. je t'invite à copier ton programme, le coller dans notepad++, à utiliser la fonction recherche pour déterminer le nombre de tes commentaires

Réponse 4 / 10

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié par Frenchie83 le 28/12/2015 à 15:40

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 déc. 2015 à 15:53

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

Réponse 6 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
28 déc. 2015 à 19:06

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

Réponse 7 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
28 déc. 2015 à 21:57

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

Réponse 8 / 10

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 déc. 2015 à 08:09

Bonjour,

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

Réponse 9 / 10

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
30 déc. 2015 à 15:39

Bonjour *****
Merci beaucoup f894009

bonnes fetes

Réponse 10 / 10

Pierre1310 Messages postés 8554 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 645
28 déc. 2015 à 13:29

Bonjour,

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

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
28 déc. 2015 à 20:00

merci

Discussions similaires

Comment identifier (ou situer) qui écrit des commentaires sur mon blog ?

"L'indice n'appartient à la sélection" + VBA

exo pix

EXCEL - Calcul automatique de Fin de contrat et période d'essai

VBA : Range avec références variables..

Discussions similaires

Newsletters