Discussion :

[Nako_lito]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

listbox.items(i)

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

Merci

[aalex_38]

Bonjour,

Le Listbox est sur une feuille ou dans un userform ?

[Nako_lito]

elle est sur un userform et je voudrais comparer chaque ligne avec une textbox.

[aalex_38]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ListBox1.listCount

Pour lister les éléments :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nako_lito]

mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[LeForestier]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+