Problem recherche

Bonjour a tous

j'ai un gros problem, dans le fichier joint j'ai un tableau que je rempli via un useform, et j'ai fait un useform pour la recherche mais je ne c pas comment programmer ma recherche.

je voudrai efectuer une recherche par le nom ou prenom puis inscrire le ou les resultat(s) dans un troisieme useform.

j'espere mettre bien expliquer.

Si vous pouviez m'apporter une solution ou une piste qui pourai m'aider a faire le code par moi meme s'achant que je sui novice.

je vous remercie d'avance.

Bonjour,

A mettre dans le module de la Form de recherche :

Private Sub CommandButton_Rechercher_Click()

    Dim Fe As Worksheet
    Dim I As Long

    'définie la feuille de recherche
    Set Fe = Worksheets("Base")

    With Fe

        'applique un filtrage sur le nom et le prénom où
        'seuls les début de mot sont nécessaires
        '(l'astérisque permet de récupérer la 1 ère occurence)
        .UsedRange.AutoFilter 1, TextBox_Nom & "*"
        .UsedRange.AutoFilter 2, TextBox_Prenom & "*"

        'parcour le filtre et récupère la ligne qui n'est pas masquée.
        'attention, si il y a des homonymes, seule la première occurence sera retournée
        'dans le cas contraire, il faudrait stocker dans un tableau (virer le "Exit For") et mettre un bouton
        'Toupie pour naviguer dans les résultats
        For I = 2 To .UsedRange.Rows.Count

            If .Range("A" & I).EntireRow.Hidden = False Then

                TextBox_Nom = .Range("A" & I)
                TextBox_Prenom = .Range("B" & I)
                TextBox_Adresse = .Range("C" & I)
                TextBox_Tel = .Range("D" & I)
                TextBox_Port = .Range("E" & I)
                TextBox_Mail = .Range("F" & I)

                Exit For

            End If

        Next I

        'supprime le filtre automatique
        .UsedRange.AutoFilter

    End With

End Sub

Hervé.

Super

merci a toi Theze c nikel, je savai pas du tout comment faire.

merci, merci, merci