Comment faire une recherche via VBA

Salut Tout le monde

j'ai une feuille bien rempli presque 250 lignes, j'aimerai faire une recherche en utilisant un Userform avec un bouton de commande (rechercher), lorsque je clique sur le bouton un Inputbox s'affiche me demande de taper le (Doti), si je tape le doti et je clique sur ok les autres renseignements seront déplacées dans leurs places.
Voir le fichier attaché

et Merci

Bonjour,

Et sur quelle partie est-ce que tu bloque ?

Pour afficher une UserForm de saisie de champs, nommée UserForm1 depuis un bouton Rechercher :

Code:

---

1 2 3

Private Sub CommandButton1_Click() UserForm1.Show End Sub

---

Dans la fenêtre de saisie UserForm1, lorsqu'on à saisie les champs pour compléter la feuille, on clique sur un bouton de validation.
Ce bouton recherchera le code "Doti" saisie par l'utilisateur dans un TextBox nommé TextBox1.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click() Dim code As String code = TextBox1.Text Dim r As Range With Worksheets("Feuil1") 'nom de la feuille contenant le tableau For Each r In .Range("A2:A" & .Range("A2").End(xlDown).Row) If r.Value = code Then r.Offset(0, 1).Value = <Nouveau nom> r.Offset(0, 2).Value = <Nouveau Prenom> r.Offset(0, 3).Value = <Nouvelle Profession> r.Offset(0, 4).Value = <Nouvelle Adresse> r.Select ' sélectionne la cellule pour visualiser le résultat End If Next r End With Hide 'pour fermer la fenêtre de saisie End Sub

---

Citation:

---

je clique sur ok les autres renseignements seront déplacées dans leurs places.

---

Cette partie n'est pas très claire. Mais avec le code ci-dessus, présente le code pour
récupérer ou affecter le résultat dans la ligne où se trouve le code "Doti" trouvé.

Salut BlueMonkey

je veux seulement faire la recherche par le doti, le formulaire de saisie est séparé, si vous avez une idée de recherche vous le me proposez.

Merci

Salut,

La recherche de la chaîne "Doti" est déjà intégrée dans le code envoyé précédemment.
Mais je ne sais pas ce que tu souhaites faire une fois que ce code est trouvé.
Dans l'exemple ci-dessous, le résultat de la recherche est la sélection de la cellule contenant le code "Doti" recherché.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click() Dim code As String code = TextBox1.Text Dim r As Range With Worksheets("Feuil1") 'nom de la feuille contenant le tableau For Each r In .Range("A2:A" & .Range("A2").End(xlDown).Row) If r.Value = code Then r.Select ' sélectionne la cellule contenant le code. End If Next r End With Hide 'pour fermer la fenêtre de saisie End Sub

---