Msgbox Userform sous Excel

BonjourForum,

Dans l'Userform du fichier ci-joint :

https://www.excel-pratique.com/~files/doc/Z791SProje2t.xls

Je souhaite intégrer une fonction de recherche à partir de mon Userform de Saisie sur la feuille active.

En cliquant sur le bouton "Rechercher", j'ai une Frame Masquée qui apparaît pour taper le mot recherché. En fin de recherche à la Question :"Recherche termininée - Continuer Oui, Non ? je voudrai masquer de nouveau la Frame "Rechercher" si la réponse donnée est Non.

Le Code n'est pas très propre Désolé pour les Pros

Merci de votre Aide

Callou

Bonjour Callou,

Voici le code modifié dans la procédure "Recherche" :

Sub Recherche(Début As Long)  'Début = Ligne

    Dim x As Long
    Dim Found As Boolean
    Dim strReponse As Integer

    Button_Suivant.Visible = True
    Found = False

    For x = Début To Limite
        If UCase(Range("A" & x)) Like "*" & UCase(UserForm2.Mot_Recherche.Value) & "*" Then
            Found = True
            Remplir ActiveSheet, x
            Ligne = x + 1
            Exit For
        End If
    Next

    If x > Limite Then
        strReponse = MsgBox("Recherche terminée - Rechercher un autre mot ?", vbYesNo)

        If strReponse = vbYes Then
            Frame3.Visible = True
            Mot_Recherche = ""
            Mot_Recherche.SetFocus
        Else
            Mot_Recherche = ""
            Button_Suivant.Visible = False
            Frame3.Visible = False
        End If
    End If
End Sub

https://www.excel-pratique.com/~files/doc/Z791SProje2t_v1.xls

Bonsoir Matthieu33,

C'est Impec Merci pour ton aide

A+

Callou