Discussion :

[cobra38]

Bonjour au Forum ,

Je sollicite votre aide car je n'arrive pas à comprendre les subtilités d'excel en matière de date je m'explique
en effet , dans mon appli
1 ) je rentre une date dans la table 1 au moyen d'un userform
userform "toto" => champ date de mise à jour dans table1 = dateNow :
çà donne ceci

Code :

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

DateNow = Format(Now(), "dd/mm/yyyy")

2) ensuite à partir d'un autre userform "tata"
je sélectionne le champ de la table1 sous cette forme :

Code :

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

1
2
3
4
5
6
 
With .Range("A2:J" & LastLig)
     .AutoFilter Field:=1, Criteria1:=ComboBox1
     .AutoFilter Field:=2, Criteria1:=ComboBox2
     .AutoFilter Field:=7, Criteria1:=CDate(ComboBox3) <= champ date de mise à jour
End With

et là il ne retrouve pas la date selectionnée pourtant dans la table1
j'ai bien la cellule avec la date concernée

merci par avance , votre aide me serait très precieuse
A+

[rvtoulon]

Bonjour,
l'enregistreur de macro donne ceci (il faut adapter):

Code :

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

1
2
ActiveSheet.Range("$C$1:$C$6").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, "10/21/2010")

tu remarques le format de la date et le fait qu'il utilise un array.

donc en adaptant ce devrait être comme ceci:

Code :

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

1
2
3
4
5
6
7
nvdate = Format(Me.ComboBox1.Value, "MM/DD/YYYY")
With .Range("A2:J" & LastLig)
     .AutoFilter Field:=1, Criteria1:=ComboBox1
     .AutoFilter Field:=2, Criteria1:=ComboBox2
     .AutoFilter Field:=7, Operator:= _
        xlFilterValues, Criteria2:=Array(2, nvdate)
End With

EDIT: j'ai fait ceci sous Excel 2007

[cobra38]

merci rvtoulon

il est impératif de passer par un format anglais ? ou bien
puis-je faire :

Code :

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

1
2
 
nvdate = Format(Me.ComboBox1.Value, "DD/MM/YYYY")

A+

[rvtoulon]

Dans ma combobox mon format de date est français. 10/01/2010
Apparement l'enregistreur (ou le filtre) la recherche au format anglais. 01/10/2010
Il est donc nécessaire de formater la date en "MM/DD/YYYY".

[cobra38]

Merci encore rvtoulon

Ok date en anglais donc ..

une dernière chose si tu le permets
peux-tu me renseigner sur le terme "Criteria"
comme tu as pu remarquer , je fais un filtre sur 3 critères de choix
dois-je nécessairement identifier
Criteria1: 1er choix
Criteria2: 2ieme choix ...
etc...
car j'ai remarque que dans ton ex , il y avait "criteria2" ..

Merci
A+

[mercatog]

Si tu veux filtrer sur la colonne 7 les date inférieures à la date de ComboBox3

Code :

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

1
2
3
4
5
    With .Range("A2:J" & LastLig)
        .AutoFilter Field:=1, Criteria1:=ComboBox1
        .AutoFilter Field:=2, Criteria1:=ComboBox2
        .AutoFilter Field:=7, Criteria1:="<=" & CLng(ComboBox3)
    End With

[rvtoulon]

re,

je fais un filtre sur 3 critères de choix
dois-je nécessairement identifier
Criteria1: 1er choix
Criteria2: 2ieme choix ...

Regarde ce que dis l'aide dans l'éditeur vba (F1) sur la fonction autofilter tu trouveras la réponse.

[cobra38]

Merci à vous deux

pour mercatog
j'ai du mettre :

Code :

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

1
2
.AutoFilter Field:=7, Criteria2:="<=" & CLng(ComboBox3)

pour que çà marche
sinon maintenant j'ai mon filtre mais j'avoue que même avec F1 j'ai un peu de mal à comprendre l'astuce de la deuxième condition de criteria2

Merci encore
A+