Microsoft 365 Userform recherche

Robert

XLDnaute Barbatruc

Repose en paix

• 2 Août 2022

• #2

Bonjour Maxime, bonjour le forum,

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

 

Pièces jointes

• Maxime_ED_v01.xlsm

  28.1 KB · Affichages: 12

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 2 Août 2022

• #3

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 2 Août 2022

• #4

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• TEST macro Inventaire - Copie (1).xlsm

  29.5 KB · Affichages: 14

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 2 Août 2022

• #5

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 !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2022

• #6

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+

 

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 2 Août 2022

• #7

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.

 

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 2 Août 2022

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Août 2022

• #9

Pourquoi ajouter une MsgBox ?

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

 

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 3 Août 2022

• #10

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.

 

Vote positif 0 Vote négatif

M

maxime.P

XLDnaute Nouveau

• 3 Août 2022

• #11

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

 

Vote positif 0 Vote négatif