Discussion :

[Pauliakov]

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 :



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



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 !

[78chris]

Bonjour

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

[Pauliakov]

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 :

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

1
2
3
Private Sub TextBox1_Change()
Format (ddmmyyyy)
End Sub

Et celui du bouton pour lancer ma macro

Code :

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

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 :

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

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

[78chris]

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.

[Pauliakov]

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 :

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

MsgBox (Textbox1.Value)

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



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 :





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 ?

[78chris]

Bonjour

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

Code :

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

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