RUNTIME ERROR BESOIN D'AIDE! - VB/VBA/VBS - Programmation
Marsh Posté le 07-01-2006 à 12:35:55
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.
Marsh Posté le 30-12-2005 à 21:36:15
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
---------------
10 offerts|Etudes en Angleterre