TextBox de recherche sur feuille et non pas sur USF

Bonjour à tous,

J'ai un petit fichier sur lequel j'ajoute des entrées avec différentes données. A chaque clic sur le bouton enregistrer, les données sont stockées dans l'onglet "validations" et la feuille redevient vierge pour insérer de nouvelles données.

Afin de retrouver un document validé j'ai ajouté, sur la feuille principale (SCAN), un TextBox et un petit bouton de recherche.

Je souhaiterais que ce bouton de recherche ouvre l'onglet validations et filtre la colonne A avec ce qui est indiqué dans la text box.

Pour ce fait j'ai cette macro mais qui ne marche pas vraiment bien:

Sub CommandButton_valider_Click()

  'La cellule A1 de la feuille validation obtient la valeur de la zone de texte nommée "RECHERCHEBOX"
    Sheets("validation").Select
    Range("A1") = Sheets("SCAN").RECHERCHEBOX

'Je filtre la colonne A par le texte situé sur A1:

    Range("A2:A25000").Select

    'J'enlève d'abord les filtres qu'il pourrait y avoir:
    If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

'Je filtre selon l'info en A1
    ActiveSheet.Range("$A$2:$A$" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=[A1]

    Range("A1").Select

If Range("B1") = "0" Then MsgBox "Aucune valeur trouvée.", vbCritical, "ERREUR!"

End Sub

Merci pour votre aide.

Patrick.

Bonjour Patrick, le forum,

Un fichier (sans données confidentielles) peut-être ?

Cordialement,