Sommeprod en vba

[biloute91]

Bonjour le forum,

la question est dans le titre. Je cherche l'équivalent de cette fonction en vba.
Je souhaite faire des statistiques à partir d'un tableau qui comporte environ 20 colonnes et un nombre de lignes indeterminées, et ce à partir d'un formulaire (non encore conçu).
Par exemple :
critère 1ere colonne = fruit (pomme,banane,poire)
critère 2ème colonne = couleur (rouge,jaune,verte,bleue)
critère 3ème colonne = qualité du fruit (mûr,très mur...)

Je souhaite savoir (par exemple)le nombre de pomme rouge mûr, soit en selectionnant le fruit dans une combobox soit à partir d'une Textbox

J'espere être clair.
Merci pour votre aide

 

[pierrejean]

Re : Sommeprod en vba

bonjour biloute 91

Tu nous fait un petit fichier exemple et on se fera un plaisir de t'expliquer

 

[biloute91]

Re : Sommeprod en vba

Ci-joint un fichier retravailler pour retirer les donnees confidentielles.
L'idée est de pouvoir faire ,si possible, des statistiques selon différents critères.

 

[cbea]

Re : Sommeprod en vba

Bonsoir Biloute91, pierrejean,

N'ayant pas compris le contenu de ton fichier, je te transmets un exemple dans le fichier joint.
En cellules F3, G3 et H3, tu mets les critères que tu veux (tu n'es pas obligé de saisir tous les critères) et ensuite, tu cliques sur le bouton "Calculer" pour avoir le nombre d'éléments correspondant aux critères.

 

[biloute91]

Re : Sommeprod en vba

Bonjour le forum, bonjour cbea,

Merci cbea cela semble correspondre à ce que je cherchais . Je l'adapte à mon besoin et te tiens informé si j'ai un problème

bonne journée

 

[biloute91]

Re : Sommeprod en vba

Bonjour au forum , bonjour cbea

J'ai adapté ton code à mes besoins et cela fonctionne parfaitement. Toutefois j'ai voulu ajouté un critère de recherche supplémentaire mais cette fois-ci numérique et non alpha. Mon problème est que le résultat ressort systématiquement à 0.

Dim strSumproduct As String
    
    
    If TextBox2.Value <> "" Then
        strSumproduct = "((LPeri = """ & TextBox2.Value & """)*1)"
    End If
    
    
    If TextBox3.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LObjet = """ & TextBox3.Value & """)*1 )"
    End If
    
    
    If ComboBox2.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LTransmis = """ & ComboBox2.Value & """)*1)"
    End If
      If ComboBox6.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LMeco = """ & ComboBox6.Value & """)*1)"
    End If
      If ComboBox7.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LResp = """ & ComboBox7.Value & """)*1)"
    End If
      If ComboBox8.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LPTF = """ & ComboBox8.Value & """)*1)"
    End If
    
    If TextBox6.Value <> "" Then
        strSumproduct = "((LPeri = """ & TextBox6.Value & """)*1)"
    End If
    
    
    If TextBox7.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LObjet = """ & TextBox7.Value & """)*1 )"
    End If
    
    
    If ComboBox12.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LTransmis = """ & ComboBox12.Value & """)*1)"
    End If
      If ComboBox10.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LMeco = """ & ComboBox10.Value & """)*1)"
    End If
      If ComboBox11.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LResp = """ & ComboBox11.Value & """)*1)"
    End If
      If ComboBox9.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LPTF = """ & ComboBox9.Value & """)*1)"
    End If
      If TextBox8.Value <> "" Then
        strSumproduct = "((LUID = """ & TextBox8.Value & """)*1)"
    End If
    
    
    [COLOR="Red"]If TextBox9.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LUID = """ & TextBox9.Value & """)*1 )"
    End If
    If TextBox10.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((Ldelai = """ & TextBox10.Value & """)*1 )"
    End If[/COLOR]
   
   
    ' Calculer le nombre d'éléments en utilisant Evaluate
    TextBox5.Value = 0
    If strSumproduct <> "" Then
        TextBox5.Value = Evaluate("SUMPRODUCT(" & strSumproduct & ")")
    End If
End Sub

Les deux lignes en rouge concernent les critères numériques de la recherche et servant au calcul.

Merci pour votre aide

 

[cbea]

Re : Sommeprod en vba

Bonjour biloute91 et à tous,

Voici une solution à tester :
Remplacer :

    If TextBox9.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LUID = """ & TextBox9.Value & """)*1 )"
    End If
    If TextBox10.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((Ldelai = """ & TextBox10.Value & """)*1 )"
    End If

par :

    If TextBox9.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((LUID = [COLOR="Red"]"[/COLOR] & TextBox9.Value & [COLOR="red"]"[/COLOR])*1 )"
    End If
    If TextBox10.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((Ldelai = [COLOR="red"]"[/COLOR] & TextBox10.Value & [COLOR="red"]"[/COLOR])*1 )"
    End If

Si cela ne fonctionne pas, il sera préférable de joindre un extrait du fichier.

 

[biloute91]

Re : Sommeprod en vba

Cela ne fonctionne pas. Je joins le fichier (que j'ai coupé pour qu'il puisse passer)

Merci

 

[cbea]

Re : Sommeprod en vba

Bonjour biloute91,

Voici une solution.

Il manquait la plage de cellules : LDelai
et j'ai mis la référence : =DECALER(RECENSEMENT!$M$2;;;NBVAL(RECENSEMENT!$A:$A)-1)

De plus, j'ai modifié toutes les plages de cellules nommées pour avoir la même hauteur en mettant : NBVAL(RECENSEMENT!$A:$A)

Ex :
pour la plage LMeco, j'ai remplacé :
=DECALER(RECENSEMENT!$J$2;;;NBVAL(RECENSEMENT!$J:$J)-1)
par
=DECALER(RECENSEMENT!$J$2;;;NBVAL(RECENSEMENT!$A:$A)-1)

 

[biloute91]

Re : Sommeprod en vba

Merci cbea , cela fonctionne.
Si je souhaite faire la même chose mais avec un format date (via DTPicker) est-ce identique ?
Comme :

If DTPicker3.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((Ldate =  " & DTPicker3.Value & " )*1 )"
    End If

 

[cbea]

Re : Sommeprod en vba

Tu peux mettre ceci :

If DTPicker3.Value <> "" Then
        If strSumproduct <> "" Then strSumproduct = strSumproduct & "*"
        strSumproduct = strSumproduct & "((Ldate =  " & CLng(CDate(DTPicker3.Value)) & " )*1 )"
End If

 

[biloute91]

Re : Sommeprod en vba

Un grand MERCI cbea


A+

 

[biloute91]

Re : Sommeprod en vba

Je suis allé un peu vite.( cela ne retire en rien ce qui j'ai dis précédemment)
En fait lorsque j'entre un critère avec la date cela fonctionne mais lorsque je fais une nouvelle recherche juste après avec un autre critère, le résultat est systématiquement 0.

 

[biloute91]

Re : Sommeprod en vba

Bonjour ,

je me permets de relancer ce post avec un besoin supllémentaire qui est de pouvoir faire une recherche entre 2 dates avec la possibilité d'y intégrer les critères définis ci-dessus.

Merci

 

[cbea]

Re : Sommeprod en vba

Bonsoir biloute91,

Pourrais-tu joindre un autre extrait de ton fichier car j'ai effectué des tests et chez moi, cela fonctionne ?

Merci