Discussion :

[medino55]

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

[BlueMonkey]

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 :

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

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 :

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
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

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é.

[medino55]

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

[BlueMonkey]

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 :

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

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