Bonjour,
j'ai un problème dans le code suivant pour effectuer une sélection sur des colonnes dont le contenu est numérique.

Si je met dans l'argument la valeur recherchée complète, ex 8245, il trouve, si j'essaie le wildcard, ex 82*, il ne trouve rien.

Est-il possible de contourner ce problème sans changer le formattage de mes colonnes. Je voudrais vraiment pouvoir faire un filtrage sur un valeur générique d'une zone numérique.
Sur toutes les colonnes contenant du texte, pas de problème avec le wildcard.

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
Sub View_Type()
 
Dim ligne As Long
 
 
'   efface l'ancien résultat.
    ligne = Sheets("Selection").Range("G65535").End(xlUp).Row
    If ligne > 1 Then Sheets("Selection").Rows(2 & ":" & ligne).Delete shift:=xlUp
    ligne = Sheets("Selection").Range("K65535").End(xlUp).Row
    If ligne > 1 Then Sheets("Selection").Rows(2 & ":" & ligne).Delete shift:=xlUp
    ligne = Sheets("By user").Range("F65535").End(xlUp).Row
    Sheets("Selection").Select
    Sheets("By user").Range("A1:O" & ligne).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Critere").Range("A1:F2"), CopyToRange:=Range("A2"), _
        Unique:=False
End Sub