Filtré numéro avec textbox dans une feuille

D

danielco

XLDnaute Accro

• 28 Septembre 2019

• #2

Bonjour,

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

Cordialement.

Daniel

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 28 Septembre 2019

• #3

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 28 Septembre 2019

• #4

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 28 Septembre 2019

• #5

En les mettant au format texte le texbox ne marche plus

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 29 Septembre 2019

• #6

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

 

Pièces jointes

• Pièce1.xlsm

  21.7 KB · Affichages: 4

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 29 Septembre 2019

• #7

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

Daniel

 

Vote positif 0 Vote négatif

Mimi

XLDnaute Occasionnel

• 29 Septembre 2019

• #8

Merci daniel pour la précission sa fonctionne
Encore merci

 

Vote positif 0 Vote négatif