Calcul des commentaires en vba
Résolu
julia Namor
Messages postés
532
Statut
Membre
-
julia Namor Messages postés 532 Statut Membre -
julia Namor Messages postés 532 Statut Membre -
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!!!!!!
J'espére que vous avez passé de bonnes fetes de Noel.
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
- Calcul km marche à pied gratuit - Télécharger - Sport
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Guide
- Calcul charpente bois gratuit - Télécharger - Architecture & Déco
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
10 réponses
Bonjour,
Vous pouvez faire un ficher exemple, car additionner des commentaires nous semble pour le moins incongru
Vous pouvez faire un ficher exemple, car additionner des commentaires nous semble pour le moins incongru
Bonjour
Essayez ceci
Cdlt
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
Re,
un peu du meme style que Frenchie83 avec quelques controles en plus
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
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
je vous joins un fichier explicatif
https://www.cjoint.com/c/ELCu1E3CrvA
merci