Conversion/filtre date via macro

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je rencontre un soucis lors de l'utilisation d'une macro VBA.

Je réalise un filtre avancé qui doit notamment filtrer en fonction des dates.

Je souhaite pouvoir obtenir la ligne correspondant à la date PRECISE (avec l'heure) voulue par exemple "21/12/18 00:01" ou toute les lignes comprises entre 2 dates " >21/12/18 00:01" et " <15/01/18 15:03". (ou juste toutes les lignes "> 25/03/18 18:06")

Le problème que je rencontre est que le filtrage "plus grand et/ou plus petit que" ne fonctionne qu'avec l'heure "00:00". J'aimerai pouvoir être plus précis que cela.

Voici le code de ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Sub Filter5() ' ' Filter5 Macro ' Mémorise le contenu de F5 et G5 dat1 = [F5].Value: dat2 = [G5].Value ' Si les deux cellules ne sont pas vide => on convertit dat1 en nombre If Len(dat1) > 0 And Len(dat2) > 0 Then ' On mémorise temporairement les valeurs [F5].Value = Left(dat1, 1) & Round(CDbl(CDate(Mid(dat1, 2))), 6) [G5].Value = Left(dat2, 1) & Round(CDbl(CDate(Mid(dat2, 2))), 6) End If ' Si F5 contient une date ET que G5 n'en contient pas ET que le premier caractère n'est pas un nombre If Len(dat1) > 0 And IsEmpty(dat2) And (IsNumeric(Left(dat1, 1)) = False) Then [F5].Value = Left(dat1, 1) & Round(CDbl(CDate(Mid(dat1, 2))), 6) End If If Len(dat2) > 0 And IsEmpty(dat1) And (IsNumeric(Left(dat2, 1)) = False) Then [G5].Value = Left(dat2, 1) & Round(CDbl(CDate(Mid(dat2, 2))), 6) End If ' On filtre avec les valeurs numériques des dates Sheets("FMEA").Range("B17:X8000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("FMEA").Range("B4:X5"), Unique:=False Range("D11").Select ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,R[7]C[-1]:R[7000]C[-1])" Range("D12").Select ' On remet l'ancien contenu des cellules [F5].Value = dat1: [G5].Value = dat2 End Sub
Pièce jointe 434169

Sur le screen, si je filtre => n'affiche aucune cellule. Si je remplace le 00:15 par 00:00 => filtre correctement

Si quelqu'un a une idée, je suis preneur :) .

Pour info : Les cellules des colonnes que je souhaite trier ont des formules du type : =IF(ROW(I21)<16;"";IF(ISBLANK(DATA!E5);"";DATA!E5)) => je les copie depuis la feuille DATA et elles ont le format JJ/MM/AAAA hh:mm. Je suis obligé de convertir avec la macro, juste avant de filtrer car lorsqu'on utilise un filtre avancé via une macro VBA, la date est considérée comme étant au format US (MM/JJ/AAAA hh:mm)

13/12/2018, 10h55
BENNASR

bonjour
je sais pas si j'ai compris mais pour moi et dans un cas similaire à savoir :
en A1 j'ai la date de départ et en B1 j'ai la date arrivée
et de A2 à A 20 j'ai des dates donc j'ajoute une formule à partir de B2 : SI(ET(A3>$A$1;A3<$B$1);1;0)
et puis je filtre selon 1 ou 0
je sais pas si ça répond à ta demande !!! bonne journée
13/12/2018, 11h32
Kheart

Merci pour ta réponse rapide !

Filtrant plusieurs variables, j'utilise la macro qui se trouve dans mon premier message. Celle-ci effectue un filtre avancé. un tel filtre via une macro VBA considère les dates aux formats US (MM/JJ/AAAA hh:mm) alors que mes dates sont aux formats JJ/MM/AAAA hh:mm. Je ne pense donc pas que ta proposition puisse m'aider :/
13/12/2018, 11h37
MarcelG

Bonjour,

Pour les filtres avancés, voir tutoriel filtres avancés

Remarques

[A5] signifie

Citation:

évaluer le contenu de la cellule A5

Donc la propriété
.Value
est ici redondante.

Il est prudent de bien rattacher les objets Range à leur feuille par "."

Je n'ai pas regardé ton code.
As-tu d'abord testé sur Excel tableur?
(Il faut commencer par là)

En termes de dates, j'ai informé les millénaires.

Pour le seul 1er champ

Si
en F5, j'écris

Citation:

Start

en F6,

Citation:

>01/12/2017 00:15:00

en F8, j'écris

Citation:

Start

en F9, F10, F11, F12

Citation:

11/11/2017 0:15
1/12/2017 0:10
5/12/2017 10:00
1/12/2017 0:30

Le filtre avancé est effectif.

Je pense que tu dois avoir un problème de format date.

Essaie d'abord sur Excel tableur, en utilisant l'enregistreur de macro pour avoir une base.
Puis reviens avec ce seul résultat Excel tableur.

Nous étudierons ton code ultérieurement.

Avant de réaliser ma macro, j'ai effectué des tests sur un tableur. Le filtre avancé était effectif avec tout les paramètres encodés. J'ai enregistré la macro. Je l'ai ensuite testé et c'est la que le problème est arrivé. VBA traite les dates qui se trouvent dans "criteria range" comme étant aux formats US. Du coup j'ai rajouté une conversion dans la macro (pour passer de MM/JJ/AAAA hh:mm(:ss) à JJ/MM/AAAA hh:mm(:ss) ), juste avant que le filtrage s'effectue.

Pour résumer : si je rentre une date précise ex : 18/09/18 16:22 => j'obtiens la ligne que je souhaite. Si je rentre un critère pour avoir les dates ">18/09/17 17:54" dans la colonne "Start". Cela ne fonctionne pas sauf si je mets l'heure à 00:00. Ce problème doit sans doute provenir de ma conversion mais je n'arrive pas à résoudre cela.

Le résultat de l'enregistrement de la macro sans la conversion était (c'est un simple filtre avancé, comme on peut le faire manuellement, il suffit d'enlever la conversion du dessus dans le code du premier message) :
Code:

1 2 3 4 5 6 7 8 Sub Filter5() Sheets("FMEA").Range("B17:X8000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("FMEA").Range("B4:X5"), Unique:=False Range("D11").Select End Sub
Ce n'est pas une macro compliquée. Elle doit simplement permettre à une personne qui n'a pas l'habitude d'utiliser excel et/ou des filtres avancés d'avoir à "juste cliquer sur un bouton" pour filtrer les données qu'elle souhaite.

13/12/2018, 13h37
Kheart

Après divers tests, cela provient (comme je pouvais le supposer) de l'utilisation de Round().

J'ai beau chercher sur divers sites, je ne trouve pas (je ne dis pas qu'il n'en existe pas...) de fonction qui peut me permettre de résoudre ça.
13/12/2018, 13h52
BENNASR

re bonsoir
peux tu joindre un petit classer de quelque ligne avec données fictive??? sans code et expliquer ce que tu cherches à faire??
13/12/2018, 14h07
MarcelG

Salut,

Il te faut sans doute raisonner avec des critères calculés comme le montre Philippe dans son tutoriel et dans cette discussion
13/12/2018, 14h10
Kheart

1 pièce(s) jointe(s)

Je souhaite, au moyen d'un filtre avancé coder dans une macro, filtrer mes dates comme dans l'exemple. Je n'ai mis que deux colonnes car mon problème ne concerne que les dates.

Quand on utilise un filtre avancé sans macro, c-a-d manuellement, pas de soucis. Mais DANS VBA, je ne parviens pas à filtrer mes dates car le format n'est pas le même.

Dans le tableur, pour comparer 2 dates pas de soucis. C'est le même format. Dans VBA, le "criteria range" qui est une date est considéré comme étant au format US. Donc, si je rentre en C5 et D5 des dates au format US, pas de soucis MAIS je ne veux pas faire cela car les données que je dois filtrer sont en format EU.

Quand j'effectue ma conversion, il y a un problème au niveau des heures & minutes. je suis obligé de rentrer 00:00 pour que le filtre fonctionne.

Edit : Marcel, j'ai vu ton message après avoir posté celui ci. Je vais regarder ça.
13/12/2018, 14h20
BENNASR

1 pièce(s) jointe(s)

à tester
13/12/2018, 14h26
Kheart

Il semblerait que cela fonctionne. Je dois adapter à ma macro et faire plusieurs tests afin de assurer que tout fonctionne.

Je n'avais pas compris ton premier message. C'est bien vu de ta part. Je ne devais pas être suffisament concentré tout à l'heure. Je suis désolé. Merci de ton aide ! je reviendrai vers vous pour vous dire ce qu'il en est.

Salut,

Je confirme.
Tu passes bien par les critères calculés.

Ce en étant conscient que cette méthode est explicitée dans la cible des liens que je t'ai reportés.

en B4 :

Citation:

trucmuch

en B5 :

Citation:

=(B18>(DATEVAL("01/12/2017")+TEMPSVAL("00:15:00")))

en C4 :

Citation:

machin

en C5 :

Citation:

=(C18<(DATEVAL("15/12/2017")+TEMPSVAL("06:00:00")))

Les en-têtes de colonnes Bet C ne changent pas (Start, Fin)
En colonnes B et C, à partir de la ligne 18, veiller à ce que les données soient bien informées sous format date heure

L'enregistreur de macro t'indiquera les formules de critères de la ligne 5.

Mon code à adapter éventuellement
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Sub macro_filter() With Worksheets("FMEA") If .FilterMode = True Then .ShowAllData .Range("B17:X21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ .Range("B4:X5"), Unique:=False End With End Sub