XL 2013 Somme de valeurs selon critère dans un userform

joseph974

XLDnaute Nouveau
Bonsoir à tous,
J'ai une feuille Excel comportant des données brutes. J'ai crée un userform comportant deux combobox et des textbox. Les deux combobox sont liées de manière à ce que les valeurs des textbox soient égales aux valeurs contenues dans la feuille. Tout ceci fonctionne parfaitement.
Mon problème :
Dans la feuille il existe des lignes avec des valeurs identiques (surlignées en jaune sur la feuille) mais dont la quantité disponible est différente.
Je souhaiterais pouvoir faire la somme de ces quantités et la visualiser dans le textbox "txtQDISPO".
J'ai un peu de mal à l'expliquer, aussi je vous joint un fichier épuré, qui sera plus explicite.
Merci d'avance pour vos réponses
Joseph
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour,
Essaye avec cette procédure
Code:
Sub UpdateTextBox()
'Déclarations
    Dim lastLine, I As Long

    'Liaison des valeurs des textbox avec les combobox "cboITEM" et "cboCR"
    With Sheets("DATA_STOCK")
       ' lastLine = .Range("A3").End(xlDown).Row
'ne prend pas en compte la dernière ligne
'Modifié par
        lastLine = .Cells(.Rows.Count, "A").End(xlUp).Row
        Me.txtQDISPO = 0 ' pour pouvoir calculer  **Ajouté
        For I = 1 To lastLine
            If .Range("L" & I).Value = cboADRESS.Value Then    'filtre par Adresse
                If .Range("A" & I).Value = cboITEM.Value Then    'filtre par code article
                    If .Range("e" & I).Value = Me.cboCR.Value Then    'filtre par code CR ' **ajouté
                        txtDLP.Value = .Range("D" & I).Value
                        Me.txtQDISPO.Value = Me.txtQDISPO.Value + .Range("I" & I).Value ' **ajouté
                        txtUNIT.Value = .Range("K" & I).Value
                        txtBLOCKED.Value = .Range("J" & I).Value
                    End If
                End If
            End If
        Next I
    End With
End Sub
 
Dernière édition:

joseph974

XLDnaute Nouveau
Bonjour Jacky67,
Je viens de tester. Cette procédure modifiée fonctionne au poil.
Je te remercie, tu m'enlèves quelques heures d'essais infructueux.
Je considère mon problème comme résolu.
Merci encore
Joseph
 

Discussions similaires


Haut Bas