J'ai un souci avec erreur qui apparai à chaque fois:
 
Mon application ajoutete une ligne suplementaire dans une liste à 2 colonnes.
Je verifie avant les lignes occuppées avant de determiner la ligne ou doit etre affichée la ligne ajoutée.
Au moment d'arriver au:
'LstAnnonces.List(i, 0) = TextAjout(0).Text'
j'ai l'erreur 'runtime error, automation error -2146233079 (8013509)'.
Avant de sauvegarder en .exe ça marche, mais apres j'ai cette erreur.
 
Merci pour votre aide!!
 
Private Sub CmdAjout_Click()
 
Dim i
 
LstAnnonces.AddItem
 
10:
 
If LstAnnonces.List(i, 0) <> "" Then
    i = i + 1
    GoTo 10
End If
 
LstAnnonces.List(i, 0) = TextAjout(0).Text    (*)
LstAnnonces.List(i, 1) = TextAjout(1).Text
LstAnnonces.ListIndex = i
 
CmbGenre.Text = "(Genre)"
TxtAdresse.Text = "(Adresse)"
CmbContact(0).Text = "(Nom)"
CmbContact(1).Text = "(Poste)"
CmbContact(2).Text = "(Service)"
CmbContact(3).Text = "(Adresse Email)"
CmbContact(4).Text = "(Telephone)"
 
End Sub
 

Bein finalement j'ai résolu mon probleme tout seul
Voilà pour ceux qui on été ennuyé comme moi:
******************************
Dim i
 
LstAnnonces.AddItem
 
i = LstAnnonces.ListCount - 1
 
LstAnnonces.List(i, 0) = TextAjout(0).Text
LstAnnonces.List(i, 1) = TextAjout(1).Text
 
LstAnnonces.ListIndex = i
 
genre(numligne) = "(Genre)"
contact(numligne, 0) = "(Nom)"
contact(numligne, 1) = "(Poste)"
contact(numligne, 2) = "(Service)"
contact(numligne, 3) = "(Adresse Email)"
contact(numligne, 4) = "(Telephone)"
adresse(numligne) = "(Adresse)"
*****************************************
J'ai sauvegardé en .exe avec la commande stop placée entre les lignes pour savoir à quel moment l'erreur était placée.
En fait c'est au moment ou j'edite les TextBox
Donc j'ai décidé de remplir des variables associés à la place.
Les textBox sont editées plus tard.