listbox etrange !

[Nicko]

Bonjour à vous tous,

Voila mon soucis du jour !

j'ai inserer une listbox sur une feuille
A chaque demarrage, la taille de cette listbox diminue !
definie au debut pour faire apparaitre 5 lignes, je n'en ai plus qu'une !
Comment faire pour remedier à ce probleme ?

Autre soucis, j'utilise pour cette listbox le code suivant :

Dim i As Integer, J As Integer

With Feuil1.lb1
For i = 0 To .ListCount - 1
For J = 0 To .ListCount - 1
If .List(i) < .List(J) Then
temp = .List(i)
.List(i) = .List(J)
.List(J) = temp
End If
Next J
Next i
End With

qui est censé me classer les entrées par ordre alpha.
Le probleme c'est que ma listbox comporte 4 colonnes et que ce code ne trie que la premiere colonne en laissant les autres tel quelle !!!!
D'ou un melange d'info sympathique.

Si quelqu'un a, pour ca aussi une solution ...

 

[ziopizza]

Re : listbox etrange !

Bonjour Nicko et le Forum

Pour la 1 question,
Il faut mettre la propriété de ta listbox integralheigt a false.

Salut
Yves

 

[ChTi160]

Re : listbox etrange !

Bonjour Nicko
bonjour ziopizza,José
peut être avec un truc du genre non testé(comme le dit José un petit fichier nous évite de devoir tout reconstruire lol) et d'aller à l'essentiel

Dim tmp As Variant, tmp1 As Variant, tmp2 As Variant, tmp3 As Variant
With Feuil1.lb1
For i = 0 To .ListCount - 1
For J = 0 To .ListCount - 1
If .List(i,0) < .List(J,0) Then
tmp = .List(i, 0): tmp1 = .List(i, 1): tmp2 = .List(i, 2): tmp3 = .List(i, 3)
.List(i, 0) = .List(J, 0): .List(i, 1) = .List(J, 1): .List(i, 2) = .List(J, 2): .List(i, 3) = .List(J, 3) _
.List(J, 0) = tmp: .List(J, 1) = tmp1: .List(J, 2) = tmp2: .List(J, 3) = tmp3
End If
Next J
Next i
End With

bonne fin de Soirée

 

[ChTi160]

Re : listbox etrange !

Salut José

Arffff il faut , mon José , malgré que tu sois au fond lol
que la listebox est 4 colonnes donc une plage de 4 colonnes lol

merci José
bonne fin de Soirée

 

[ChTi160]

Re : listbox etrange !

arff José
je suis sur le Sud Est, Gare de Lyon Lol
Donc loin de chez toi lol
mais sait on jamais !!!!! 😛

Bisous 😀