Comptabilisé nb de chiffres séparés par virgule

bonjour, il me manque une fonction qui comptabilise des nb séparé par ","

j'en es trouvé un qui additionne mais pour le second je seche

une Solution ? Merci de votre Aide

Daniel

Bonjour,

Il y a peut-être plus simple mais bon, je t'ai écrit directement une fonction sur mesure qui vérifie et comptabilise seulement les nombres ...

Dans G4 : =NB_NB(A3:A8;",")

Dans un module :

Function NB_NB(plage As Range, separateur)
    Dim cell As Range
    NB_NB = 0
    For Each cell In plage
        tab_val = Split(cell, separateur)
        For i = 0 To UBound(tab_val)
            If IsNumeric(tab_val(i)) Then NB_NB = NB_NB + 1
        Next
    Next
End Function

Ton fichier :

Bonjour,

=SOMMEPROD(NBCAR(A3:A8)-NBCAR(SUBSTITUE(A3:A8;",";"")))+NBVAL(A3:A8)

A+

Bonjour le forum,

=SOMMEPROD(NBCAR(A3:A8)-NBCAR(SUBSTITUE(A3:A8;",";""))+1)

Bonjour,

solution via une fonction personnalisée (countn)

Function countn(p)
    Dim a
    For Each c In p
        a = Split(c, ",")
        t = t + UBound(a) + 1 - LBound(a)
    Next
    countn = t
End Function

Merci à Vous tous, j'ai l'ambarras du choix et divers Manière pour y arriver

Merci de votre Aide

Daniel