Microsoft 365 Userform recherche

maxime.P · 2 Août 2022

Bonjour a tous,

Je vous expose mon blocage, j’ai créé un userform permettant de réaliser un inventaire. Cependant, je voudrais réaliser la chose suivante :
Comme vous pouvez le voir ci-dessous, j'ai deux textbox a gauche me permettant de renseigner deux informations qui seront normalement présente dans un tableau.

(ID_PN qui se trouve dans la colonne A & SN/Batch qui se trouve dans la colonne D)

Grâce à ces deux informations, je voudrais que la macro se charge de remplir les 3 autres textbox a droite (PN & Emplacement & Quantité) avec les informations correspondantes.
(PN = colonne B // Emplacement = colonne K // Quantité = colonne E

Je ne sais pas si j'ai été très claire. Si vous avez besoin de plus d'informations n'hésitez pas.

Je vous mets mon fichier en pièce jointe.

Merci d'avance pour votre aide précieuse !

Robert · 2 Août 2022

Bonjour Maxime, bonjour le forum,

Une proposition dans ton fichier modifié avec des ComboBoxes à la places des TetxBoxes :

maxime.P · 2 Août 2022

Bonjour Robert,
tout d'abord, merci pour ta réponse et pour ton implication !
J’ai un petit blocage. Lors ce que je renseigne l'ID_PN, je ne peux pas renseigner à la main le SN. il m'affiche automatiquement le MsgBox "Aucune donnée ne correspond". Saurais-tu modifier cela ?
Car ton code me paraît très complexe pour mon niveau

fanfan38 · 2 Août 2022

Bonjour
Ci joint ma solution

A+ François

maxime.P · 2 Août 2022

Bonjour François,
Merci pour votre réponse ! la solution de Robert répond un peu mieux à mes attentes. Mais je garde votre code pour ma culture personnelle.
Merci !

job75 · 2 Août 2022

Bonjour maxime.P, Robert, fanfan38,

La macro du bouton Recherche :

VB:

Private Sub CommandButton3_Click() 'Recherche
Dim i As Variant
TextBox3 = "": TextBox4 = "": TextBox5 = "" 'RAZ'
With Sheets("donneesREFLEX").[A1].CurrentRegion
    i = Application.Match(TextBox1 & " " & TextBox2, Evaluate(.Columns(1).Address & "&"" ""&" & .Columns(4).Address), 0)
    If IsNumeric(i) Then
        TextBox3 = .Cells(i, 2)
        TextBox4 = .Cells(i, 5)
        TextBox5 = .Cells(i, 11)
    End If
End With
End Sub

A+

maxime.P · 2 Août 2022

Bonjour Job75,
Merci pour ta réponse ! Elle répond parfaitement à ce que je recherchais aussi. et se rapproche beaucoup de ce que j'avais essayé de faire. C'est beaucoup plus compréhensible pour moi.

maxime.P · 2 Août 2022

Je reviens sur ce sujet,
Job75, saurais-tu ou placer le msgbox dans le cas d'une erreur ?

job75 · 2 Août 2022

Pourquoi ajouter une MsgBox ?

Quand la ligne n'est pas trouvée les TextBox restent vides, ça suffit.

maxime.P · 3 Août 2022

Bonjour Job,
Ce n'est pas moi qui vais utiliser le fichier. Par conséquent, j'aimerais qu'un message apparaisse afin d'avertir l'utilisateur que ses informations n'ont pas été renseignées.

maxime.P · 3 Août 2022

j'ai trouvé la solution.
Merci pour votre aide

Microsoft 365 Userform recherche

maxime.P

XLDnaute Nouveau

Pièces jointes

Robert

XLDnaute Barbatruc

Pièces jointes

maxime.P

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Pièces jointes

maxime.P

XLDnaute Nouveau

job75

XLDnaute Barbatruc

maxime.P

XLDnaute Nouveau

maxime.P

XLDnaute Nouveau

job75

XLDnaute Barbatruc

maxime.P

XLDnaute Nouveau

maxime.P

XLDnaute Nouveau

Discussions similaires