IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Format du filtre des dates non adapté au besoin [XL-2013]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Acheteur
    Inscrit en
    Juillet 2017
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Acheteur

    Informations forums :
    Inscription : Juillet 2017
    Messages : 43
    Par défaut 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 :

    Nom : date1.png
Affichages : 343
Taille : 15,4 Ko

    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

    Nom : test.png
Affichages : 336
Taille : 7,6 Ko

    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 !

  2. #2
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 568
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 568
    Par défaut
    Bonjour

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

  3. #3
    Membre averti
    Homme Profil pro
    Acheteur
    Inscrit en
    Juillet 2017
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Acheteur

    Informations forums :
    Inscription : Juillet 2017
    Messages : 43
    Par défaut
    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

  4. #4
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 568
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 568
    Par défaut
    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.

  5. #5
    Membre averti
    Homme Profil pro
    Acheteur
    Inscrit en
    Juillet 2017
    Messages
    43
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Acheteur

    Informations forums :
    Inscription : Juillet 2017
    Messages : 43
    Par défaut
    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

    Nom : format correct.png
Affichages : 311
Taille : 7,9 Ko

    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 :

    Nom : format date.png
Affichages : 308
Taille : 8,8 Ko
    Nom : ne fonctionne pas.png
Affichages : 309
Taille : 6,8 Ko


    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 ?

  6. #6
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    Février 2010
    Messages
    8 568
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : Février 2010
    Messages : 8 568
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Format d'affichage des dates sur les graphiques
    Par marjo69 dans le forum Interfaces Graphiques
    Réponses: 4
    Dernier message: 05/05/2008, 20h21
  2. Changement du format d'affichage des dates
    Par tchoimars dans le forum Sql Developer
    Réponses: 2
    Dernier message: 05/07/2007, 15h09
  3. resolution pour le filtre des date
    Par kroma23 dans le forum Bases de données
    Réponses: 2
    Dernier message: 19/05/2007, 16h43
  4. probleme avec l filtre des date
    Par kroma23 dans le forum Bases de données
    Réponses: 8
    Dernier message: 15/05/2007, 16h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo