Listview avec macro pour classer ordre croissant

[bloomby]

Bonjour à tous,

ci joins j'ai un lisview qui affiche des données
j'aimerais que lorsque l'on clique sur (%) par exemple ou n'importe quel autre titre dans le listview ex: (name)(heure)(nombre)

que les données se classe en ordre croissant
c'est à dire, si on clique sur nombre la première ligne en gaut devrais afficher
02/01/2009 6 HEURES 5178 -25%

Merci de votre aide

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Bonjour,

Avant d'attaquer ce fil, qu'en est-il de celui-là :

https://www.excel-downloads.com/threads/creer-une-boucle-pour-des-listview.113476/

A+

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Re,

Bon Bloomby, si vous avez un minimum de savoir-vivre, vous aurez deux posts auxquels répondre...

Voici votre fichier et la macro :

Dim Flag As Boolean

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim i As Integer

With ListView1
   
For i = 1 To .ListItems.Count [COLOR="Red"]'1ère colonne au format décimal[/COLOR]
.ListItems(i).Text = CDec(CDate(.ListItems(i).Text))
Next

If Flag Then
.SortOrder = lvwDescending [COLOR="Red"]'pour les clics d'ordre pair[/COLOR]
 Else
  .SortOrder = lvwAscending [COLOR="Red"]'pour les clics d'ordre impair[/COLOR]
 End If
.Sorted = True [COLOR="Red"]'la propriété Sorted exécute le tri[/COLOR]
Flag = Not Flag

For i = 1 To .ListItems.Count [COLOR="Red"]'Retour 1ère colonne au format dd/mm/yyyy[/COLOR]
.ListItems(i).Text = Format(CDate(.ListItems(i).Text), "dd/mm/yyyy")
Next

End With

End Sub

Un 2ème clic sur une colonne inverse l'ordre du tri.

A+

 

[Gael]

Re : Listview avec macro pour classer ordre croissant

Bonjour Bloomby, bonjour Job75,

Si les colonnes doivent être toujours triées dans le même ordre:

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
' Réalise le tri d'une colonne en cliquant sur l'en-tête
    ListView1.SortKey = ColumnHeader.Index - 1 '-1 car l'index commence à 1 et les en-têtes à partir de 0
   ListView1.Sorted = True
    ListView1.SortOrder = lvwAscending 'Ordre de tri
End Sub

@+

Gael

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Salut Gael,

Je pensais que Bloomby voulait toujours trier selon les dates, quelque soit la colonne cliquée.

Faut que je revois ma copie.

A+

 

[bqtr]

Re : Listview avec macro pour classer ordre croissant

Bonjour à tous,

Job75, si seulement il n'y avait que deux posts sans réponse de sa part :
Regarde ICI, ICI, ICI, ICI ou encore ICI
Bon j'arrête là car il y en a d'autres ... c'est un spécialiste du genre.

A+

 

[MJ13]

Re : Listview avec macro pour classer ordre croissant

Bonjour à tous


Boomby ne sait peut-être pas qu'en ayant sur son bureau (virtuel bien sur) ce lien,


Il pourra répondre à tous ces anciens posts restés sans réponses de sa part (j'espère qu'il n'en a pas trop🙄).

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Salut Pierre Olivier et Michel,

Merci pour ces infos.

Cela dit j'ai essayé de revoir ma copie, mais avec la méthode utilisée, le tri par colonne est alphanumérique. A part les dates, avec les autres colonnes, les nombres ne sont pas triés correctement.

On peut évidemment trier le tableau dans la feuille, mais c'est pas terrible comme solution...

A+

 

[bloomby]

Re : Listview avec macro pour classer ordre croissant

Bonjour Pierre Olivier , job75 et Michel,

Dans un premier temps, merci à toi Michel pour le lien, il est vrai que je perds souvent mes sujets dans les nombreux messages sur le forum

Par la suite merci à Pierre Oliver et Job75 pour votre aide sur ce fil,

j'ai fait un essai qui fonctionne très bien, maintenant j'essai de le modifier pour que lorsque je clique sur (%) ou autre le classement se face sur ce titre

merci !

 

[bloomby]

Re : Listview avec macro pour classer ordre croissant

Bonjou à tous,

j'avais créer une macro de ce type pour excel cela ressemblait a:

Sub Classement()

Dim i As Integer
i = Range("G3")

Range("A8:K1000").Select
Selection.Sort Key1:=Cells(9, i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

je ne sais pas si il est possible d'écrire pratiquement le même code mais pour le userform
merci

 

[BOISGONTIER]

Re : Listview avec macro pour classer ordre croissant

Bonjour,

Voir PJ

Tri direct du ListView:

Pour le numérique +/-, il faut ajouter une valeur positive (1000000 e.g.).

    Case 3
      For i = 1 To ListView1.ListItems.Count
         ListView1.ListItems(i).ListSubItems(c).Text = Format(Val(ListView1.ListItems(i).ListSubItems(c).Text) + 10000, "00000")
      Next i
      ListView1.SortKey = c
      ListView1.SortOrder = lvwAsccending
      ListView1.Sorted = True
      For i = 1 To ListView1.ListItems.Count
       ListView1.ListItems(i).ListSubItems(c).Text = CDbl(ListView1.ListItems(i).ListSubItems(c)) - 10000 & "%"
      Next i

JB

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Bonjour Bloomby, le fil, le forum,

Comme je le disais, on peut évidemment trier la feuille, puis redéfinir la ListView (voir le fichier) :

Dim Flag As Boolean

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Range("A:D").Sort Key1:=Columns(ColumnHeader.Index), Order1:=IIf(Flag, xlDescending, xlAscending), Header:=xlGuess
Flag = Not Flag
ListView1.ListItems.Clear
Call USF 'redéfinit la ListView
End Sub

A noter quil serait sans doute utile de rendre la colonne B numérique en lui appliquant le format personnalisé Standard" HEURES".

Bonne journée.

Edit : bonjour JB

 

[bloomby]

Re : Listview avec macro pour classer ordre croissant

Bonjour fil,le forum ,JB et Job75

merci pour ton aide, c'est en plein se dont j’avais besoin
merci

 

[job75]

Re : Listview avec macro pour classer ordre croissant

Re,

merci pour ton aide, c'est en plein se dont j’avais besoin
merci

JB ou Job75 ? les solutions sont différentes...

A+

 

[bloomby]

Re : Listview avec macro pour classer ordre croissant

bonjour Job75,
j'ai pris votre solution, par contre j'essai de modifier quelques aspects pour lintégrer votre code dans un autre projet,

dans les fait, le classement dois être modélisé sur la plage C7:F7
mais lorsque les données à classer ne commence pas à A1 le classement ne se fait pas parfaitement.

merci