Discussion :

[DanRoz]

Bonsoir à tous,

j'ai créé le code suivant qui réalise parfaitement une extraction des données souhaitées sous excel 2003. En revanche, l'extraction ne marche pas sous 2007 et 2010. (alors que le filtre élaboré, renseigné avec les données fournies par la macro marche bien.... mais manuellement).

Maintenant que je suis sous 2010, je n'ai pas le choix, il faut que je trouve une solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
Set BaseDonneesVl = Range(Cells(1, 1), Cells(NbLignesVl, 7))
    Set criteresVl = Range(Cells(1, 10), Cells(2, 11))
    Set extractionVl = Range(Cells(1, 20), Cells(1, 26))
 
    Cells(2, 10).FormulaR1C1 = ">=" & BorneBasse
    Cells(2, 11).FormulaR1C1 = "<=" & BorneHaute
 
    BaseDonneesVl.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteresVl, CopyToRange:=extractionVl, Unique:=True
 
    NblignesVlExtraites = Application.WorksheetFunction.CountA(Columns(20))

Je précise que BorneBasse et BorneHaute sont des dates.

Si une âme charitable peut me sortir de cette ornière.

Merci d'avance

[Philippe Tulliez]

Bonjour,
Tu ne dis pas et je ne vois pas de trace de ce que les variables BorneBasse et BorneHaute représentent mais j'imagine que ce sont des dates parce-que c'est le seul cas avec les points décimales que je connaisse qui fonctionne en 2003 (version française) et pas dans les versions supérieures quand les dates sont alimentées par un code VBA alors que si la date est tapée depuis la feuille Excel, il n'y a pas de problème.
Voir discussion sur ce sujet et un tutoriel sur les filtres avancés ou élaborés

[sophieceuzin]

Bonjour,

En fonction de la version, les dates ne sont pas formatées de la même façon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub CommandButton1_Click()
  If Val(Application.Version) >= 12 Then
    [G2] = ">=" & Format(TextBox1, "mm/dd/yyyy")
    [H2] = "<=" & Format(TextBox2, "mm/dd/yyyy")
  Else
    [G2] = ">=" & TextBox1
    [H2] = "<=" & TextBox2
  End If
  [A1:E1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[G1:H2], CopyToRange:=[G6:K6]
End Sub

En pj, une extraction compatible sur toutes les versions

Ceuzin

[DanRoz]

Bonsoir et merci pour ton aide.

J'ai inséré le code sur ma macro et j'aboutis au même résultat, la zone d'extraction reste vide. (et marche toujours en employant le filtre élaboré)

Faut-il faire du copier-coller sur un nouveau module créé sur 2010 ?

C'est ce que je vais tenter.

Salut à tous, j'ai tout essayé pour aboutir au même résultat. L'extraction de VBA ne marche pas sous 2010 même en créant un nouveau fichier xlm et en réécrivant le code. En revanche la macro prépare bien le terrain car l'exécution manuelle du filtre élabore marche bien. J'avoue mon impuissance. Quelqu'un a t il déjà reussi ? Merci d'avance.

[Philippe Tulliez]

Bonjour,

Je ne comprends pas parce-que la proposition de Sophie est la même que celle que j'ai proposée il y a plusieurs mois sur ce forum (lien que j'ai déjà mis lors de ma réponse du 12/03/2013 à 23h17) et cela fonctionne parfaitement.
Le problème vient du fait que depuis la version 2007, les dates et nombres décimaux ne fonctionne plus de la même manière dans la version française du logiciel.
J'ai proposé à l'époque une astuce pour ne pas faire le test sur les dates avec une constante mais en faisant référence à une cellule.

[DanRoz]

Merci pour ta réponse. Effectivement, je n'ai pas précisé que les bornes sont issues d'un userform en amont dont les valeurs des text box sont converties au format date avec la fonction Cdate et formatées "dd/mm/yyyy". Est-la que ça péche ? Merci d'avance