listebox et listview

Re : listebox et listview

Bonjour Chalet53,

La fonction recherche fonctionne à merveille 😉

Pour la fonction tri, j'ai toujours un plantage et rien ne se passe, je t'envoie le message d'erreur.
Encore un grand merci pour ton travail

Re : listebox et listview

Re,

Je ne comprends pas pour le tri : je n'ai aucun souci chez moi :

Essaie ceci :

Sub tr1()

Sheets("Feuil1").Activate
derligne = Range("A65530").End(xlUp).Row
Range("A4:J" & derligne).Select

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A4:A" & derligne) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A3:I" & derligne)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

a+

Re : listebox et listview

Bonjour Chalet53,

J'ai essayé le code que tu m'as donné, toujours le même problème avec la même erreure.
J'ai essayé sur plusieurs poste avec divers version Excel ça ne change pas. Il y a en plus une erreur de compilation sur cette partie de code

Encore merci de ton aide et du temps passé sur ce projet

Re : listebox et listview

Essaie de vérifier ceci après avoir lancé le code du premier tri que je t'ai donné

Lorsque le plantage apparaît
Faire : Outil / Référence
voir si un des objets est mentionné : MANQUANT
Si oui : le décocher
Sortir et relancer le tri

Sinon, je ne vois pas

Re : listebox et listview

Bonjour Chalet53,

Génial, c'était ça, encore un grand merci 🙂 , je pense qu'il faut des années pour maitriser autant excel, merci de ton temps passé. Si je dois faire évoluer le fichier je sais à qui m'adresser. Mais là je pense qu'il est déjà pas trop mal.
Encore merci de ton aide