Tri dans ListView

[Papynou]

Bonjour le forum,

j'ai quelques soucis de tri avec les ListView.

Sur les formats et le tris de colonnes numériques.

Ci-joint mon fichier.

 

[Papynou]

Re : Tri dans ListView

Bonsoir le forum,

J'ai pas mal avancé mais en ayant passé une partie de la jounée dessus 😀

Les tris fonctionnent.

Le roblème des formats numériques et date sont réglés.

Il y a un problème avec la ListView_Encours qui s'affiche à l'ouverture en haut et à gauche mais revient à sa place lorsque l'on revient au menu et qu'on l'ouvre à nouveau 😕

Si quelqu'un a une explication je suis preneur.

Je bloque maintenant sur la ListView_Archives dans laquelle je voudrais voir le résultat de la recherche lancée par le CommandButton Cmd_ Recherche (en fait c'est une ComboBox qui défini le premier critère de recherche et le deuxième est lui défini par une TextBox qui joue le rôle d'une InputBox).

Là encore je suis preneur de toute idée.

 

[Papynou]

Re : Tri dans ListView

Bonjour le forum,

J'en suis là avec mes 2 ListBox :

Elles se positionnent correctement dans l'Usf.

Elles récupèrent les données sur différentes feuilles et sur différentes plages.

Les formats des colonnes numériques et de date sont OK.

Le tri par colonnes en ordre croissant ou décroissant se fait par simple click sur l'entête de la colonne.

J'ai ajouté les CheckBox qui, lorsqu'elles sont cochées, changent l'apparence des lignes sélectionnées (gras et couleur). 😛

Mon souci maintenant est de pouvoir faire une recherche rapide dans les feuilles via une TextBox fonctionnant comme une InputBox et afficher le résultat de cette recherche dans la ListBox.

Je vais continuer de fouiller dans les archives du forum en attendant que l'un des forumeurs m'envoye sur une piste.

Le problème c'est qu'il y a tellement de choses intéressantes dedans 🙂 que bien souvent j'oublie ce que je recherche 😕 et que je n'avance pas 😀

 

[Papynou]

Re : Tri dans ListView

Re

Deux heures dans les archives et pas encore de solution mais plein d'infos sur d'autres choses.

J'y retourne puisque pour le moment le forum est silencieux.

 

[Papynou]

Re : Tri dans ListView

Re,

Je sors des archives pour voir si quelqu'un s'est penché sur mon problème.
Nobody home?

 

[Hervé]

Re : Tri dans ListView

bonsoir papynou 🙂

pour la recherche, voici ce que je peux te proposer, en espérant avoir compris :

Private Sub Cmd_Recherche_Click()
Dim c As Range
Dim colonne As Byte
Dim ligne As Integer
Dim x As Integer
Dim i As Byte

'****************************
Me.Label_NbCltsArchives.Visible = False
Me.Label_NbCltsTrouves.Visible = True
Me.TextBox_NbCltsArchives.Visible = False

With Me.ListView_Archives
    With .ColumnHeaders
        .Clear
        .Add , , "N° du Client", 70
        .Add , , "N° Ent.", 50, lvwColumnLeft
        .Add , , "N° SIREN", 70, lvwColumnCenter
        .Add , , "Nom du Client", 200, lvwColumnLeft
    End With
    .CheckBoxes = True
    .FullRowSelect = True
    .Gridlines = True
    .ListItems.Clear
    .View = lvwReport
End With

colonne = IIf(ComboBox1.ListIndex = 0, 3, 1)

With Feuil2 'salut zon :)
    ligne = .Cells(65536, colonne).End(xlUp).Row
    For Each c In .Range(.Cells(2, colonne), .Cells(ligne, colonne))
        If c = CDbl(TextBox_No) Then
            x = x + 1
            Me.ListView_Archives.ListItems.Add , , .Cells(c.Row, 1)
            For i = 2 To 4
                Me.ListView_Archives.ListItems(x).ListSubItems.Add , , .Cells(c.Row, i)
            Next i
        End If
    Next c
End With
            

With Me.TextBox_NbCltsTrouves
    .Visible = True
    Me.TextBox_NbCltsTrouves = ListView_Archives.ListItems.Count - 0
    Me.TextBox_NbCltsTrouves = Format(Me.TextBox_NbCltsTrouves, "### ##0")
End With
End Sub

salut

 

[Papynou]

Re : Tri dans ListView

Re Bonjour Hervé,

Merci pour ton aide précieuse.

J'ai pris l'habitude de ne pas utiliser de copier/coller pour intégrer dans le module les réponses que je reçois et recopie ligne par ligne afin d'essayer de comprendre.

Dans ton code la ligne ci-dessous correspond à quoi ?

colonne = IIf(ComboBox1.ListIndex = 0, 3, 1)

Je n'ai pas de combobox dans ce Usf et IIf n'est pas déclaré.

Quand au résultat de l'intégration de ton code dans mon module, la recherche ne se fait pas.

 

[Hervé]

Re : Tri dans ListView

bonjour

colonne = IIf(ComboBox1.ListIndex = 0, 3, 1)

c'est juste une syntaxe plus courte d'un if then else.

j'aurais pu ecrire :

if combobox1.listindex=0 then
colonne=3
else
colonne=1
end if

Je n'ai pas de combobox

euh...j'ai travaillé sur la dernière pièce jointe que tu as fournis, et j'ai bien trouvé une combobox 😕

de plus le code fonctionne chez moi (sinon je ne te l'aurais pas envoyé) 🙂

je sens que j'ai pas bossé sur la bonne pièce jointe, et que ton fichier à évoluer.

en piece jointe ton fichier qui fonctionne.

salut

 

[Papynou]

Re : Tri dans ListView

Bonjour Hervé,

Effectivement le fichier évolue et j'ai supprimé la ComboBox me disant qu'elle ne servait pas à grand chose mais sans prévenir le forum. Quel âne !

Vu que ton code fonctionne parfaitement avec elle, et bien je la remets.

Merci encore.

 

[Papynou]

Re : Tri dans ListView

Re,

Le code d'Hervé fonctionne parfaitement puisque jai repris le fichier sur lequel il est intervenu. Encore toutes mes excuses Hervé mais surtout tous mes remerciements.

Un seul petit hic, pas de gestion d'erreurs.

S l'on active le CommandButton alors que la TextBox est vide ça bug.

Je vais aller fouiller dans les archives voir si quelque chose à ce sujet.

 

[Hervé]

Re : Tri dans ListView

re 🙂


ah ben oui papynou, j'ai pas tout fait 😀

il faut mettre un truc du style : if textbox="" then exit sub

salut

 

[Papynou]

Re : Tri dans ListView

re Hervé,

C'est ce que j'ai fait un peu après avoir envoyé mon post de 16h12. J'ai testé et ça fonctionne. C'est ce que je venais écrire sur ce post, lorsque j'ai vu le tien. Pas de doutes, tu es vraiment un magicien des codes

Je venais aussi pour dire que j'avais encore un souci avec ce fichier sur le chargement de la ListView "Archives".
Seules les 8 premières lignes s'affichent alors que la feuille en compte une cinquantaine ?

 

[ChTi160]

Re : Tri dans ListView

Salut Papynou
bonsoir le fil
Bonsoir le Forum

arff je pense qu'il te faut choisir ou tu travailles sur la Feuille Encours et tu laisses

With ThisWorkbook.Worksheets("Encours")

ou alors tu mets

With ThisWorkbook.Worksheets("Archives")

pour travailler sur la Feuille Archives
en espèrant avoir pu t'aider lol

Bonne Soirée

Ps: un Salut Particulier à mon Ami Hervé 😉

 

[Papynou]

Re : Tri dans ListView

Salut Jean Marie,

Je n'ai pas compris ce que tu voulais dire.

Sur le même Usf il y a 2 CommandButton qui servent à sélectionner deux ListVew, une nommée "Encours" et une "Archives".

La ListView "Encours" à l'air de bien fonctionner et s'initialise avec l'intégralité des données contenues dans la feuille "Encours".

Par contre pour la ListView "Archives" si le tri par sélection et la recherche se font bien (grâce soit rendu à Hervé, le magicien des codes), je n'arrive pas à trouver comment l'initialiser avec l'intégralité des données contenues dans la feuille "Archives".

 

[Bebere]

Re : Tri dans ListView

bonsoir Papinou,Hervé,Chti
ini de tablo était fautif,compare l'ancienne et la nouvelle
With ThisWorkbook.Worksheets("Archives")
tablo = .Range("A2😀" & .Range("a65536").End(xlUp).Row)
End With

à bientôt