[AC-2007] Effacer tous les elements d'un listbox sauf l'entete [Résolu]

[mamadouabd]

Bonjour

Je veux effacer les elements d'un listbox sans effacer l'entete. Pour l'instant j'ai le code suivant qui me laisse un element dans mon listbox :

Code :

1
2
3
4
5
6
Sub ClearList(l As ListBox)
On Error Resume Next
    For i = 1 To l.ListCount
        l.RemoveItem i
    Next
End Sub

Merci de votre aide

[Maxence HUBICHE]

Bonjour,
tu as essayé

Code :

l.clear

??

[mamadouabd]

Clear est inexistant dans les fonctions d'un listbox

[paidge]

Bonjour,

Et si tu commences ta boucle à i=0 ?

[mamadouabd]

L'entete de colonnes est à la position 0, raison pour laquelle j'ai commencé ma boucle à 1

[mamadouabd]

Finalement mon problème est résolu, il restait un dernier élément dans le listbox et je le supprime a la fin de la boucle

Code :

1
2
3
4
5
6
7
8
9
Sub ClearList(l As ListBox)
On Error Resume Next
    For i = 1 To l.ListCount
        If i <= l.ListCount Then
            l.RemoveItem i
        End If
    Next
    l.RemoveItem 1
End Sub

[Maxence HUBICHE]

Envoyé par mamadouabd

Clear est inexistant dans les fonctions d'un listbox

Oups pardon !

Sous Access, et notamment si tu as mis "Liste Valeurs" et non pas "Table/Requête" dans la propriété RowSourceType, tu peux simplement faire :

Code :

1
2
 
l.RowSource =""