Filtré numéro avec textbox dans une feuille

Mimi

XLDnaute Occasionnel
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
 

Pièces jointes

  • Pièce.xlsm
    21 KB · Affichages: 7

danielco

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

VB:
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

XLDnaute Accro
Je n'ai pas précisé que la colonne doit être comprise dans le filtre :
Annotation 2019-09-29 104247.png

Daniel
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna