Discussion :

[iliesss]

bonjour
j'ai un tableau "Ta" de 8 lignes
format des chiffre utilisé dans le mon tableau et la cellule G2 est nombre avec séparation des milliers
je souhaite faire un filtre dans la 7eme ligne avec la valeurs qui se trouve dans la cellule G2
voici mon macro

Code :

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

1
2
3
4
5
Sub filtre()
    Dim str As String
    str = Format(Sheets("feuil1").Range("g2").Value, "#,##0.00")
    ActiveSheet.ListObjects("Ta").Range.AutoFilter Field:=7, Criteria1:=Array(2, str)
End Sub

le macro fonctionne avec les nombre inférieure de 999,99 .mais égale a 1 000,00 ou supérieure ça marche pas
je suis sure que le format "#,##0.00" est compatible avec les nombre inférieure de 999,99 mais plus non
SVP qu'elle format compatible avec tous les chiffres
Merci

[hyperion13]

Salut
A tester

Code :

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

1
2
3
4
5
Sub filtre()
    ...
    str = Worksheets("Feuil1").Range("G2").NumberFormat = "#,##0.00"
    ...
End Sub

[iliesss]

Bonjour
Non ça marche pas

[78chris]

Bonjour

Multi post avec des réponses ailleurs...

[iliesss]

Bonjour

Multi post avec des réponses ailleurs...

Ou est le problème

[hyperion13]

En G2, vous saisissez la valeur où elle vient d'une autre source (feuille, classeur) ?
Y a t il un intérêt de passer votre valeur en texte Dim str As String ? Un montant par défaut est Numérique !

Code :

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

1
2
3
4
5
6
7
Sub filtre()
    Dim rng As Range
    Set rng = Worksheets("Feuil1").Range("G2")
    With rng
    .NumberFormat = "#,##0.00"
    End With
End Sub

[78chris]

RE

Ou est le problème

Il est bien de le signaler (netiquette des forums d'entraide) pour éviter que des forumeurs passent du temps à te reposer les mêmes questions parce que tu ne prends pas le temps de préciser assez ton problème... et que tu n'as même pas répondu aux personnes qui t'ont proposé des solutions fonctionnelles ailleurs...