zebanx
XLDnaute Accro
Bonjour à tous,
Une fonction CCval permet d'additionner sur un range un nombre de chiffres correspondant à une référence.
Par exemple
A1 = 7T2F
A2 = 7T
A3 = 7T
CCval(A1:A3;"T") = 21
CCval(A1:A3;"F") = 2
Je n'arrive cependant pas à corriger le code pour prendre plus de 1 chiffres avant chaque lettre. On devrait être limité à 2 chiffres mais 3 chiffres ne sont pas à exclure.
Auriez-vous une solution svp à me proposer ?
Comme habituellement, un petit fichier d'accompagnement.
Vous en remerciant par avance.
zebanx
Une fonction CCval permet d'additionner sur un range un nombre de chiffres correspondant à une référence.
Par exemple
A1 = 7T2F
A2 = 7T
A3 = 7T
CCval(A1:A3;"T") = 21
CCval(A1:A3;"F") = 2
Je n'arrive cependant pas à corriger le code pour prendre plus de 1 chiffres avant chaque lettre. On devrait être limité à 2 chiffres mais 3 chiffres ne sont pas à exclure.
Auriez-vous une solution svp à me proposer ?
Comme habituellement, un petit fichier d'accompagnement.
Vous en remerciant par avance.
zebanx
VB:
Function CCval(xPlage As Range, xref)
'-- CompteCarValeur(Ref)
For Each xcell In xPlage
xi = Split(xcell, xref)
If UBound(xi) > 0 Then
xn = CDbl(Mid(xcell, Len(xi(0)), 1)) '-ok si un seul chiffre
xCpt = xCpt + xn
End If
Next xcell
CCval = xCpt
End Function