Formule SOMME.PROD

Question

Je me permets de vous demander de l'aide car je suis vraiment en difficulté avec la formule SOMME.PROD. (si c'est bien celle-ci que je dois utiliser... ) Dans le fichier ci-joint, j'ai une liste de victoire / défaite / nul d'une équipe. J'aimerais avoir un tableau me permettant de définir le nombre de fois qu'apparaît : le chiffre 3 après un 3 dans la colonne F le chiffre 1 après un 3 dans la colonne F le chiffre 0 après un 3 dans la colonne F En sachant qu'il ne faut pas compter les cellules vides.. Ex : (indépendant du fichier) Si A1 =3 Si A2 = vide Si A3 =1 Réponse attendue =&gt; le chiffre 1 apparaît 1 fois après le chiffre 3 2e Ex : SI A1 = 3 Si A2 = 3 SI A3 = 1 Si A4 = 3 Si A5 = 3 Réponse attendue =&gt; Le chiffre 3 apparaît 2 fois après le chiffre 3 Sincèrement merci d'avance Je commence à me tirer les cheveux avec ce problème... Cordialement Simon...

MFerrand · Answer

=SOMMEPROD(($F$3:$F$18="3")*(SI($F$4:$F$19="";$F$5:$F$20;$F$4:$F$19)="3")) Bien qu'utilisant SOMMEPROD, la formule est à valider matriciellement (par Ctrl+Maj+Entrée) Remplacer "3" par "1" ou "0".....

MFerrand · Answer

! Il y a 3 solutions :

1) Trier tes données de façon à rejeter les lignes vides à la fin, et tu pourras appliquer le SOMMEPROD classique...

2) Les lister dans une autres plages sans lignes vides (formule matricielle pour récupérer les données en les listant sans vide), et tu pourras appliquer le SOMMEPROD sur cette plage...

3) Une fonction personnalisée...

NB- Il serait cependant souhaitable au préalable que tu élimines les guillemets autour des nombres 3, 1, 0 dans tes formules, de façon que tes formules renvoie un nombre au lieu de texte...

MFerrand · Answer

Ayant tendance à choisir les solutions de facilité, j'ai commencé par une fonction personnalisée :

Function NBSUIVANTVICT(pts As Range, v As Integer) As Integer
    Dim sqc(), i%, n%, nb%
    Application.Volatile
    If v <> 3 And v <> 1 And v <> 0 Then Exit Function
    If pts.Columns.Count > 1 Then
        If pts.Rows.Count > 1 Then Exit Function
    End If
    For i = 1 To pts.Cells.Count
        If pts.Cells(i) <> "" Then
            n = n + 1: ReDim Preserve sqc(n)
            sqc(n) = pts.Cells(i)
        End If
    Next i
    For i = 2 To n
        If sqc(i - 1) = 3 Then
            If sqc(i) = v Then nb = nb + 1
        End If
    Next i
    NBSUIVANTVICT = nb
End Function

La formule : =NBSUIVANTVICT(F3:F19;3) renverra 4 dans ton exemple.

Mais on peut opérer aussi avec la solution 2... (à suivre).

11simon33-dom-ext-2-2.xlsm (16.62 Ko)

patrick1957 · Answer

Pourquoi insister si lourdement, on t'a lu tu sais ... https://forum.excel-pratique.com/excel/formule-somme-prod-matricielle-t82873.html...

patrick1957 · Answer

Pas utile quand tu as une qualité de réponse telle que celle de MFerrand P...

MFerrand · Answer

Merci Patrick !

Ce sujet est déjà une réplication d'un sujet précédent (sur lequel je n'étais pas intervenu, puisque beaucoup de réponses étaient déjà données...). La discussion aurait pu continuer sur le même sujet, une fois les précisions sur la question apportée... mais on peut admettre que passer sur un sujet neuf pouvait clarifier...

Maintenant, répliquer ce sujet alors qu'il est toujours bien en cours, c'est assez peu compréhensible !

N'appréciant pas les manipulations de ce genre, je m'abstiens donc de poursuivre et je classe le classeur .