Verifier le contenu d'une listbox

Version imprimable

16/07/2009, 16h38
Nako_lito

Verifier le contenu d'une listbox

Bonjour,
Tout est dans le titre, je voudrais conanitre la synthaxe pour pouvoir parcourir une listbox et verifier si un element est présent.

j'ai testé avec

Code:

listbox.items(i)

=> marche pas
pourtant en me balladant dans google, j'ai souvent vu cette synthaxe revenir. Jcomprend pas.

Merci
16/07/2009, 16h44
aalex_38

Bonjour,

Le Listbox est sur une feuille ou dans un userform ?
16/07/2009, 17h00
Nako_lito

elle est sur un userform et je voudrais comparer chaque ligne avec une textbox.
16/07/2009, 18h01
aalex_38
Bonjour,

Pour compter les éléments présents dans le listbox :

Code:

ListBox1.listCount

Pour lister les éléments :
Code:

1 2 3 4 Dim i As Integer For i = 0 To ListBox1.ListCount - 1 Debug.Print ListBox1.List(i) Next i
Edit : de superbes tutoriaux ici

mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButtonAdd_Click()
    Dim i As Integer
    Dim existe As Boolean
    Dim nomFichier As String
    existe = False
 
    For i = 0 To ListBox1.ListCount - 1
        If ListBoxChamps.List(i) = TextBoxchampRajout.Text Then
            existe = True
        End If
    Next i
 
    If existe = True Then
        MsgBox "Champ deja existant", vbOKOnly
    Else
        ListBoxChamps.AddItem (TextBoxchampRajout.Text)
    End If
 
End Sub

Le truc c'est que ca ne fonctionne pas au niveau du if.

17/07/2009, 09h40
Minick

Salut,

Normal : dans ton If tu mets ListBoxChamps
dans ton For ListBox1

L'un des 2 ne doit pas etre bon (ListBoxChamps) apparemment, donc il faut renommer
ton controle soit en ListBox1 soit en ListBoxChamps

++
Minick

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButtonAdd_Click()
    Dim i As Integer
    Dim existe As Boolean
    Dim nomFichier As String
'Pas nécessaire
'existe = False
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBoxChamps.List(i) = TextBoxchampRajout.Text Then
            existe = True
            Exit For
        End If
    Next i
    
'    If existe = True Then
    If existe Then 'Suffit
        MsgBox "Champ deja existant", vbOKOnly
    Else
        ListBoxChamps.AddItem (TextBoxchampRajout.Text)
    End If
 
End Sub

Quel type de données dans la listbox et textbox ?
A+

17/07/2009, 09h45
Nako_lito

Mais quel boulet je fait :aie:

Merci, :ccool: