Autres Trier une listbox par date

[Damien281211]

Bonjour a tous
Je vous explique mon soucis
J'effectue une recherche via un formulaire ans une textbox. grâce à une recherche avancée je charge uniquement certaine ligne de ma base de données en fonction d'une reference précise.
Mes données se chargent dans une listbox.
Je souhaiterais savoir si sest possible de trier celle-ci par date chronologique ou alors trier ma colonne de tableau de recherche avancée?
Comment faire l'une ou l'autre ?
Merci d'avance

 

[fanch55]

Ce ne sont pas mes fichiers ni mon/ton calendrier ...

 

[patricktoulon]

je vous fait une version light avec placement avec le code que j'avais fait pour fanfan38 et je reviens

 

[fanch55]

@patricktoulon
Je sais que tu codes plus vite que ton ombre ,
mais prend le temps de regarder ce que j'ai fait sur ce calendrier qui est le tien pour Fanfan38
Appel à partir d'un userform :

    With Calendar1
        Set .RefBox = Me.TextBox_dlc
        .Caption = "DLC"
        Select Case True
            Case IsDate(Me.TextBox_dlc):            .RefDate = Me.TextBox_dlc
            Case IsDate(Me.TextBox_date_congel):    .RefDate = DateAdd("m", 6, Me.TextBox_date_congel)
            Case Else:                              .RefDate = DateAdd("m", 6, Date)
        End Select
        .Show
        If IsDate(.Resultat.Value) Then TextBox_dlc = CDate(.Resultat.Value)
    End With
    Unload Calendar1

 

[fanch55]

@cp4

Private Sub TextBox_date_congel_Enter()
    TextBox_date_congel = Calendar.ShowX(TextBox_date_congel, 0, 2, 1)
    TextBox_date_congel_Change
End Sub

 

[patricktoulon]

re
bon allez j'ai revu en vitesse le calendrier que j'avais fait pour fanfan38 je l'ai un peu rendu plus petit
valable sur range ou sur textbox
voila spécialement pour toi franch55

 

[fanch55]

@patricktoulon

Erreur quand on ferme le calendrier sans passer par un bouton jour ....

 

[patricktoulon]

oui je l'ai pas fait ca j'ai fait vite
re
voila change la fonction et le query close

Public Function DValue(objx As Object) As Variant
    With Calendar1
        If TypeName(objx) = "Range" Then placementRange objx Else placementUF objx
        Me.Resultat = objx.Value
        Set Me.obj = objx
        Me.startupposition = 0: Me.Show
        If Trim(Me.Resultat.Value) = "" Then DValue = " ": Exit Function
        If Not IsDate(Trim(Me.Resultat.Value)) Then DValue = Trim(Me.Resultat.Value): Exit Function
        DValue = CDate(Me.Resultat.Value)
        Unload Calendar1
    End With
End Function

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True: Calendar1.Resultat.Value = Calendar1.obj.Value: Me.Hide
End Sub

 

[patricktoulon]

Satisfait?

 

[fanch55]

Tu es sûr qu'il faut le me.hide dans le QueryClose ? C'est un calendrier one shot ?

 

[patricktoulon]

oui car si tu le met pas tu unload donc vide resultat
essai de comprendre que quand la fonction Dvalue est appelée c'est une fonction qui est appellée dans un module classe userform et non un object userform
le but c'est que ca soit la fonction "DValue " qui se charge de tout

1. le paramétrage
2. l'enrichissement des variables
3. le show
4. la récup de résultat
5. le unload

essaie tu verra par toi même
il faut bien comprendre cette notion de module classe et d'object userform

 

[fanch55]

Pardon, ce n'est pas dans le QueryClose, mais il faut le décharger dans le userform maintenant ?

 

[fanch55]

 

[patricktoulon]

pour etre plus clair si tu saisi pas la nuance
quand je fait
TextBox1 = Calendar1.DValue(TextBox1)
je fait en fait
TextBox1 = Module(Calendar1).DValue(TextBox1)
et non
TextBox1 = userforms("Calendar1").DValue(TextBox1)

l'erreur c'est par ce que tu a mis le userform1 en non modal
mais qu'est ce vous avez a détruire un truc qui fonctionne
prends le étudie le , comprends le fonctionnement , pose des questions , avant de vouloir modifier quoi que ce soit

 

[fanch55]

Je sais très bien ce qu'est une classe, même si c'est une pseudo classe en tant qu'userform .
ce que je ne comprend pas, c'est que dans le premier fichier envoyé, l'userform s'auto décharge et dans le deuxième avec les modifs , non ....

 

[patricktoulon]

si il s'auto décharge dans le premier aussi
arrete de le triturer tu n'a pas les bases visiblement pour en comprendre le principe

tout dois se faire par la fonction "ShowX" pour le premier et "Dvalue" pour le 2d


j'explique
on lance la fonction

Public Function DValue(objx As Object) As Variant
    With Calendar1
        If TypeName(objx) = "Range" Then placementRange objx Else placementUF objx
        Me.Resultat = objx.Value
        Set Me.obj = objx
        Me.startupposition = 0: Me.Show
       'ELLE S'ARRETE ICI MOMENTANEMENTCAR LE SHOW EST MODAL

DANS LE RESULTAT CHANGE JE HIDE
DONC LA FONCTION REPREND donc SON COUR