Problème de filtrage élaboré par date

[INFINITY100]

Bonjour à tous

Voila je suis face à un problème de filtrage élaboré par date, ci-joint j'ai une macro qui fonctionne bien quand les dates début et fin sont différentes mais le problème c'est quand je filtre avec la même date pour le début et la fin dans la feuille concernée par le filtrage il me rapporte qu'une seul opération avec la dite date bien que dans la BD il y en a plusieurs en d'autre terme je veux inclure les doublons

Voila pour être plus claire je joins le fichier

Merci par avance

Cordialement

 

[BOISGONTIER]

Re : Problème de filtrage élaboré par date

Bonjour,

cf PJ

  If Val(Application.Version) >= 12 Then
    [I2] = ">=" & Format(TextBox1, "mm/dd/yyyy")
    [J2] = "<=" & Format(TextBox2, "mm/dd/yyyy")
  Else
    [I2] = ">=" & TextBox1
    [J2] = "<=" & TextBox2
  End If

JB

 

[INFINITY100]

Re : Problème de filtrage élaboré par date

Bonjour BOISGONTIER

Merci pour la réponse voila à l'essai je rencontre une autre erreur qui se résume comme suit :

Si je cherche date début 26/05/2016 et date fin 26/05/2016 rien ne s'affiche alors qu'une opération existe

Voir PJ

Merci encore mon ami

 

[BOISGONTIER]

Re : Problème de filtrage élaboré par date

Je pense qu'il a un pb dans les dates de la BD

JB

 

[INFINITY100]

Re : Problème de filtrage élaboré par date

Salut Jacques Boisgontier

Effectivement après vérification il y avait des cellules qui contenaient des dates mais elles étaient en format Standard et après correction dans la BD tout fonctionne bien

A présent il me reste un dernier truc concernant les conditions après validation dans l'UserForm, en effet

1- Je cherche à stopper l’utilisateur par un message d’arrêt s'il saisit dans le Textbox1 une date qui n'existe pas dans la BD
2- Je cherche à stopper l’utilisateur par un message d’arrêt s'il saisit dans le Textbox2 une date qui n'existe pas dans la BD et le prévenir que la dernière est date dans la BD est .... (date de la dernière ligne) dans mon exemple c'est 01/03/2016

Voir PJ

Merci encore

 

[BOISGONTIER]

Re : Problème de filtrage élaboré par date

Bonsoir,

cf PJ

Des menus déroulants pour choisir les dates serait +simple.

Private Sub UserForm_Initialize()
  Dim d, f, c
  Set f = Sheets("BD_Encaissements")
  Set d = CreateObject("scripting.dictionary")
  For Each c In f.Range("B12:B" & f.[B65000].End(xlUp).Row)
    d(c.Value) = ""
  Next
  Me.ComboBox1.List = d.keys
  Me.ComboBox2.List = d.keys
End Sub

http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreExtractionDate.xls

JB

 

[INFINITY100]

Re : Problème de filtrage élaboré par date

Merci Beaucoup cher ami

Vous me sauvez toujours oui pour les menus déroulant vous avez raison c'est plu commode

Merci encore