FILTRE PERSONALISE VBA "COMMENCE PAR"

Version imprimable

18/04/2014, 13h55
GWuigcos

FILTRE PERSONALISE VBA "COMMENCE PAR"
Bonjour à tous !

travaillant actuellement sur une macro de traitement de données, je me trouve en face d'un problème que je ne sais résoudre.
En gros, j'ai une table de données constituée d'une première ligne avec les titres de colonnes puis envion 5000 lignes d'informations.
Chaque ligne possède une information du type numéro de dossier. Je souhaite filtrer cettre table en selectionnant les entrées pour lesquelles le numero de dossier commence par 18463 par exemple. (le numero de dossier serait par exemple 184630000120)
En cherchant un peu sur internet et notamment sur co forum j'ai trouvé le bout de code suivant :
Code:

1 2 3 Sheets("table").Activate Range("A2").CurrentRegion.AutoFilter Field:=3, Criteria1:="=" & Range("A1").Value & "*", Operator:=xlAnd
la table commence à la deuxième ligne, doù le range("A2") et en A1 j'ai ma valeur de filtre (18463 dans mon exemple).
Le problème c'est que la selection ne se fait pas, après avoir fait quelques tests je me suis rendu compte que ça marchait pour une colonne de texte et que donc le probleme viendrait du fait qu'il s'agit de nombres et non de texte.
J'ai essayé de modifier les formats de cellule en format "nombre" mais sans succès...

Avez-vous des idées pour remédier à ce problème ?

Merci

SAlut,
le fait de changer le format des cellules ne change pas directement le contenu des cellules, il faut repasser dessus en quelque sorte.

tu peux utiliser une macro genre (ou manuellement utiliser la fonction données/convertir)

dans cette macro tu as les 2 façon de faire

Code:

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 texte()
    Application.ScreenUpdating = False
    Calcul = Application.Calculation
    Application.Calculation = xlCalculationManual
    Dim c As Range, MonText As String
    If Selection.Cells.Count > 1 Then
        Set MaSelection = Intersect(Selection.SpecialCells(xlCellTypeVisible), Range("A1", ActiveSheet.UsedRange))
    Else
        Set MaSelection = Selection
    End If
    If MaSelection.Areas.Count = 1 And MaSelection.Columns.Count = 1 Then
        MaSelection.TextToColumns Destination:=MaSelection, DataType:=xlDelimited, _
                                  TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
                                  Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                                                                                            :=Array(1, 2), TrailingMinusNumbers:=True
    Else
        For Each c In MaSelection
            If Not c.HasFormula Then
                c.NumberFormat = "@"
                If Left(c.FormulaR1C1, 1) = "'" Then
                    MonText = Right(c.FormulaR1C1, Len(c.FormulaR1C1) - 1)
                Else: MonText = c.FormulaR1C1
                End If
 
                c.Value = MonText
            End If
            MonText = ""
        Next c
    End If
    Application.Calculation = Calcul
End Sub

En laissant tes données dans leur format numérique
184630000120
Commence par 18463 peux s'écrire between 184630000000 and 184640000000

18/04/2014, 14h09
Marc-L

Bonjour, bonjour,

c'est tout à fait normal pour des valeurs numériques !

Suffit de borner entre la valeur minimale et la valeur maximale …
18/04/2014, 14h28
GWuigcos

Ahh ok

oui c'est logique en fait...

bon le plus rapide va être d'encadrer en effet, meme si ça va m'obliger à revoir un peu mon truc.

Merci pour votre réactivité et pour votre aide !