rechercher dans userform

Version imprimable

Bonjour à toutes et à tous,

Voici mon problème :

J'ai créé un userform multipages. Je peux ajouter, modifier et supprimer des enregistrements. J'ai cherché sur différents forums le moyen d'effectuer une recherche dans un userform et j'ai beaucoup de mal à l'adapter à mon cas. Voici le code :
Code:

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 30 31 32 33 34 35 36 37 38 Private Sub BtnRechercher_Click() ' Si rien dans le champ de saisie, alors message d'erreur If frmAccueillis.txtrecherche.Text = "" Then GoTo erreur End If ' Recherche de la donnée puis selection de la ligne si donnée trouvée Dim x As Long Sheets("liste").Activate ' On recherche dans la Ligne 1 colonne E, si la case contient la même valeur que notre champ de recherche For x = 1 To Range("E65535").End(xlUp).Row If UCase(Range("E" & x)) Like "*" & UCase(frmAccueillis.txtrecherche.Value) & "*" Then ' Si on a trouvé on va à "Trouve" GoTo trouve Exit For End If ' Sinon on passe à la ligne suivante Next x ' Si on ne trouve rien, on va à "Erreur" GoTo erreur Exit Sub ' Recherche trouvée, ici comment afficher les données de la personne cherchée ? :cry: trouve: Call p_Debloque Exit Sub 'Message d'erreur erreur: MsgBox ("Ce nom n'existe pas !") Sheets("Liste").Activate End Sub
C'est pour trouver : je ne vois pas comment afficher les données dans le userform à partir d'un nom entré dans un textbox. Peut-être pourrez-vous m'aider. Un grand merci

Momo

Bonjour,
essaies comme ceci, quand la valeur est trouvée, indiquer que faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub BtnRechercher_Click()
Dim c As Range
Dim LastLig As Long
 
If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E1:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            MsgBox Me.txtrecherche.Value & " trouvé"
            Set c = Nothing
            'suite du code
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
    Unload Me
Else
    MsgBox "renseignez le texte à chercher"
End If
End Sub

06/09/2010, 19h10
momoju

recherche dans userform

merci beaucoup pour la réponse.

cela fonctionne mais ce que je souhaiterais c'est qu'une fois le nom renseigné, toutes les infos concernant la personne s'afficher dans le userform est-ce possible.

Merci

Du moment que tu as trouvé l'information, tu peux faire ce que tu veux, exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub BtnRechercher_Click()
Dim c As Range
Dim LastLig As Long, Lig as Long
 
If Me.txtrecherche.Value <> "" Then
    With Sheets("liste")
        LastLig = .Cells(Rows.Count, "E").End(xlUp).Row
        Set c = .Range("E1:E" & LastLig).Find(Me.txtrecherche.Value, LookIn:=xlValues, lookat:=xlPart)
        If Not c Is Nothing Then
            Lig=c.row   'dans Lig on a la ligne de la donnée trouvée
            Me.textbox1=.range("A" & Lig)
            Me.textbox2=.range("B" & Lig)
            Set c = Nothing
        Else
            MsgBox Me.txtrecherche.Value & " non trouvé"
        End If
    End With
Else
    MsgBox "renseignez le texte à chercher"
End If
End Sub

06/09/2010, 20h31
momoju

recherche dans userform

Encore merci

lorsque je clic sur le bouton rechercher j'ai un bug à ce niveau

Code:

Lig=.c.row 'dans Lig on a la ligne de la donnée trouvée

où est mon erreur que dois-je modifier ?

merci beaucoup
06/09/2010, 20h35
mercatog

pardon

Code:

Lig=c.row

et enlève la ligne

Code:

unload me

j'ai re édité le code précedent
06/09/2010, 21h30
momoju

rechercher dans userform

encore merci,

lorsque je clique sur rechercher l'userform se ferme et je me retrouve sur la feuille liste en A1.

je souhaiterais lorsque je rentre le nom Latour clic sur rechercher et les infos concernant cette personne s'affiche dans l'userform est-ce possible ?

cordialement,

Momo
06/09/2010, 21h49
mercatog

relis la réponse précédente
enlève la ligne

Code:

unload me

qui permet de décharger l'userform
javais ré édité le code
07/09/2010, 10h29
momoju

recherche dans userform

Bonjour,

Excuse moi, je n'avais pas bien lu ta réponse. Mille merci cela fonctionne à merveille. Bonne journée !

Cordialement,

Momo