Discussion :

[nicoborde]

Bonjour,
je souhaiterais faire une listbox avec un bouton ajout et suppression.
Je suis reparti avec un exemple trouver sur le net mais ça ne marche pas.

[Theze]

Bonsoir,

Essai comme ceci :

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
23
24
25
26
27
28
29
30
31
32
 
Private Sub cmdajouter_Click()
 
    rep = InputBox("Entrez ce que vous voulez entrer dans la liste", "Entrée de nouvelles données")
 
    With ListBox1
 
        For I = 0 To .ListCount - 1
 
            If .Selected(I) Then
 
                .AddItem rep, I
 
                Exit Sub
 
            End If
 
        Next I
 
    End With
 
    End Sub
 
Private Sub cmdsupprimer_Click()
 
    With ListBox1
 
        .RemoveItem .ListIndex
 
    End With
 
End Sub

Hervé