Salut !
J'ais une listbox que je peux remplir de 2 façon:
1- soit en y ajoutant un élément d'une autre listbox;
2- soit en saisissant les informations à ajouter dans un textbox.

Pour le premier cas, pas de soucis. Mais pour le deuxième, j'utilise le code suivant sans succès.
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 Button_Ajout2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Ajout2.Click
        Dim i As Object
 
        If (Me.TextBox_Nom.Text <> "") And (Me.TextBox_DestNum.Text <> "") And (Me.TextBox_DestSoc.Text <> "") Then
            i = New ListBox.ObjectCollection(Me.ListBox_Fax_Destinataire)
            i.item("nom") = Me.TextBox_Nom.Text
            i.item("fax") = Me.TextBox_DestNum.Text
            i.item("société") = Me.TextBox_DestSoc.Text
 
            If Not Me.ListBox_Destinataire.Items.Contains(i) Then
                Me.ListBox_Destinataire.Items.Add(i)
 
                If Me.ListBox_Destinataire.Items.Count > 0 Then
                    Me.Button_DestSuppr.Enabled = True
                End If
            Else
                MsgBox("Elément déjà présent dans la liste!")
            End If
        Else
            MsgBox("Veuillez renseigner les champs  SVP!")
        End If
    End Sub
Que dois-je modifier???