Format du filtre des dates non adapté au besoin

Bonjour à tous,

Je suis en train de faire une macro qui ouvre un userform avec un choix de date XX/XX/XXXX que l'utilisateur indique et en fonction de ce que ce dernier choisit, un tableau se crée avec toutes les lignes correspondants à la date indiquée.

Je n'ai pas eu de soucis sur la macro, elle fonctionne mais pas sur mon tableau. Je m'explique :

J'ai une requête SQL en provenance d'un logiciel avec des données dont ma colonne date.
Quand je filtre dans l'éditeur de requête, j'ai un format de date comme ça :

Pièce jointe 306915

Ce que je souhaite car ma macro va chercher un format de date identique

Mais dans le tableau dans mon onglet, le format est différent

Pièce jointe 306920

Et impossible de changer surtout qu'avec ce tableau la macro (ou même moi) n'arrive pas à filtrer avec ce format qui est XX/XX/XXXX



Ma question est donc savez-vous changer ce format ?

Merci par avance ! :)

Bonjour

Donne-nous plutôt ton code si tu veux qu'on te donne la modification à faire.

Bonjour,

En fait je pense que ça va me créer un autre soucis sur une autre macro déjà le code du TextBox1

Code:

---

1 2 3

Private Sub TextBox1_Change() Format (ddmmyyyy) End Sub

---

Et celui du bouton pour lancer ma macro

Code:

---

Worksheets("SQL").Range("$A$1:$V$65000").AutoFilter Field:=15, Criteria1:=TextBox1.Value, Operator:=xlAnd

---

j'ai tout le reste qui suit mais je ne pense pas qu'il soit important, la macro plante à Criteria1



Mais je pense que le format me crée un autre soucis. Avec une autre macro, je souhaite alimenter un combobox sans les doublons.
J'ai donc adapté cette 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

Private Sub IndicateurBL_Initialize() Dim c As Range Dim Paspresent As Boolean Dim i As Double Me.ComboBox1.Clear For Each c In Sheets("SQL").Range("O2:O65000") If c.Value <> "" Then 'on cherche s'il existe dans la combobox   If ComboBox1.ListCount > 0 Then 'Deja des items dans la liste Paspresent = True For i = 0 To ComboBox1.ListCount - 1 If Val(ComboBox1.List(i)) = c.Value Then Paspresent = False End If Next Else 'pas encore d'item dans la liste Paspresent = True End If   If Paspresent = True Then ComboBox1.AddItem c.Value   End If Next c End Sub

---

SQL étant ma base de données et la colonne O celle des dates. Mais pourtant rien ne s'affiche et je n'ai pas de plantage. Peut-être que le problème vient du format c'est pour ça que je préfère changer le format

Merci

Bonjour

Tu parle de choix de dates mais dans un textbox on ne choisit rien : il faut une combobox...

Le textbox est-il lié à un combobox qui l'alimente ?

La valeur d'un textbox est du texte : il faut donc non pas formater mais convertir en date.

Bonjour,

Non en fait c'est pas vraiment ça.

dans un textbox j'écris une date au format XX/XX/XXXX

si sur mon bouton je mets la macro

Code:

---

MsgBox (Textbox1.Value)

---

Ca m'affiche bien la date en XX/XX/XXXX

Pièce jointe 307023

Je n'ai pas de ComboBox qui alimente car l'utilisateur écrit lui même la date.

Donc quand je veux filtrer avec la date écrite par l'utilisateur dans la colonne date le format est différent. C'est là que le soucis survient car même si moi j'écris la date comme écrit dans le TextBox ça ne fonctionne pas.

Exemple :

Pièce jointe 307004
Pièce jointe 307009


C'est juste le format dans le filtre qui ne va pas, mais je n'arrive pas à le changer
Ou alors comment fait-on pour que le format soit modifié pour être pris en compte par le filtre ?

Bonjour

Un peu de lecture sur la gestion des dates te ferait le plus grand bien http://silkyroad.developpez.com/excel/dateheure/

Code:

---

1 2 3

Madate = CDate(TextBox1.Value) Worksheets("SQL").Range("$A$1:$V$65000").AutoFilter Field:=15, _ Operator:=xlFilterValues, Criteria2:=Array(2, Format(Madate, "mm/dd/yyyy"))

---

devrait fonctionner

En effet je vous remercie ça fonctionne super bien.

Je vais aller lire le lien.

Je passe en résolu et encore merci !