problème ajout suppression listbox

Bonsoir,

Essai comme ceci :

Code:

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é