Demande d'info sur la, propriété "SORTED" d'une listbox

Question

Bonjour à tous,

J'ai une listbox contenant des titres sous forme de date + nom, se référant à des documents scannés. Ex:
15.06.2007
02.04.2005
03.04.2004
etc ...

Je voudrais trier ces dates de la plus ancienne à la plus récente, et que la plus récente apparaissent tout en haut de ma listbox.

PROBLEME:

1/ Si j'utilise "Sorted" les dates ne sont absolument pas triées, puisque "sorted" trie en fonction du 1er chiffre, en l'occurence ici les dates seront triées comme ceci: 02.04.2005 > 03.04.2004>15.06.2007
Donc ce n'est pas la bonne solution.

2/ si j'utilise ce code : "lstNono.AddItem DateScanne, 0" le dernier document scanné apparaitra tout en haut de ma listbox (génial !!) mais les dates ne seront pas triées correctement comme dans l'exemple 1/

3/ Si mes dates sont enregistrées de cette manières :
2007.06.15
2005.04.02
2004.04.03

etc ...
les dates sont correctement triées par "sorted", càd 2004.04.03>2005.04.02>2007.06.15 (ouais !!!) mais la date la plus récente est en bas de la listbox, ce qui est embêtant lorsqu'il y a plusieurs documents scannés, il faut utiliser le curseur pour visualiser le document le plus récemment scanné !!

4/L'idéal serait d'avoir des dates triées, avec la plus récente en haut de la listbox et de préférence sous ce format 15.06.2007 !!!!!

Quelqu'un aurait-il une idée ?

Merci d'avance pour vos réponses

Nono

yomm · Answer

Salut, rapidement, je peux te filer une astuce:

le plus simple est de créer une listbox qui a la propriété sorted = true et de la rendre visible false (appelons la List2)

le but est de faire une fonction qui prend les items de ta listbox, les formats de telle sorte qu'ils puissent être triés puis les restitue au bon format:

en gros, on copie tous les items dans un listbox tempon (ici List2) 
les valeurs sont ajoutées au format YYYYMMDD afin de faire une comparaison numérique
avec la propriété Sorted=True les items sont triés dans l'ordre croissant
ensuite on vide la listbox d'origine
on prend le résulat obtenu par le trie
on recré les items dans la listbox d'origine avec le format souhaité:DD.MM.YYYY

en gros ça donne:
-----------------------------------------------------------------------------------------
Private Sub ListBoxSort(ByVal MyListBox As ListBox)
    
    Dim i As Long
    
    
    List2.Clear
    For i = 0 To MyListBox.ListCount - 1
        List2.AddItem Right(MyListBox.List(i), 4) & Mid(MyListBox.List(i), 4, 2) & Left(MyListBox.List(i), 2)
    Next
    
    MyListBox.Clear
    For i = 0 To List2.ListCount - 1
        MyListBox.AddItem Right(List2.List(i), 2) & "." & Mid(List2.List(i), 5, 2) & "." & Left(List2.List(i), 4)
    Next
    
End Sub
-----------------------------------------------------------------------------------------

c'est un peu barbare mais ça marche, bien évidemment il ne faut pas 500000 items...sinon c'est un peu long ;-)

en espérant que cela t'aide @+
   

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

yomm · Answer

PS: pour ma fonction je suis parti du format DD.MM.YYYY 
je précise pour les lignes du genre : Right(MyListBox.List(i), 4) & Mid(MyListBox.List(i), 4, 2) & Left(MyListBox.List(i), 2)

re @+

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

Renfield · Answer

Tu peux les insérer triées, c'est surement le plus simple...

Pour chaque element a a ajouter
     si la liste est vide, on l'ajoute
     si la liste n'est pas vide, on cherche ou l'ajouter :
          pour chaque element (ou par dichotomie, pour accelerer), on regarde s'il doit être placé avant notre nouvel item
                s'il doit etre placé avant, on continue a regarder les elements
                sinon, on place notre nouvel element, on a trouvé sa place

tu y gagnera, je pense, en rapidité (une seule insertion dans la liste). Et ca n'est pas très complexe a mettre en place.

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jmfmarques · Answer

Bonjour,

Juste un rappel de l'aide en ligne (pour le cas où on voudrait retrier une listbox) :

L'aide en ligne précise que l'on peut forcer l'emplacement en faisant une insertion et en précisant l'index d'insertion ...

Donc (exemple) :

Private Sub Form_Activate()
  List1.AddItem "2005/04/02"
  List1.AddItem "2005/05/01"
  List1.AddItem "2007/06/15"
  List1.AddItem "2004/04/03"
End Sub




Private Sub Command1_Click()
  ReDim toto(List1.ListCount) As String
  comb = List1.ListCount - 1
  For i = comb To 0 Step -1
   toto(i) = Format(List1.List(comb - i), "dd/mm/yyyy")
  Next
  List1.Clear
  For i = 0 To comb
    List1.AddItem toto(i), i
  Next
End Sub

Rigolo, non ?

nono78220 · Answer

Bonjour à tous,

Thanks pour vos réponses. 
Je vais étudier vos propostitions durant la journée et je vous tiens au courant en cas de difficultés

Merci
Nono

yomm · Answer

re-Salut

Voici en gros ce que donnerai la proposition de Rey:

--------------------------------------------------------------------------------------------------

Private Sub Command1_Click()


    Call LstAddItem("15.06.2007")
    Call LstAddItem("03.04.2004")
    Call LstAddItem("02.04.2005")


End Sub


Private Sub LstAddItem(ByVal Texte As String)
    
    Dim i As Long
    
    For i = 0 To List1.ListCount - 1
        If Val(Right(List1.List(i), 4) & Mid(List1.List(i), 4, 2) & Left(List1.List(i), 2)) > Val(Right(Texte, 4) & Mid(Texte, 4, 2) & Left(Texte, 2)) Then
            Exit For
        End If
    Next
    List1.AddItem Texte, i


End Sub

---------------------------------------------------------------------------------------------------

avec cette fonction, chaque fois que tu ajoute un item il est automatiquement placé à la bonne place.

Contrairement à rey, je ne sais pas si tu y gagneras forcément, disons que c'est plus en fonction de ton appli.
Je m'explique : (Rey n'hésite pas à me contredire biensur)
1) ton appli charge un bonne fois pour toute une liste de dates :
         - là j'obterais pour ma solution. en effet au final tu remplies 3 fois une listbox (enfin 2+1) mais au moins tu ne la reparcours pas à chaque insertion.....donc ça peut etre plus rapide
2) ton appli ajoute des dates lorsque l'utilisateur utilise l'appli...en gros cela se fait au fur et à mesure :
         - là j'obterais pour la solution de Rey au moins l'item est directement classer.

=> Conclusion:
Combine les deux ;-)
Si tu dois charger des valeurs initiales appelle : ListBoxSort
Lorsque tu ajoutes un item par la suite appelle : LstAddItem

Quand penses tu Rey ?

@+

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

yomm · Answer

~~Quand~~ Qu'en penses tu Rey ? (y en a d'autres mais je vais pas tout retaper) @+ Yomm [yommvb@free.fr yommvb@free.fr] Et que la source soit avec toi!!!!!

jmfmarques · Answer

Ouais...
Je trouve que vous vous compliquez bien la vie, moi...

Une listbox avec sa propriété Sorted = True et :

Private Sub Form_Activate()
  mf1 = "yyyy/mm/dd"
  mf2 = "dd/mm/yyyy"
  List1.AddItem Format("02/04/2005", mf1)
  List1.AddItem Format("03/05/2006", mf1)
  List1.AddItem Format("10/01/2002", mf1)
  List1.AddItem Format("30/03/2004", mf1)
  ReDim toto(List1.ListCount) As String
  comb = List1.ListCount - 1
  For i = 0 To comb
    List1.AddItem Format(List1.List(comb), mf2), i
    List1.RemoveItem comb + 1
  Next
End Sub

Etr voilà : classés par ordre décroissant et dans un format lisible
C'est tout !

yomm · Answer

en effet jmfmarques...mais comment tu ajoutes un item après coup ? de plus le format souhaité par nono était DD.MM.YYYY et la fonction format ne fonctionne pas dans ce cas (sauf si tu changes les paramètres régionaux biensûr)

;-)

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

jmfmarques · Answer

Ajouter un item "après coup" ?
OK (s'il le faut) et en le "paçant" bien sur... et en faisant (bien sur également) une boucle, mais par comme la tienne (méthode de recherche dans un dictionnaire = moins de tests)
Reste à savoir si nono doit "ajouter après coup" : si oui, je fais celà cet après midi

Pour le format avec des . au lieu des / ?   : cet aprem également (ce ne devrait pas être un vrai problème !)

Reste qu'existe une autre méthode (plus subtile mais que je vais éviter, juste pour le plaisir de me "casser un peu la tête")

jmfmarques · Answer

Hé bé !
J'ai failli oublier ma promesse (deviens vieux, moi !)

Voilà pour la première partie :

Private Sub Form_Activate()
   mf1 = "yyyy/mm/dd"
   mf2 = "dd.mm.yyyy"
   injectons = Array("02.04.2005", "03/05/2006", "12/06/2006", "10/01/2001", "30/03/2004")
   For i = 0 To UBound(injectons)
      List1.AddItem Format(Replace(injectons(i), ".", "-"), mf1)
   Next
   ReDim toto(List1.ListCount) As String
   comb = List1.ListCount - 1
   For i = 0 To comb
      List1.AddItem Format(List1.List(comb), mf2), i
      List1.RemoveItem comb + 1
   Next
End Sub

J'attends que nono nous dise si oui ou non il a à faire également des ajouts "après coup"... si oui, je mettrai en oeuvre la méthode de "recherche dans un dictionnaire" (20 lectures et pas 1000000  de lectures pour rechercher la bonne place parmi un million d'articles )

nono78220 · Answer

Hello,

Désolé, mais journée intense au travail et donc je n'ai pas le temps de me connecter régulièrement. 
J'ai hate de tester vos propsoitions ce soir.

En réponse à cette question:

J'attends que nono nous dise si oui ou non il a à faire également des
ajouts "après coup"... si oui, je mettrai en oeuvre la méthode de
"recherche dans un dictionnaire" (20 lectures et pas 1000000  de lectures pour rechercher la bonne place parmi un million d'articles

Je vais aussi faire des rajouts après coup, puisqu'il pourra m'arriver de scanner des documents anté-daté
et donc je les renregistrerai à leur date d'édition (ex: document édité le 12/04/2007 enregistré dans ma listbox sous ce format 12.04.2007 nono, pour un docuiment scanné ce jour)

A tout à l'heure 
nono

nono78220 · Answer

Hello,

Désolé, mais journée intense au travail et donc je n'ai pas le temps de me connecter régulièrement. 
J'ai hate de tester vos propsoitions ce soir.

En réponse à cette question:

J'attends que nono nous dise si oui ou non il a à faire également des
ajouts "après coup"... si oui, je mettrai en oeuvre la méthode de
"recherche dans un dictionnaire" (20 lectures et pas 1000000  de lectures pour rechercher la bonne place parmi un million d'articles

Je vais aussi faire des rajouts après coup, puisqu'il pourra m'arriver de scanner des documents anté-daté
et donc je les renregistrerai à leur date d'édition (ex: document édité le 12/04/2007 enregistré dans ma listbox sous ce format 12.04.2007 nono, pour un docuiment scanné ce jour)

A tout à l'heure 
nono

nono78220 · Answer

Hello,

Désolé, mais journée intense au travail et donc je n'ai pas le temps de me connecter régulièrement. 
J'ai hate de tester vos propsoitions ce soir.

En réponse à cette question:

J'attends que nono nous dise si oui ou non il a à faire également des
ajouts "après coup"... si oui, je mettrai en oeuvre la méthode de
"recherche dans un dictionnaire" (20 lectures et pas 1000000  de lectures pour rechercher la bonne place parmi un million d'articles

Je vais aussi faire des rajouts après coup, puisqu'il pourra m'arriver de scanner des documents anté-daté
et donc je les renregistrerai à leur date d'édition (ex: document édité le 12/04/2007 enregistré dans ma listbox sous ce format 12.04.2007 nono, pour un docuiment scanné ce jour)

A tout à l'heure 
nono

jmfmarques · Answer

Bon...
Tu vas devoir te montrer un peu patient...
Je m'y mets dès mon retour du restaurant...
A +

yomm · Answer

en tout cas non avec ta question tu auras fait tu buzz ;-)

Comme quoi, une simple listbox peut occuper les esprits ;-)

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

nono78220 · Answer

Bon appétit jmfmarques

Cela me laisse le temps d'étudier tout cela !!

nono

jmfmarques · Answer

Bon...
De retour et pret à développer....
Juste une question :
Pour les ajouts v"après copup" : l'utilisateur saisit dans quoi ? (une textbox, je suppose) ?
Et surtout : il saisit sous quel format, exactement ?
J'attends ta réponse mais commence déjà à établir mon algo.

nono78220 · Answer

Déjà de retour !! 

L'utilisateur répond à 2 questions par une inputbox :

 1ere question:  NomFichier =  InputBox("Nom de la biologie scannée :", "Scanner une biologie")
 2ème question :   datedocument  = InputBox("Date de la biologie (ex: 21.12.2003) :", "Taper OK pour la date d'aujourd'hui : " & Date)

Par la suite je scanne. Le titre du document scanné apparait dans la listbox 
NomFichierScanne = datedocument & " " & NomFichier
lstBiologie.AddItem NomFichierScanne 

puis j'appelle ma fonction qui me permettra de charger mes titre dans la listbox lors de la réouverture de mon fichier
Call ListBoxResourceBioScann(lstBiologie, LA_EcrireBioScannee)

jmfmarques · Answer

Bon.
Merci
J'ai de mon côté terminé mon algo "général". Il marche fort bien en bouclant très peu (méthode crecherche dico)
Juste une chose avant, maintenant, d"adapter à ton cas particulier :
Quand l'utilisateur dit( OK, la date du jour apparait-elle bien sous la forme (pour aujourd'hui) : 19.06.2007 ? (avec le point comme séparateur) ?


Le reste sera un jeu d'enfan,t, mais j'ai besoin de cette confirmation.


Dis-moi.


 


Par ailleurs : quelle précaution as-tu prise pour rejeter une date incohérente ?

nono78220 · Answer

En fait cela n'a pas d'importance puisque je retravaille l'affichage de la date avec ce code (ci-dessous) de façon à ce qu'elle s'affiche avec des points.

Dim datedocument As String
datedébut:
  datedocument = InputBox("Date de la biologie (ex: 21.12.2003) :", "Taper OK pour la date d'aujourd'hui : " & Date)
  If datedocument = "" Then
    datedocument = Date
  End If
  DoEvents
  
  Dim DateTemporaire
    datedocument = Trim(datedocument)
    If Len(datedocument) <> 10 Then GoTo datedébut  '10 caractères
    Dim ChiffreGaucheDate As String, ChiffreCentreDate As String, ChiffreDroitDate As String
    ChiffreGaucheDate = Left(datedocument, 2)
    If IsNumeric(ChiffreGaucheDate) = False Or Val(ChiffreGaucheDate) > 31 Then GoTo datedébut
    ChiffreCentreDate = Mid(datedocument, 4, 2)
    If IsNumeric(ChiffreCentreDate) = False Or Val(ChiffreCentreDate) > 12 Then GoTo datedébut
    ChiffreDroitDate = Right(datedocument, 4)
    If IsNumeric(ChiffreDroitDate) = False Then GoTo datedébut
    
   ' DateTemporaire = ChiffreGaucheDate & "." & ChiffreCentreDate & "." & ChiffreDroitDate
    DateTemporaire = ChiffreDroitDate & "." & ChiffreCentreDate & "." & ChiffreGaucheDate

  datedocument = DateTemporaire
  DoEvents
  
           NomFichierScanne = datedocument & " " & NomFichier

nono78220 · Answer

Les 2 codes (ci-dessous) que tu m'as proposé fonctionne parfaitement bien avec sorted = true sur un nouveau projet.

Par contre lorsque je l'intégre dans mon prog, je me rend compte que le
titre de ma listbox comporte une date + un nom intégré dans un variable.
Si j'extrais la date avec la fonction left, comment puis-je l'associer
au nom lors du reclassment ?
Ce code ne suffit-il pas pour les ajouts ? A  moins que le reclassement prenne du temps à la longue s'il y a bcp de titres (retrnasfromer en format yyyy.mm.dd puis clmassmetnpar sorted puis retransformer en format dd.mm.yyyy) ?


Private Sub Form_Activate()

   mf1 = "yyyy/mm/dd"

   mf2 = "dd.mm.yyyy"

   injectons = Array("2005.04.02", "03/05/2006", "12/06/2006", "10/01/2001", "30/03/2004")

   For i = 0 To UBound(injectons)

      List1.AddItem Format(Replace(injectons(i), ".", "-"), mf1)

   Next

   ReDim toto(List1.ListCount) As String

   comb = List1.ListCount - 1

   For i = 0 To comb

      List1.AddItem Format(List1.List(comb), mf2), i

      List1.RemoveItem comb + 1

   Next

End Sub


Private Sub Command1_Click()

  ReDim toto(List1.ListCount) As String

  comb = List1.ListCount - 1

  For i = comb To 0 Step -1

   toto(i) = Format(List1.List(comb - i), "dd/mm/yyyy")

  Next

  List1.Clear

  For i = 0 To comb

    List1.AddItem toto(i), i

  Next

End Sub

nono78220 · Answer

Bon je vais au lit.

Je pnese que tu es aller te coucher, cela fait plus d'1h que tu as laissé ton derrnier message.

A demzain et merci

jmfmarques · Answer

Houla Houla !
Comment comment ?
Machine arrière toute, dans ce cas, ...
Explique bien :
Tu as besoin de trier par dates décroissantes mais tu as également besoin d'associer la date au nom de la personne ?

Si c'est çà, nono, je crois bien :
1) qu'on a tous travaillé pour rien, bien que rien ne soit jamais perdu (bien au contraire) pour tous, à commencer par moi qui ai mis au point un joli petit algo qui me servira ailleurs.
2) que tu devras changer de contrôle et utiliser une listview (ce qui te permettra de faire le tri sur les dates en entraînant dans la foulée les noms (et donc de garder le lien Nom/date).
Du coup, ce sera même plus facile qu'avec une listbox qui, elle, n'a qu'une colonne et ne peut donc faire la même gymnastique.

Bon...
Dis-moi .... et je te répondrai demain matin
Ce que je souhaite savoir est ceci :

1) nom de la variable du nom
2) nom de la variable de la date
ces 2 variables sont forcément séparées, me semble-til, dès lors que tu m'as dit plus haut utiliser une inputbox.

Si tel n'est pas TOUJOURS le cas (articles déjà existants, par exemple) : dis-moi comment ils ont été enregistrés (leur aspect et format précis)

3) nous allons parler maintenant du résultat à afficher.
Imagine un tableau à 2 colonnes :

DATE                                                         NOM

Format désiré exact                                   longueur du nom le plus long

Voilà. Ne te lance pas dans de grandes explications qui ne me servitont pas vraiment, mais renseigne les 2 parties en rouge
Exemples pour les dates : JJ/MM/AAAA ou JJ.MM.AAAA ou AAAA/MM/JJ ou AAAA.MM.JJ etc....
Exemple pour la longueur du nomp le plus long : 27

jmfmarques · Answer

Bonjour,

Moi, je suis prêt
çà fonctionne et l'utilisateur peut saisir da date comme il se souhaites parmi ces quatre choix (JJ/MM/AAAA, JJ MM AAAA,  JJ-MM-AAAA ou JJ.MM.AAAA), à sa guise
(j'ai créé pour çà une varaiable sep = "je m'en fous" 

Le tri se fait bien, dans l'ordre décroissant et les noms restent bien associés.

Me manquent plus que tes réponses.
De retour dans 2 heures...

nono78220 · Answer

Bopnjour jmf

Désolé pour le reatard de mes réponses, mais journées intenses cette semaine.
En ré"ponse à tes questions:

Format désiré exact: dd.mm.yyyy (avec des points)
ongueur du nom le plus long: 100 caracteres je pense

Le titre du document scanné "NomFichierScanne" dans ma listbox assoice la date et le nom (réponses aux inputbox) -- > cf plus haut
Ex:
NomFichierScanne = datedocument & " " & NomFichier
datedocument ="19.06.2007"  --> réponse à la seconde inputbox
NomFichier = Nono est content  --> réponse à la premiere inputbox
soit 
NomFichierScanne = 19.06.2007 Nono est content

A tout à l(haure jmf
Merci

nono78220 · Answer

J'ai oublié de répondre à cette question: Si tel n'est pas TOUJOURS le cas (articles déjà existants, par exemple) : dis-moi comment ils ont été enregistrés (leur aspect et format précis)

lorsque les aritcles ont déjà été scannés, ils sont enregistrés dans un dossier et dans la listbox avec cette variable NomFichierScanne
Et donc quand je clique sur la listbox, j'utilise shell ... pour ouvrir l'article (enregistré dans un dossier avec ce nom) pour le visualiser.

je ne sais pas si je suis clair ....

Une listview ? Interessant ce que tu me dis là. Je ne connais pas encore très bien ce control.

jmfmarques · Answer

Alors :
1) Projet ===>>> composants ====>> parcourir ====>> choix de COMCTL32.OCX ===>> insérer ===>>> plusieurs composant s'affichent alors dans ta fenêtre des composants ===>>> insére alors le composant ListView et laisse le nom ListView1 qui va lui être donné par défaut

Etire ta listview aux dimensions qui te paraissent agréeables

Code

Ajoute un bouton command1 et 2 textboxes Text1 et Text2
Text1 et text2 sont à utiliser, dans cet ordre : text1 pour saisir la date, Text2 pour saisir le nom
Tu génères ainsi la variable monchamp = Text1 & " " & Text2
Il est clair que monchamp pourrait également provenir de ce que tu veux d'autre, y compris d'une base de données.
Le principe reste le même : tu as à exploiter et à ajouter une variable monchamp = "jj.mm.aaaa unnom"


En cliquant sur command1, tu insères


Fais plusieurs insertions et observe :


1) j'ai permis (comme exposé au dessus, une liberté de choix de séparateur pour la date)


2) si l'utilisateur n'a pas saisi une date cohérente... tu vas le voir  et ça va beeper.
   Idem d'ailleurs si la donnée venant d'une autre source ne contient pas de date cohérente
3) tes dates sont classées de la dernière à la plus ancienne.

Voilà le code :

Private Sub Command1_Click()
     Dim monchamp As String
     mon_nom = Text1.Text
     ma_date = Text2.Text
     monchamp = Text1.Text & " " & Text2.Text
     ajout_dans_list monchamp, ListView1
End Sub


Private Sub Form_Activate()
    ListView1.View = lvwReport
    Set Font = ListView1.Font
    largeur1 = TextWidth("??? jj/mm/aaaa ???")
    largeur2 = TextWidth(String(100, "A"))
    ListView1.ColumnHeaders.Add , , "DATES", largeur1
    ListView1.ColumnHeaders.Add , , "NOMS", largeur2, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "", 0
    ListView1.SortOrder = lvwDescending
    ListView1.SortKey = 2
    ListView1.Sorted = True
End Sub




Private Sub ajout_dans_list(letexte As String, ctrl As ListView)
  tremplin = letexte
  la_date = Left(letexte, InStr(letexte, " ") - 1)
  le_nom = Trim(Mid(letexte, InStr(letexte, " ") + 1))
  tremplin = la_date
  sep = "je m'en fous"
  If tremplin Like "## ## ####" Then sep = " "
  If tremplin Like "##.##.####" Then sep = "."
  If InStr(tremplin, sep) > 0 Then
    tremplin = Replace(tremplin, sep, "-")
  End If
  If Not IsDate(tremplin) Or Len(tremplin) < 10 Then
     Beep     tremplin "9999999999": la_date "???" & la_date & "??"
  End If
  Dim itmX As ListItem
  Set itmX = ctrl.ListItems.Add(, , la_date)
  itmX.SubItems(1) = le_nom
  itmX.SubItems(2) = tremplin
End Sub

Dis-moi....

nono78220 · Answer

Je test le code sur un nouveau projet.
J'ai un run time error 13 type mismatrch sur 
"ajout_dans_list monchamp, ListView1"

sais-tu pourquoi ?

jmfmarques · Answer

Non !
Absolument pas !
Je viens de faire (sur un nouveau projet) les mêmes gestes que toi et n'ai aucune erreur !
Questions, donc :

1) as-tu bien inséré une cintrôle listview nommée Listview1 ?
2) quelle est ta version de VB ?

jmfmarques · Answer

J'y pense :
tu as mon email.
Envoie-moi en pièce jointe ce nouveau projet qui ne marche pas chez toi

jmfmarques · Answer

Tiens !
une petite vérification télécommandée :

Ajoute un bouton command2 dans ton npouveau projet qui génère l'erreur 13,

avec ce code

Private Sub Command2_Click()
  For Each ctrl In Controls
      bon = "non"
      If TypeOf ctrl Is ListView Then bon = "oui": Exit For
    Next
    MsgBox bon & "  " & ctrl.Name
End Sub

Lance, appuie uniquement sur command2 et dis-moi ce qui s'affiche, pour y voir clair.

nono78220 · Answer

j'ai VB6

l'erreur est variable not dfefined pour le ctrl dans 
 For Each ctrl In Controls

si j'appuie sur le bouton de commande 2

jmfmarques · Answer

çà c'est parce que tu as un Option Excplicit (tout en haut)

recommence avec ceci, alors

Private Sub Command2_Click()
  Dim ctrl As Control, bon As String
  For Each ctrl In Controls
      bon = "non"
      If TypeOf ctrl Is ListView Then bon = "oui": Exit For
    Next
    MsgBox bon & "  " & ctrl.Name
End Sub

Et c'est peut-être de là que venait l'erreur 13, au fait (définis toutes les variables dans mon code)

nono78220 · Answer

j'ai laissé option explicit et ai remplacé le code du bouton de commande 2 par ce nouveau code. J'ai une nouvelle erreur 

"run time erreur 91
object varable or vith bloc variable not set "
et le focus est sur:
MsgBox bon & "  " & ctrl.Name

Ave cle bouton de commande 1 toujours l'erreur 13

Tu veux toujours que je t'envoie mon code sur ta boite mail ?

jmfmarques · Answer

Oui, envoie...

Mais je vois déjà ce que c'est !!!
Tu n'as pas inséré le contrôle ListView !!!
Alors c'est sur, rien ne peut marcher s'il n'est pâs là !!!

Envoie et je te le renvoie corrigé.

nono78220 · Answer

je rentre chez moi
je revois cela 
je te tiens au courant
je t'ai envoyé  le code sur MP
je te l'adresse  sur ta boite mail

A tout à l'heure dans 2 heures ....

jmfmarques · Answer

Bon,

Nous nous sommes parlé au téléphone et finalement tout est résolu.
Il s'agissait apparemment d'un problème sur un PC et pas sur l'autre (un ocx pollué sur l'un des 2, apparemment).
Mais notre conversation m'a permis de découvir un petit problème idiot, maintenant réparé !
Dans mon élan pour installer un garde-fou/dates incohérentes, j'ai écrasé une ligne essentielle...

Voilà donc la version finale, en incluant l'option Explicit.
En rouge, ce qui avait été "écrasé" par erreur.

Option Explicit
Private Sub Command1_Click()
     Dim monchamp As String, mon_nom As String, ma_date As String
     mon_nom = Text1.Text
     ma_date = Text2.Text
     monchamp = Text1.Text & " " & Text2.Text
     ajout_dans_list monchamp, ListView1
End Sub


Private Sub Form_Activate()
Dim largeur1 As Long, largeur2 As Long
    ListView1.View = lvwReport
    Set Font = ListView1.Font
    largeur1 = TextWidth("??? jj/mm/aaaa ???")
    largeur2 = TextWidth(String(100, "A"))
    ListView1.ColumnHeaders.Add , , "DATES", largeur1
    ListView1.ColumnHeaders.Add , , "NOMS", largeur2, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "", 0
    ListView1.SortOrder = lvwDescending
    ListView1.SortKey = 2
    ListView1.Sorted = True
End Sub


Private Sub ajout_dans_list(letexte As String, ctrl As ListView)
  Dim tremplin As String, la_date As String, le_nom As String, sep As String
  tremplin = letexte
  la_date = Left(letexte, InStr(letexte, " ") - 1)
  le_nom = Trim(Mid(letexte, InStr(letexte, " ") + 1))
  tremplin = la_date
  sep = "je m'en fous"
  If tremplin Like "## ## ####" Then sep = " "
  If tremplin Like "##.##.####" Then sep = "."
  If InStr(tremplin, sep) > 0 Then
    tremplin = Replace(tremplin, sep, "-")
  End If
  If Not IsDate(tremplin) Or Len(tremplin) < 10 Then
     Beep     tremplin "9999999999": la_date "???" & la_date & "??"
  Else
     tremplin = Format(tremplin, "yyyymmdd")
  End If
  Dim itmX As ListItem
  Set itmX = ctrl.ListItems.Add(, , la_date)
  itmX.SubItems(1) = le_nom
  itmX.SubItems(2) = tremplin
End Sub

Vous devinez bien pourquoi cette ligne est essentielle, n'est-ce pas ???
C'est elle qui permet, précisément, les bons placements.

petitcaro112 · Answer

Bonjour !

Sans vouloir revenir sur le sujet, moi j'ai tout simplement une listbox où il n'y a que des dates dedans au format JJ/MM/AAAA. Je souhaite simplement (puis-je me permettre d'employer ce terme vu le débat qu'il y a eu ici ???) classer ces dates (croissant ou décroissant ce n'est pas un problème).

Alors pour explication rapide :
- Au chargement de la Form, la listbox est remplie par des dates prises dans une base de donnée et elle est invisible
- J'aimerai ensuite que les dates soient classées (croissant ou décroissant peu importe) dans la listbox
- Une fois les dates triées, la listbox devient visible.

Quelqu'un peut me donner des explications pour le classement (algo ou code) ?

Renfield · Answer

vu que tes dates sont issues d'une base de données, demande un tri dans ta requete...

sSQL = "SELECT `maDate` FROM `maTable` ORDER BY `maDate` ASC"
...

Renfield · Answer

ou bien stockes tes dates ainsi formatées

YYYY/MM/DD

petitcaro112 · Answer

Je vais tester ça de suite, et je pense que c'est la solution à mon problème (c'est plus rapide que je ne le pensais !)

Par contre si par la suite je crée un bouton qui me permet de classer par ordre croissant ou décroissant, faut-il simplement que je vide ma listbox et que je recharge les données avec ASC ou DSC (je suppose que c'est DSC..) ? Ca m'a l'air si simple d'un coup...

Pour le format des données, je suis obligé de garder DD/MM/YYYY, j'ai près de 200 dates déjà inscrites, je me sens pas de tout modifier...

Merci beaucoup pour la réponse !

petitcaro112 · Answer

Bon c'est merveilleux, ça marche si facilement !

Merci beaucoup Renfield !!!

Il faudrait que j'en apprenne un peu plus sur les accès aux bases de données...

Les bases de données, ça change vraiment la vie !
(Hors Sujet : où est-ce que je peux trouver un petit tuto ou une liste des fonctions d'accès aux Bases de Données ?)

Renfield · Answer

ASC <> DESC

pour le format des dates, peu importe, tu peut les formater a la volée... 
je piges pas trop a quoi te sert ta listbox, mais bon ^^ (composant visuel utilisé masqué... joues avec un recordset, un tableau dynamique ou une collection...)

petitcaro112 · Answer

Non en fait il est masqué tant que le tri n'est pas fait, mais du coup je n'ai plus besoin de le cacher, vu que le tri se fait automatiquement quand je me connecte à ma table !

yomm · Answer

Salut,

Il est vrai qu'en passant par une requête SQL cela simplifie grandement les problèmes de tri ;-)

Yomm

[yommvb@free.fr yommvb@free.fr]

Et que la source soit avec toi!!!!!

petitcaro112 · Answer

Merci beaucoup pour ces réponses !

Juste pour savoir s'il y a sur ce site un tuto ou une liste des commandes lorsqu'on se connecte à une table (tri, sélection, etc...) ?

Je suis au boulot actuellement et je n'ai pas trop le temps de chercher...

Merci

Renfield · Answer

voir plutot sqlfr.com

Demande d'info sur la, propriété "SORTED" d'une listbox

48 réponses

Votre réponse

Discussions similaires