Problemes de recherche vba

[wetrol]

Bonjour à tous,

Je souhaite pouvoir entrer des donnees dans la colonne entree de la feuille etat du stock.
Je pense qu'un offset feras l'affaire, mais je n'ai pas de solution pour trouver la ligne correspondante aux critéres de la combobox1 (article)ET du textbox2 (taille)
Merci pour votre aide.

ps. Le ménage sera fait dans mes macro lorsque le projet sera terminé

 

[jp14]

Re : Problemes de recherche vba

Bonjour

Ci joint le fichier excel avec
Pour la taille un combobox rempli avec les tailles associées au choix du produit.
Une colonne cachée contient le numéro de la ligne.

A tester

JP

 

[Robert]

Re : Problemes de recherche vba

Bonjour Wetrol, JP, bonjour le forum,

Enrte Rugby et VBA... Voici une autre proposition.


Édition

Vu la proposition de JP bien plus efficace...

 

[wetrol]

Re : Problemes de recherche vba

Bonjour à vous deux,

Merci pour votre aide. Je vais y ajouter un offset afin de remplir les colonnes entree et date
Merci encore
a+ peut-etre

 

[jp14]

Re : Problemes de recherche vba

Bonjour wetrol, Robert

En reprenant une idée de Robert, ci dessous la macro pour afficher la taille et le stock.
Pour éviter de modifier le code si on rajoute une colonne dans la listbox le numéro de ligne est en dernière position en utilisant "ComboBox2.ColumnCount - 1".

Private Sub ComboBox1_Change()
Dim dl1 As Long
Dim lig As Long
ComboBox2.Visible = True
flag = True
With ComboBox2
    .Clear
    .ColumnCount = 3
    .ColumnWidths = "50;50;0"
    .Style = fmStyleDropDownList '
    .BoundColumn = 1 ' combobox1.text contient le nom
End With

With Sheets("ETAT DU STOCK")
    dl1 = .Range("b65536").End(xlUp).Row
    Do
        
        lig = recherchemot("b" & lig + 1 & ":b" & dl1, ComboBox1.Value, "ETAT DU STOCK", 1)
        If lig = 0 Then Exit Do
        ComboBox2.AddItem .Range("c" & lig).Value
        ComboBox2.List(ComboBox2.ListCount - 1, 1) = .Range("f" & lig).Value
        ComboBox2.List(ComboBox2.ListCount - 1, ComboBox2.ColumnCount - 1) = lig
        If lig = dl1 Then Exit Do
    Loop
End With

flag = False
End Sub

JP

 

[wetrol]

Re : Problemes de recherche vba

C'est tout simplement superbe.....du grand art, un grand merci sincere à vous deux
Robert, merci d'avoir fait le ménage......