Filtré numéro avec textbox dans une feuille

  • Initiateur de la discussion Initiateur de la discussion Mimi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
Je n'ai pas précisé que la colonne doit être comprise dans le filtre :
Annotation 2019-09-29 104247.png

Daniel
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
627
Retour