Filtré numéro avec textbox dans une feuille

[Mimi]

Bonjour à tout le forum,
Je recherche actuellement à filtré avec un textbox sur une feuille des valeurs numériques,
Dans l'exemple du classeur j'ai repris un code VBA que je me suis servi pour filtré un répertoire mais avec les numéros sa ne marche pas.
Merci pour votre aide
Michel

 

[danielco]

Bonjour,

Est-ce que les nombres ne peuvent pas être au format texte ?

Cordialement.

Daniel

 

[Mimi]

Oui si sa peut facilité
En les mettant au format texte le texbox ne marche plus

 

[danielco]

Sinon, en filtrant aussi la colonne H (qui peut être masquée) :

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim C As Range
nx = TextBox1.Text: ' [B1] = nx
If nx = "" Then
'[A2].Interior.ColorIndex = 48
On Error Resume Next
ActiveSheet.Range("A5:H" & [A65000].End(3).Row).AutoFilter Field:=1
Exit Sub
End If
'tx = "=*" & nx & "*"
tx = nx & "*"
'[A2].Interior.ColorIndex = 3
[H5].Value = "xx"
For Each C In Range("A6", Cells(Rows.Count, 1).End(xlUp))
  Cells(C.Row, 8).Value = "'" & C.Value
Next C
On Error Resume Next
ActiveSheet.Range("A5:H" & [A65000].End(3).Row).AutoFilter Field:=8, Criteria1:=tx, Operator:=xlAnd
End Sub

Cordialement.

Daniel

 

[danielco]

En les mettant au format texte le texbox ne marche plus

Bizarre, parce que, avec la macro qui précède, tout ce que je fais, c'est de recopier les valeurs au format texte dans la colonne H.

Daniel

 

[Mimi]

Bonjour Danielco,
J'ai fait la modification avec le code que tu m'as fourni, sa ne fonctionne pas à moins que je me sois trompé.
Je joints le fichier.
Merci
Michel

 

[danielco]

Je n'ai pas précisé que la colonne doit être comprise dans le filtre :

Daniel

 

[Mimi]

Merci daniel pour la précission sa fonctionne
Encore merci