Discussion :

[JPDU92]

Je voudrais créer un userform, jusque là, tout va bien, mais j'ai plusieurs commandbutton qui me posent problémes ! Tout d'abord, qui peut me dire comment je fais pour : j'ai quatres textbox qui doivent etre remplis par quatres cellules d'une ligne de feuille qui est définie avec une recherche par un commandbutton qui s'aide d'un textbox ou on inscrit un trigramme. C'est compliqué comme ça mais j'espére que vous comprendrez mieux avec l'image jointe.

[ouskel'n'or]

Voici toujours quelques indications
Je suppose que la donnée cherchée se trouve dans la colonne 1 et que les données à afficher sont réparties dans les colonnes 2 à 5
Dans l'userform, pour chercher la donnée dans la colonne 1 et afficher les données de la ligne correspondante, tu mets ce code dans la feuille de code de l'userform.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim FL1 As Worksheet
 
Private Sub Recherche_Click()
Dim MotCherche, Plage As Range, Cell As Range
MotCherche = Me.TextBox1.Text
ColonneRecherche = 1 'ou 2 ou 3 ou 4... à adapter
'On lance la recherche sur la colonne ColonneRecherche
Set Plage = FL1.Range(Cells(1, ColonneRecherche), _
            Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
With Plage
    Set C = .Find(MotCherche, LookIn:=xlValues)
    If Not C Is Nothing Then 'donnée trouvée
            'On place les données de la ligne dans les textbox
            Me.TextBox2.Text = FL1.Cells(C.Row, 2).Value
            Me.TextBox3.Text = FL1.Cells(C.Row, 3).Value
            Me.TextBox4.Text = FL1.Cells(C.Row, 4).Value
            Me.TextBox5.Text = FL1.Cells(C.Row, 5).Value
        Else
            MsgBox "Donnée non trouvée"
    End If
End With
 
End Sub
 
Private Sub UserForm_Initialize()
Set FL1 = Worksheets("Feuil1") 'instance de la feuille de calculs
'permet d'utiliser FL1 à la place de Worksheets("Feuil1") partout dans l'userform
 
End Sub

Le bouton est ici nommé "Recherche", tu adaptes

Tu peux éviter de même un bouton si tu mets son code dans l'événement Exit de TextBox1. Quand tu quiteras la saisie du "trigramme", le code s'exécutera.

Juste pour le principe
A+

[JPDU92]

Merci beaucoup, franchement t'es trop fort ! J'aurais mis la semaine à trouver ça ! et encore ! Sinon, si tu as le temps, je fais comment pour les autres boutons ? Je vais chercher en attendant ta réponse.
Par contre, j'ai un autre soucis, ma requete antérieur pose un probléme, disons que je voudrais que ce qu'on tape dans la box en recherche soit une valeur exacte, ne se rapportant qu'à une meme valeur, par ex, si je cherche "nimes", ça doit me donner la ligne de "nimes", et pas une premiére valeur qu'il trouve comme "nimesa". Merci d'avance.