Filtres personnalisés VBA

Paf

XLDnaute Barbatruc

• 12 Novembre 2013

• #2

Re : Filtres personnalisés VBA

bonjour,
rien compris
mais la macro du classeur fonctionne dans la mesure où en colonne A,"." est remplacé par ","
A+

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 12 Novembre 2013

• #3

Re : Filtres personnalisés VBA

En effet c'est à cause du format que ça ne marchait pas. J'ai donc ajouté ce code pour remplacer les "." par es "," sauf qu'au lieu que 6.25 devienne 6,25 j’obtiens 6 250...

Code:

Sheets("dataBase").Select
    Columns("O:O").Select
    Selection.Replace What:=".", Replacement:=","

J'ai aussi essayé ça:

Code:

Sheets("dataBase").Select
    Columns("O:O").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Même résultat...

Merci de m'aider, je ne vois pas pourquoi il me fait ça..

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 12 Novembre 2013

• #4

Re : Filtres personnalisés VBA

Re,
Très curieux !

le remplacement du point par la virgule, en manuel, fonctionne ! Cette action enregistrée par l'enregistreur de macro donne un code qui ne fonctionne plus lorsque cette macro est lancée ( et que les données ont été réinitialisées ) !!

après avoir fait maints essais notamment sur les formats, pas de solution

Désolé

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 12 Novembre 2013

• #5

Re : Filtres personnalisés VBA

D'accord merci quand même.
J'ai essayé ça :

Code:

Selection.Replace What:=".", Replacement:="."

et là ça à marché..
Je ne sais pas vraiment pourquoi d'ailleurs...
Tu aurais une idée?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Novembre 2013

• #6

Re : Filtres personnalisés VBA

Bonjour,

Sans Replace, sur le classeur donné en exemple, ceci fonctionne:

Code:

Sub Macro2()
    With ActiveSheet.Range("$A$1:$B$26")
        .Value = .Value
        .NumberFormat = "0.000"
        .AutoFilter Field:=1, Criteria1:=">40", Operator:=xlAnd, Criteria2:="<900"
    End With
End Sub

A+

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 12 Novembre 2013

• #7

Re : Filtres personnalisés VBA

Merci Hasco ca marche très bien
Par contre il faut que tous les nombres de la colonne auxquels on applique le format aient 3 chiffres après la virgule (Ni plus ni moins) ?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 12 Novembre 2013

• #8

Re : Filtres personnalisés VBA

Bonjour,

Par contre il faut que tous les nombres de la colonne auxquels on applique le format aient 3 chiffres après la virgule (Ni plus ni moins) ?

Cliquez pour agrandir...

Tu peux en mettre dix si tu veux. J'ai mis le format "0.000" car sans cela, un format sans décimaux était affiché.

A+

 

Vote positif 0 Vote négatif

R

richert90

XLDnaute Occasionnel

• 12 Novembre 2013

• #9

Re : Filtres personnalisés VBA

Ok merci beaucoup pour ton aide 😉
Merci a Paf aussi
Bonne journée

 

Vote positif 0 Vote négatif