VBA - Rechercher valeur saisie dans un TextBox

Bonjour à tous,

Je suis actuellement en train d'écrire une macro avec VBA mais je rencontre un petit soucis:

je saisis une valeur dans le TextBox du Userform1 de mon premier classeur et j'aimerai rechercher cette valeur parmi les lignes d'un autre classeur.

Pour ça j'ai déclaré une variable Public à laquelle j'affecte la valeur de mon TextBox pour ensuite utiliser la méthode Find, malheureusement la méthode me retourne Nothing.

Voici le code que j'ai écris:

Public Sub Recherche()

id_formulaire = TextBox1

'Retrouver les informations de la demande enregistrées sur la feuille 2

Dim formulaire_trouvé As Range

Set formulaire_trouvé = Workbooks("Demande_congé.xlsm").Sheets("Feuil2").Range("A5:A100").Find(id_formulaire, lookat:=xlWhole)
If Not formulaire_trouvé Is Nothing Then
ligne_form = formulaire_trouvé.Row
col_form = formulaire_trouvé.Column
End If

End Sub

Est-ce que quelqu'un peut m'aider à trouver une solution?

Merci beaucoup

Bonjour,

essaie ceci,

sinon mets-nous ton fichier.

Public Sub Recherche()

id_formulaire = userform1.TextBox1

'Retrouver les informations de la demande enregistrées sur la feuille 2

Dim formulaire_trouvé As Range

Set formulaire_trouvé = Workbooks("Demande_congé.xlsm").Sheets("Feuil2").Range("A5:A100").Find(id_formulaire, lookat:=xlWhole)
If Not formulaire_trouvé Is Nothing Then
ligne_form = formulaire_trouvé.Row
col_form = formulaire_trouvé.Column
End If

End Sub
 

h2so4 a écrit :

Bonjour,

essaie ceci,

sinon mets-nous ton fichier.

Public Sub Recherche()

id_formulaire = userform1.TextBox1

'Retrouver les informations de la demande enregistrées sur la feuille 2

Dim formulaire_trouvé As Range

Set formulaire_trouvé = Workbooks("Demande_congé.xlsm").Sheets("Feuil2").Range("A5:A100").Find(id_formulaire, lookat:=xlWhole)
If Not formulaire_trouvé Is Nothing Then
ligne_form = formulaire_trouvé.Row
col_form = formulaire_trouvé.Column
End If

End Sub
 

Je te remercie h2so4 pour ta réponse!

C'est un détail tout simple que je n'avais pas testé et maintenant ça fonctionne nickel.. Merci beaucoup!