XL 2013 problème inscription textbox

[dohurden]

Bonsoir à tous,

Je m'excuse de vous poser un problème qui va sans doute vous paraître bête.
Novice dans VBA et curieux de me perfectionner, j'ai voulu me créer un petit fichier me permettant de gérer au mieux des matériels soumis à péremption.
Je me suis créer une base données, que je voudrais modifier par formulaire et systèmes de combobox en cascade. A force de recherche et de récupérations de code par ci par là, jusque là ca marche. Le problème est que dans un textbox, j'aimerai que le stock correspondant au au produit sélectionné par les combobox s'affiche, et là c'est le drame, pas fichu de m'en sortir, ca fait 48h que je fouine de partout, et je me trouve sans possibilité de résoudre ce problème. Si une âme charitable voulait bien me donner un petit coup de pouce, se serait bien volontiers que j'accepterais merci par avance.

Je joins le fichier afin de mieux comprendre.
Le formulaire est accessible par la feuille accueil, et bouton modification stock, c'est le textbox stock qui me pose souci.

PS: ne prêtez pas attention aux codes 🙄, je suis débutant et ce n'est qu'une ebauche.

 

[JM27]

Re : problème inscription textbox

bonsoir
un début de réponse

Private Sub ComboBox4_Change()
    Dim a As Integer
        If ComboBox4 = "" Then Exit Sub
        For a = 1 To Sheets("stock").Range("A65536").End(xlUp).Row
            If ComboBox1 = Range("A" & a).Value And ComboBox2 = Range("B" & a).Value And ComboBox3 = Range("C" & a).Value And CDate(ComboBox4) = Range("d" & a).Value Then
                TextBox4.Value = Range("e" & a).Value
                Exit Sub
            End If
        Next
End Sub

 

[CPk]

Re : problème inscription textbox

Bonjour à toutes et à tous. Une autre façon

Private Sub ComboBox4_Change()    
Dim a, b, c
    a = ComboBox1 & ComboBox2 & ComboBox3 & ComboBox4
    For c = 3 To Feuil2.UsedRange.Rows.Count
        With Feuil2
            b = .Cells(c, 1) & .Cells(c, 2) & .Cells(c, 3) & .Cells(c, 4)
        End With
        If a = b Then Me.TextBox4.Text = Feuil2.Cells(c, 5)
    Next c
End Sub

 

[dohurden]

Re : problème inscription textbox

Merci énormément à vous deux d'avoir pris le temps de me répondre aussi rapidement.
J'avoue que j'ai du mal à m'en sortir avec ton code JM27, même en changeant le paramètre "a".

Par contre CPK, impec ton code marche très bien, encore un grans merci

 

[CPk]

Re : problème inscription textbox

Bonjour dohurden, si je vous ai répondu, c'est de votre faute !