Discussion :

[EmaGin]

Bonjour,
J'ai un problème avec Excel 2007 et 2010

Je viens d'installer MS Office 2010 et en voulant travailler avec une ancien fichier (97-2003) avec une macro qui utilise la fonction "Filtre avancé", je me suis rendu compte que la macro ne fonctionne plus.
Problème:
Vous savez, cette fonction nécessite de définir: une plage, une zone de critères et une zone "Copier dans".
Or, quand j'utilise le filtre avancé manuellement et que j'inscrit un nombre décimal dans la zone de critère ex 35,73 (notez ici j'utilise une virgule) le filtre fonctionne et les bonnes données apparaissent dans la zone "Copier dans".
Mais quand j'enregistre la même séquence dans une macro, pour que la macro fonctionne, je dois changer la virgule pour un point. Drôle non!
N.B. Mon système est configuré pour utiliser la virgule comme séparateur décimale.
Alors que faire?

[mercatog]

Bonjour
En vba, le séparateur décimal est toujours le point.

[EmaGin]

Voici la suggestion d'un collègue.

la cellule E6 étant la cellule de la "zone de critères" où l'on rentre une valeur décimale comprenant une virgule ex. 3,78

Je l'ai essayé et ça marche.

Salutations

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
' Macro1 Macro
    Dim x, rep As String
    x = Range("E6").Value
    rep = WorksheetFunction.Substitute(x, ",", ".")
 
    Range("e6").Value = rep
 
    Range("B2:C12").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "E5:F6"), CopyToRange:=Range("E7:F7"), Unique:=False
 
    Range("e6").Value = x
End Sub