Sos listbox

[joss56]

Bonjour à tous,

J'essaye de trier un fichier articles d'environ 800 items en fonction de leur catégorie. Je propose la liste des catégories dans un combo et sur la procédure click du combo la listbox propose la liste des articles répondant au critère de catégorie selectionné ds la listbox...hélas ça plante à chaque fois.
Je n'ai plus que CTRL+ALT+SUPP...

Voici le code:
Private Sub ComboBox1_Change() 'dans ce combo figurent les différentes catégories
ListBox1.Clear
With Sheets("articles") 'Mon fichier articles
j = 6 'La 1ère ligne du fichier
Do While .Cells(j, 1) <> ""
If .Cells(j, 3) = ComboBox1.Text Then
ListBox1.AddItem .Cells(j, 1)
j = j + 1
End If
Loop
End With
End Sub
Merci du coup de main

 

[ChTi160]

Re : Sos listbox

Salut joss56

arff un exemple vite fait Lol

le Fichier :Regarde la pièce jointe Classeur1.xls

bonne journée

 

[joss56]

Re : Sos listbox

Merci bcp jean marie
ton exemple fonctionne parfaitement...à ton avis à quel endroit ai-je merdé?
mon code est-il erronné ou bien est-ce qu'il y a trop d'items à trier (+ de 800)
merci encore et bonne journée

 

[ChTi160]

Re : Sos listbox

Salut joss56

voila ce que j'ai modifié dans ta macro pour quelle ne buggue plus

Private Sub ComboBox1_Change()
Dim L As Byte
Dim j As Byte
ListBox1.Clear
With Sheets("articles") 'Mon fichier articles
j = 1 'La 1ère ligne du fichier
Do While .Cells(j, 1) <> ""
If .Cells(j, 3) = ComboBox1.Text Then
ListBox1.AddItem .Cells(j, 1)
End If
j = j + 1
Loop

End With
End Sub
Bone fin de Soirée

 

[joss56]

Re : Sos listbox

Merci beaucoup,

Effectivement ça fonctionne bien mieux comme ça...
Bonne journée à toi