listbox date

[chriss54]

bonjour à toutes et tous
je suis nouveau, j ai préparé un fichier dans lequel se trouve mon souci...
merci à vous tous

 

[JM27]

Bonsoir
pourquoi ne pas tout avoir mis dans la même feuille ???
Ca complique beaucoup
et ca rend le tri très difficile ( très simple si sur une feuille)

 

[chriss54]

Bonsoir et merci JM
Est il possible d'ajouter à la listbox un format date type jjjj j mmm aaaa ?
est il possible de ranger chronologiquement la listbox de manière croissante ?
Merci beaucoup à toi!
chris

 

[JM27]

bonsoir
pour la date

Private Sub UserForm_Initialize()
    Me.ListBox1.ColumnWidths = "100;150;50"
    For I = 1 To Worksheets.Count
        With Sheets(I)
                If Sheets(I).Name <> "acceuil" Then
                        Me.ListBox1.AddItem
                        Me.ListBox1.List(NbLigneUtilisée, 0) = .Range("A3")
                        Me.ListBox1.List(NbLigneUtilisée, 1) = .Range("H3").Text
                        Me.ListBox1.List(NbLigneUtilisée, 2) = .Range("I3")
                        NbLigneUtilisée = NbLigneUtilisée + 1
                End If
        End With
    Next
End Sub

pour le tri je regarde

 

[chriss54]

Super cool merci

 

[chriss54]

Bonsoir Jean Marcel
je viens de coder mon fichier c déjà T bien...si le tri chronologique est faisable ça serait top...Un grand merci!
Cdt
chris

 

[Paf]

bonjour à tous,

une solution possible pour le tri en utilisant une fonction de tri de J. BOISGONTIER

A rajouter dans Private Sub UserForm_Initialize():

au début:

Dim T()

après le Next:

    T = ListBox1.List
    Tri T(), 1, LBound(T, 1), UBound(T, 1)
    ListBox1.Clear
    For i = LBound(T, 1) To UBound(T, 1)
        T(i, 1) = Format(T(i, 1), "dddd d mmmm yyyy")
    Next
    ListBox1.List = T

et dans la feuille de code de l'userform:

Sub Tri(a(), ColTri, gauc, droi)
' Quick sort J.BOISGONTIER http://boisgontierjacques.free.fr/pages_site/tableaux.htm#ListeTriee
  ref = a((gauc + droi) \ 2, ColTri)
  g = gauc: d = droi
  Do
    Do While a(g, ColTri) < ref: g = g + 1: Loop
    Do While ref < a(d, ColTri): d = d - 1: Loop
    If g <= d Then
       For k = LBound(a, 2) To UBound(a, 2)
         temp = a(g, k): a(g, k) = a(d, k): a(d, k) = temp
       Next k
       g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call Tri(a, ColTri, g, droi)
  If gauc < d Then Call Tri(a, ColTri, gauc, d)
End Sub

 

[chriss54]

Bonsoir "PAF" merci pour ta proposition, Je teste demain et promet de te redire ce qui l'en ait... Bonne soirée.
Cdt
Chris

 

[chriss54]

Bonjour, Merci pour votre aide , J'ai copié les codes ci dessus ...mais le tri ne se fait pas...
Chris

 

[chriss54]

le tri c 'est a dire un tri chronologique croissant en fonction de I.3
Merci
chris

 

[chriss54]

ci joint le fichier avec tous les codes....

 

[Paf]

Je m'étais focalisé sur un tri croissant sur la date, et de plus j'avais omis de signaler la modification d'une instruction pour que ça fonctionne: = .... .Range("H3").Value2

Pour trier sur le nombre de jour restant:

La Sub Tri() ne change pas

après le Next:, remplacer tout le code proposé par :

    T = ListBox1.List
    ListBox1.Clear
    For i = LBound(T, 1) To UBound(T, 1) ' on transforme la 3ème colonne en entier,
        T(i, 2) = CInt(T(i, 2))                          '  car la listbox fournit du texte et le tri ne
    Next                                                      ' se fait pas correctement
    Tri T(), 2, LBound(T, 1), UBound(T, 1) ' tri sur 3ème colonne ( la première =0)
    ListBox1.List = T

 

[chriss54]

Extra!!!!
merci bonne journée!
Chris

 

[chriss54]

si possible j'ai besoin de faire un cumul de : sommeprod en ("J5") des onglets du 4è au dernier onglet crée .....
la formule =
=SOMMEPROD((A6:A200>=H5)(A6:A200<=I5)(D6😀200))

c faisable de cumuler dans un userform par exemple?

 

[Paf]

Nouvelle question = nouvelle discussion

il y aura plus de chance d'avoir des réponses.

Bonne journée