Bonjour,

j'ai réalisé un code pour faire un filtre de colonnes en fonction d'une valeur rentrée au dessus de chaque colonne. J'utilise les * * pour trouver les cellules contenant un bout de la valeur recherchée. La macro marche bien avec du texte mais elle ne marche pas avec des chiffres sauf si les chiffres contiennent une lettre à l'intérieur. Par exemple si je cherche avec le critère *1*, la macro me filtre par exemple les valeurs 11A ou 12A mais pas 1 tout simplement.

quelqu'un aurait une idée comment pouvoir filtrer tout type de format? Merci d'avance.

voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub search()
 
Dim LastLine As Integer
Dim LastCol As Integer
Dim i As Integer
Dim texte As String
Dim t As Variant
Dim ResetFilter As String
Dim SearchRow As String
SearchRow = 6
 
LastCol = Cells(SearchRow, Cells.Columns.Count).End(xlToLeft).Column
 
For i = 1 To LastCol 
 
    If Cells(SearchRow, i).Value <> "" Then
 
        texte = Cells(SearchRow, i)
        t = "=*" + texte + "*"
        Range("A9").AutoFilter Field:=i, Criteria1:=t
        ResetFilter = False
    Else
        ResetFilter = True
    End If
Next i
 
If ResetFilter = True Then
    undo_auto_filter
End If
 
End Sub