Discussion :

[mercierlc]

Bonjour à tous!

J'aimerais créer un code me permettant de remplir mes textbox par une rechercheV de la textbox "DIN" dans ma base de données.

Merci de votre aide!

J'ai joint mon fichier Excel pour que vous compreniez mieux!

Ex: J'écris un DIN dans la textbox "DIN" et je clique sur un bouton "Rechercher" pour remplir les autres textbox de mon Userform!

[ARTURO83]

Bonjour,

Macro affectée au bouton "Rechercher_DIN par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Rechercher_DIN_Click()
    DIN = txtDin
    Set d = Sheets("Listing").Columns(2).Find(DIN)
    If Not d Is Nothing Then
        txtOG = Cells(d.Row, "A")
        txtMed = Cells(d.Row, "C")
        txtNomFab = Cells(d.Row, "D")
        txtNomCom = Cells(d.Row, "E")
        txtForme = Cells(d.Row, "F")
        txtForce = Cells(d.Row, "G")
        txtFabricant = Cells(d.Row, "H")
    End If
End Sub

Cdlt

[Transitoire]

Bonjour, juste une proposition.
Pourquoi ne pas remplacer le TextBox "DIN" par un bouton de commande avec caption"DIN" qui remplirait la même fonction,sans risque d'erreurs de frappe et qui serait plus confortable pour l'utiisateur.
Cordialement