Recherche nouvelle occurence dans un seul TextBox

Bonjour Forum,

Je vous préviens c'est un peu long a expliquer ... Mais il vaut mieux un bon énoncé au problème

Il doit-y- avoir c'est vrai énormément de possibilité et de question en Vba pour effectuer cette macro et en regardant de nombreux exemples çà peut paraître simple mais....

j'ai utilisé une première méthode le but étant de :

Récupérer la valeur recherché ici "X" et la récupérer en même temps que les autre valeurs de la ligne dans lesTextBox de l'Userform. Mais je n'arrive pas à repartir en recherche sur la nouvelle Occurence.

Normal me direz-vous en regardant le fichier car la saisie "demande" et le "résultat" se font dans le même TextBox donc redondance.

Il faut donc une valeur de comparaision donc une autre TextBox de "Saisie".

Est-ce-qu'il existe une fonction VBA permettant de conserver une première valeur de recherche "X" en "Tampon" pour le cas ou l'on souhaite utiliser une seule TextBox en "Recherche" et "Réponse" de plusieurs Occurences ?

Re :

Désolé Pb avec la souris + de Piles

Pour le Fichier de plus en plus gourmand + de 100 Ko donc pas possible.

Pour Celles et ceux que ca interessent, ci-dessous le code concerné. (c'est sur que sans l'UserForm en fonction c'est moins parlant, mais bon...)

Commentaires : A l'origine la Recherche initiale se faisait en Désignation.TextBox dans l'UserForm2 (donc la réponse selon "Remplir" également) d 'où Pb

Mais ne résoud pas ma question voir plus haut ("X" en Tampon ?)

Des fois je me prends bien la tête

Private Sub Remplir(sh As Worksheet, ligne As Long)
    UserForm2.Désignation.Value = sh.Cells(ligne, "A").Value
    UserForm2.Catégorie.Value = sh.Cells(ligne, "B").Value
    UserForm2.Condit.Value = sh.Cells(ligne, "C").Value
    UserForm2.Entrée.Value = sh.Cells(ligne, "D").Value
    UserForm2.Puht.Value = sh.Cells(ligne, "E").Value
    UserForm2.Pvte.Value = sh.Cells(ligne, "G").Value
    UserForm2.Dlc.Value = sh.Cells(ligne, "J").Value
    UserForm2.TextBox_Stock.Value = sh.Cells(ligne, "F").Value
    UserForm2.TextBox_Etat.Value = sh.Cells(ligne, "I").Value
    UserForm2.TextBox_Sortie.Value = sh.Cells(ligne, "H").Value
End Sub

Private Sub Vider()
    UserForm2.Désignation.Value = ""
    UserForm2.Catégorie.Value = ""
    UserForm2.Condit.Value = ""
    UserForm2.Entrée.Value = ""
    UserForm2.Puht.Value = ""
    UserForm2.Pvte.Value = ""
    UserForm2.Dlc.Value = ""
    UserForm2.TextBox_Stock.Value = ""
    UserForm2.TextBox_Etat.Value = ""
    UserForm2.TextBox_Sortie.Value = ""
End Sub

Private Sub Button_Rechercher_Click()
    Dim x As Long
    Dim Found As Boolean
    Dim Reponse As Integer

    Found = False

    If UserForm2.TextBox_Nom_Frn = "" Then
        MsgBox "Vous devez saisir une Recherche", vbCritical
        Exit Sub
    End If

    For x = 4 To Range("A65535").End(xlUp).Row
        If UCase(Range("A" & x)) Like "*" & UCase(UserForm2.TextBox_Nom_Frn.Value) & "*" Then
            Found = True
            Remplir ActiveSheet, x
            MsgBox "Poursuivre la recherche ?", vbYesNo
            If vbYes Then

        End If
   End If
      Next x

    If Not Found Then

Reponse:          MsgBox ("Requête non trouvée !"), vbRetryCancel + vbExclamation
        If Reponse = Retry Then
            Vider
            Désignation.SetFocus
        End If
    End If
End Sub