Listebox

Bonjour à tous,

Dans mon projet j'ai une listbox que je rempli par un bouton.

Je voudrai savoir comment faire pour supprimer cette liste dans une ListBox? avec le même bouton ou avec un autre bouton.

Merci d'avance

Amicalement

Noel

Salut le forum

Tu dois utiliser un contrôle issu de la boite Formulaire (Profil - Mac 2004)

ActiveSheet.Shapes("List Box 1").ControlFormat.List = ""

ou

ActiveSheet.Shapes("List Box 1").ControlFormat.RemoveAllItems

Mytå

Re,

Merci Myta mais cela bug sur ce code.

Ma listbox est liée à ma page Resultat sur la colonne "A" qui quand je le demande d'afficher le contenu ça se passe bien mais par contre quand je lui demande de m'enlever la liste pour avoir ma ListBox vierge cela ne se fait pas. Avec ton code il bug.

Merci de ta compréhension.

Amicalement

Noel

Re le forum

Essaye de joindre un bout de fichier afin de voir ton développement.

Mytå

Re Myta,

Je ne sais pas faire pour te joindre un bout du projet mais je te joins la totalité.

Tu feras le nécessaire pour l'effacer sur le forum

Merci d'avance

Amicalement

Noel

Re le forum

Je l'ai associé au CommandButton6

Private Sub CommandButton6_Click()
ListBox1.Clear
End Sub

Tu n'as qu'à éditer ton message précédente et supprimer la pièce jointe.

Mytå

Re,

Merci pour tous ce conseils.

dans la mesure que tu possèdes mon fichier peux-tu me dire comment trier ma ListBox1.

J'ai essayé en partant de la colonne "A" de la feuille RESULTAT" au niveau de l'USF je ne suis pas arrivé.

merci encore

@+

Amicalement

Noel

Re le forum

Pour ta ListBox, une façon de faire

Private Sub CommandButton1_Click()
Dim c As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean

ReDim tablo(1 To 1)
tablo(1) = Sheets("Resultat").Range("A4")
For Each c In Sheets("Resultat").Range("A4:A11")
    present = False
    For i = 1 To UBound(tablo)
        If tablo(i) = c Then present = True
    Next i
    If Not present Then
        ReDim Preserve tablo(1 To UBound(tablo) + 1)
        tablo(UBound(tablo)) = c
    End If
    For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
            If tablo(i) < tablo(j) Then
                temp = tablo(i)
                tablo(i) = tablo(j)
                tablo(j) = temp
            End If
        Next j
    Next i
Next c

ListBox1.List = tablo
End Sub

Mytå

Re,

Ca fonctionne très bien je suis bleufé. Je n'ai rien compris au code à par quelques bouts de ce code.

Merci

@+

Amicalement

Noel

Bonne Année pour toi et toute ta famille.