D
Denis
Guest
Bonjour à tous
un petit Pb à vous exposer :
sur un USF, Un listbox "fournisseur" sur lequel quand on double-click, alimente un listview.
le premier remplissage du list view est rapide.
si je double-click un autre fournisseur (sans article celui-là) temps normal.
si je reviens à ma première sélection, le remplissage devient extrèmement long ! de plus la 2ème colonne du listview se remplit alors aléatoirement.
ci-dessous, le code de remplissage, c'est dans la boucle "for next" que le problème se trouverait
j'ai chronométré sur un stop tous les 1000 de la boucle, celà varie de 1 à 2s jusqu'à 15s
Sub RemplitLBW()
N = 0
Colonne = Me.ListBox1.List(Me.ListBox1.ListIndex, 1) + 8
Me.ListView1.ListItems.Clear
With ThisWorkbook.Sheets("Produits")
Derligne = .Range("B65536").End(xlUp).Row
For i = 2 To Derligne
If .Cells(i, Colonne) <> "" Then
Me.ListView1.ListItems.Add , , .Range("B" & i)
Me.ListView1.ListItems(N + 1).ListSubItems.Add , , i
N = N + 1
End If
Next
End With
End Sub
Désolé le fichier ne passe pas en pce (trop lourd même Zippé et nettoyé)
Merci de vos réponses
à +
Denis
un petit Pb à vous exposer :
sur un USF, Un listbox "fournisseur" sur lequel quand on double-click, alimente un listview.
le premier remplissage du list view est rapide.
si je double-click un autre fournisseur (sans article celui-là) temps normal.
si je reviens à ma première sélection, le remplissage devient extrèmement long ! de plus la 2ème colonne du listview se remplit alors aléatoirement.
ci-dessous, le code de remplissage, c'est dans la boucle "for next" que le problème se trouverait
j'ai chronométré sur un stop tous les 1000 de la boucle, celà varie de 1 à 2s jusqu'à 15s
Sub RemplitLBW()
N = 0
Colonne = Me.ListBox1.List(Me.ListBox1.ListIndex, 1) + 8
Me.ListView1.ListItems.Clear
With ThisWorkbook.Sheets("Produits")
Derligne = .Range("B65536").End(xlUp).Row
For i = 2 To Derligne
If .Cells(i, Colonne) <> "" Then
Me.ListView1.ListItems.Add , , .Range("B" & i)
Me.ListView1.ListItems(N + 1).ListSubItems.Add , , i
N = N + 1
End If
Next
End With
End Sub
Désolé le fichier ne passe pas en pce (trop lourd même Zippé et nettoyé)
Merci de vos réponses
à +
Denis