Discussion :

[tazmania]

Bonjour à tous,

Je me trouve devant un problème dont je ne comprends pas l'origine.
Voila je fais une petite application sur Excel avec du code VBA.
Sur cette application je laisse deux cellules pour que l'utilisateur puisse saisir deux dates.
Puis l'utilisateur va cliquer sur un bouton. Sur ce, je vais exécuter ma procédure qui va filtrer un tableau qui se trouve sur un auter onglet.

J'applique mon filtre sur les deux dates données par l'utilisateur
Voila le code :

Code :

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

1
2
Selection.AutoFilter Field:=17, Criteria1:="<" & date_fin, Operator:=xlAnd _
 , Criteria2:=">" & date_deb

Bon déjà là petit souci, lorsque la date commence par 0 (exemple 01/12/06). Lors de l'exécution du filtre, la date est remplacé par Excel en 12/01/06.
Je précise que j'ai mis les cellules où l'utilisateur saisie les dates au format date " *jj/mm/aaaa ".

Pour pallier ce premier problème, j'ai mis ce petit bout de code, qui peut sans d'outre être amélioré :

Code :

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

1
2
3
4
5
6
7
8
9
10
If (Left(date_deb, 1) = "0") Then
    mois_an = Right(date_deb, 7)
    mois = Left(mois_an, 2)
    date_deb = mois + "/" + Left(date_deb, 3) + Right(date_deb, 4)
End If
If (Left(date_fin, 1) = "0") Then
    mois_an = Right(date_fin, 7)
    mois = Left(mois_an, 2)
    date_fin = mois + "/" + Left(date_fin, 3) + Right(date_fin, 4)
End If

Puis je relance mon filtre, là les critères sont correctes mais le filtre ne me renvoie rien. Pourtant lorsque je termine l'exécution de ma procédure, je vais dans le champs où j'effectue mon filtre. Je fais personnalisé, mes critères sont correctes. Le plus drôle c'est lorsque je mets Ok pour sortir du filtre personnalisé, celui-ci s'effectue.

Je sais pas si vous avez une idée pour résoudre ce problème mais toutes propositions sont les biens venues.

[SfJ5Rpw8]

elle sort d'ou ta variable date_deb

[tazmania]

elle sort d'ou ta variable date_deb

En fait je passe par une procédure

Code :

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

Call Filtre(Range("A1").text,Range("A2").text)

Les deux cellules passées en paramètre sont les cellules qui contiennent les dates.

Puis voila le prototype de ma procédure

Code :

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

Sub Filtre (date_deb As String, date_fin As String)

Voila en fait, d'où viennent ces variables

[SfJ5Rpw8]

ben si c'est une date utilise date comme type de donnée... !

Code :

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

1
2
Sub Filtre (date_deb As date , date_fin As date )

!! une date n'est pas une chaine de caractére !!

[tazmania]

ben si c'est une date utilise date comme type de donnée... !

Code :

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

1
2
Sub Filtre (date_deb As date , date_fin As date )

!! une date n'est pas une chaine de caractére !!

Oui mais si je fais sa, il va y avoir une incompatibilité de type avec ce que je passe en paramètre lors de l'appel à ma procédure et ce que va recevoir ma procédure

[SfJ5Rpw8]

ben change les parametres

[tazmania]

ben change les parametres

Oui mais comment ?
J'ai essayé en mettant comme paramètre

Code :

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

Filtre(Range("A1").value, Range("A2").value)

Mais mon paramètre passé dans ce cas est 00/01/1900.
Donc je vois pas comment dire que ma cellule contient une date

[SfJ5Rpw8]

tu est bien sur de la feuille active (vu que tu ne met rien devant range...)

si oui essai ..:

Code :

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

Filtre(Cdate(Range("A1")), Cdate(Range("A2")))

[tazmania]

Bon j'ai essayé ce bout de code.
Il passe bien les variables en type Date.

Par contre, je rencontre toujours le problème d'inversement entre le jour et le mois lorsque le jour commence par 0.

Hélas, le filtre ne fonctionne toujours pas. Après l'exécution de ma procédure, je retourne dans le filtre personnalisé et là il y a bien les bonnes valeurs. Et lorsque que je clique sur OK, le filtre s'effectue.

Je crois pas que cela viennent des variables, mais plutôt du filtre.

J'ai effectué un test, j'ai enregistré une macro. J'ai fais mon filtre personnalisé en saisissant mes deux dates. Puis j'ai cliqué sur OK. Le filtre 'effectue bien.
J'arrête ma macro, j'enlève le filtre puis je relance ma macro et là , le filtre ne se fait pas. Il n'y a rien qui ressort.

[Skyline68]

Ben il suffit de rajouter à tes variables CLng(variable) et normalement l'autofiltre affichera ta sélection.

[tazmania]

Désolé de ne pas avoir répondu tout de suite, mais en fait, je suis passer par une autre solution.

J'ai comme même tester celle-ci mais elle transforme ma variable en

00/01/1900