XL 2013 Addition et résultat dans Textbox avec 2 critères

[osiris150]

Bonjour,

Je cherche désespérément un moyen pour avoir dans un textbox le résultat d'une addition en fonction de 2 critères. Je m'explique :

En colonne A, j'ai un code article en Colonne B un libellé, en C une quantité et en D une date
Je souhaiterais additionner les quantités d'un même article ayant une date de livraison <= à aujourd'hui +30 jours et afficher le résultat dans un textbox.
Merci par avance pour votre aide cordialement
Nicolas

 

[vgendron]

Hello
pourquoi passer par un textbox.. d'autant que ton formulaire est incomplet.. tu ne spécifies pas le code article ainsi que le libellé
voir PJ avec une formule en E10

 

[osiris150]

Bonjour vgendron

Merci pour ta réponse.
Alors je passe par un textbox car dans mon fichier d'origine beaucoup plus lourd et complexe j'utilise des userform et le résultat doit s'afficher dans un des userform.

Ta formule est bonne mais il faudrait pouvoir la retranscrire en VBA
=SOMMEPROD(($A$2:$A$8=D10)*($B$2:$B$8=D11)*($D$2:$D$8<=AUJOURDHUI()+30)*$C$2:$C$8)

J'ai crée un userform dans lequel il faut donc rentrer un N° de commande et il faudrait que le résultat s'affiche dans le textbox2 dans le même userform

 

[ERIC S]

Bonjour à vous

Peut-être une piste à adapter

Dim tablo() As Variant
tablo = Range("A2:D8")
somme = 0
For i = 1 To 7
    If tablo(i, 1) = 11111 And tablo(i, 4) >= Date And tablo(i, 4) <= Date + 30 Then
        somme = somme + tablo(i, 3)
    End If
Next
MsgBox somme

 

[osiris150]

Bonjour Eric,

Je viens de tester votre exemple mais j'ai une erreur 1004 : "la méthode range de l'objet _global a échoué"
Je n'arrive donc pas à le faire fonctionner.

 

[ERIC S]

Bonjour

un exemple plus précis

 

[osiris150]

Merci beaucoup ! Effectivement avec votre fichier tout fonctionne correctement.
Je vais donc l'adapter.
Bonne journée
Cordialement

 

[vgendron]

Re,

Une autre solution avec des Listes déroulantes.
la première pour sélectionner le code article
la seconde se met à jour pour proposer les libellés possibles
et le TxtBox pour donner le résultat