Discussion :

[Xilian]

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

[Kedar]

Bonsoir,

cela provient probablement du fait que les nombres ne sont pas codés de la même manière qu'un texte, autrement dit 1 n'est pas égal à "1".
une solutions pourrait être (je ne l'ai pas testée) de formater temporairement la colonne en texte. cela peut se faire à l'aide de la propriété NumberFormat de l'objet Range. cela transformera tous les nombres en texte. ensuite il suffira de remettre le format en standard.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
' ajouter dans la boucle for, quelque chose comme cela
' avant la définition du filtre
Columns(i).NumberFormat = "@"
 
....

Kedar

[Xilian]

En effet c'est bien un problème de format, mais j'ai pas encore trouvé comment le résoudre avec votre fonction.

En attendant j'ai rajouté une deuxième critère dans ma fonction Autofilter avec un opérateur ET qui recherche uniquement des valeurs numériques.
Comme ça je peux filtrer en même temps les cellules avec texte et avec chiffres. Par contre le filtrage avec valeurs numériques ne marchent que avec des valeurs exactes, cela ne pas comme avec le texte et *..*.

Merci.

[Kedar]

avez vous essayé de rajouter entre votre ligne 19 et votre ligne 20 l'instruction que je vous ai indiquée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(i).NumberFormat = "@"

la colonne étant convertie en texte, vous pouvez lui appliquer vos critères

Kedar

[Xilian]

Bonjour,

en effet en ajoutant le ligne de formatage dans mon code entre la ligne 19 et 20, la colonne est bien formatée en texte (les chiffres également). Mais le filtre ne reconnait toujours pas les chiffres.

Par contre si j'ajoute un chiffre dans la colonne après avoir effectué la macro, la cellule a un triangle vert en haut à gauche pour dire que c'est un chiffre au format texte. Si je relance la macro seulement ce chiffre sera trouvé mais pas les autres d'auparavant.