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.

 

[ChTi160]

Re : Tri dans ListView

re
Effectivement ,mais comme la vue Bebere

With ThisWorkbook.Worksheets("Archives")
tablo = .Range("A2 : D" & .Range("a65536").End(xlUp).Row) 'le point en rouge manqué (& .Range)
End With

bonne fin de Soirée

 

[Papynou]

Re : Tri dans ListView

Bonjour bebere, jean marie et le forum,

Je n'utilise pas de copier/coller et je tape donc toutes les lignes des codes pour compendre le "comment ça marche" d'où, souvent, des erreurs de syntaxe que j'ai du mal à retrouver. 😀

J'ai rajouté le . et bien sur, ça marche ! Un grand merci à vous deux 🙂

Maintenant que la ListBox "Archives" est OK, c'est avec "Encours" que j'ai un souci. J'ai fait un test avec la feuille "Encours" remplie d'un millier de lignes, un message de dépassement de capacité arrive et le deboggeur s'ouvre sur X = X + 1 😕

J'ai encore une fois besoin des lumières des forumeurs.

J'a remis le fichier qui a le . 😉

 

[Pierrot93]

Re : Tri dans ListView

Bonjour Papynou, bebere, Jean Marie

A priori c'est normal, je vois ta variable déclarée en type de donnée "Byte" (nombre entre 0 et 255) déclare plutôt en "Integer" (nombre entre -32 768 et 32 767)

bonne journée
@+

 

[Papynou]

Re : Tri dans ListView

Bonjour Pierrot93,

Effectivement, le changement de dénomination de la variable a été le remède efficace. Merci à toi.

 

[Papynou]

Re : Tri dans ListView

Re,

Je croyais être au bout mais non ! Maintenant c'est le décompte du nombre de lignes dans les ListView qui oubie une ligne ?

 

[Pierrot93]

Re : Tri dans ListView

Re Papynou

si c'est le décompte fait à parir du code ci-dessous, c'est normal il y a "-1" :

With Me.TB_NbCltsArchives
    Me.TB_NbCltsArchives = LV_Archives.ListItems.Count - 1
    Me.TB_NbCltsArchives = Format(Me.TB_NbCltsArchives, "### ##0")
End With

@+

 

[Papynou]

Re : Tri dans ListView

Re Pierrot93,

No comment, j'ai honte !

Merci Pierrot

 

[Papynou]

Re : Tri dans ListView

re,

Je voudrais formater la colonne "SIREN" des deux ListView pour que le contenu s'affiche ### ### ###

Pour la ListView "Encours" pas de problème car elle s'initialise avec un code qui défini chaque ListSubItems, il m'a donc suffit de rajouter le format et de le définir.

.ListItems(X).ListSubItems.Add , , Format(TabTemp(L, 3), "### ### ###")

Par contre pour la ListView "Archives", elle s'initialise via un tablo et là je ne sais comment déterminer le format de la colonne "SIREN". 😕

 

[Bebere]

Re : Tri dans ListView

bonjour le fil,le forum
Papynou,la variable x est déclarée byte(valeur max 255)
mets-la en integer
à bientôt

 

[Papynou]

Re : Tri dans ListView

Salut bebere,

C'est exact, j'ai déjà rectifié suite au post de pierrot. Merci à vous.

 

[ChTi160]

Re : Tri dans ListView

Salut papynou
Bonsoir le fil
Bonsoir le Forum
en modifiant la procèdure Archives de la sorte je pense que cela devrait fonctionner comme tu le veux

For J = 2 To UBound(tablo, 2)
If J = 3 Then
.ListItems(i).ListSubItems.Add , , Format(tablo(i, J), "### ### ###")
Else
.ListItems(i).ListSubItems.Add , , tablo(i, J)
End If
Next J

Bonne soirée et bon WeekEnd 😛

 

[Papynou]

Re : Tri dans ListView

Salut Jean Marie
Bonsoir le fil
Bonsoir le Forum

Très vraiment très fort avec les tablo.

Comme de bien entendu : CA MARCHE !!!

Bonne soirée à tous