Compter le nombre d'items dans une somme

Bonjour!

J'aimerais savoir s'il est possible de compter le nombre d'items dans une somme. Par exemple, si j'ai la formule =2+7+4, est-ce qu'il existe une formule pour me dire que j'ai trois items (2, 7 et 4).

La seule solution que j'ai trouvée pour le moment serait de placer chaque item des sommes dans des cases différentes et de compter le nombre de cases, mais ça serait très long...

Merci beaucoup!

Bonsoir et bienvenue,

Oui çà doit être faisable avec une petite macro

envoie une feuille avec de exemples représentatifs

Amicalement

Claude

Bonjour!

Merci beaucoup pour cette réponse très rapide! J'ai joint un exemple à mon message.

Ce que je voudrais faire, c'est compter le nombre d'éléments (excluant les 0) de chaque colonne marquée d'un point d'interrogation. Par exemple, ça donnerait 18 éléments pour la colonne "Articles". Je ne sais pas si ça peut être important, mais le nombre de lignes peut varier d'un fichier à l'autre et j'ai parfois des lignes masquées. Par contre, le nombre de colonnes ne change pas (mais la colonne B est toujours masquée).

N'hésitez pas à me demander plus de précisions au besoin. Merci encore!

Catherine

Bonsoir,

en G18

=NB.SI(G2:G15;">0")

à tirer vers la droite

Amicalement

Claude

édit: excuse, j'ai pas compris la demande, je regarde à nouveau

édit2: désolé ! je ne trouve pas, je laisse la place aux formulistes

-- Jeu Oct 07, 2010 4:19 pm --

Bonjour à tous,

Comme je n'aime pas resté sur un échec, j'ai fait appel aux "Cadors" !

voici une solution de Amadéus

Il serait préférable de placer les totaux, moyennes et formules au dessus du tableau,

ce qui te permettrai d'ajouter ou supprimer des lignes + facilement

Je regarde si je peux automatiser et éviter le tableau en bleu

Amadéus,

crois-tu que VBA va reconnaitre =LIRE.CELLULE(....) ?

c'est une 1ère pour moi

Amicalement

Claude

Bonjour!

J'ai essayé de reproduire le tout par moi-même et ça semble fonctionner à merveille!

Je vais noter ma question comme étant résolue mais je vais revenir sur le forum pour voir si tu trouves des améliorations...

Merci énormément pour ton aide!

Catherine

bonsoir à tous,

Ce fut un excellent exercice de VBA

Merci à Amadéus qui m'a bien orienté

Voici le résultat sans changer ta structure,

tu peux ajouter autant de lignes que tu veux.

Sub CompteItems()
Dim Lg%, A As Byte, cL As Byte, i%, J%, Cpt%, x
'Macro par Claude Dubois pour "kitty_mimo" Excel-Pratique le 07/10/10
'merci Amadéus pour sa formule "=Formule_Texte"
    Application.ScreenUpdating = False
    Lg = Range("c65536").End(xlUp).Row

    For A = 7 To 13
            cL = A + 9 'tableau temporaire
        For i = 2 To Lg - 3
            Cells(i, A).Copy Destination:=Cells(i, cL)
            Cells(i, cL) = "=Formule_Texte"

            x = Split(Cells(i, cL), "+")
            For J = 0 To UBound(x)
                Cpt = Cpt + 1
                If J > 0 Or Cells(i, A) > 0 Then Cells(i, "o") = Cpt
            Next J
            Cpt = 0
        Next i
            Cells(Lg, A) = Application.Sum(Columns("o")) 'résultat
            Columns("o").ClearContents
            Columns(cL).Clear
    Next A
End Sub

Amicalement

Claude