[Clos][Déplacé .NET -> VBA]problème urgent !

Fermé
liz739 Messages postés 21 Date d'inscription mercredi 28 décembre 2011 Statut Membre Dernière intervention 30 décembre 2011 - 28 déc. 2011 à 18:53
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 29 déc. 2011 à 13:24
Bonjour,
j'ai un problème pour insérer toutes les variables d'une variable a plusieurs types.
pas facil de s'exprimer...

j'ai fait ça :
Public Sub ajout_ope()

A1 = CStr(entretien(i).NomOpe)
A2 = CStr(tenue_de_route(i).NomOpe)

If UserForm1.ListBox1.Value = entretien(i).NomOpe Then
UserForm1.ListBox2.AddItem (UserForm1.ListBox1.Value)
UserForm1.ListBox3.AddItem CSng(entretien(i).Cout)
UserForm1.ListBox4.AddItem CSng(entretien(i).temps)

ElseIf UserForm1.ListBox1.Value = A2 Then
UserForm1.ListBox2.AddItem (UserForm1.ListBox1.Value)
UserForm1.ListBox3.AddItem CSng(tenue_de_route(i).Cout)
UserForm1.ListBox4.AddItem CSng(tenue_de_route(i).temps)

ElseIf UserForm1.ListBox1.Value = freinage.NomOpe Then
UserForm1.ListBox2.AddItem (UserForm1.ListBox1.Value)
UserForm1.ListBox3.AddItem (freinage.Cout)
UserForm1.ListBox4.AddItem (freinage.temps)

ElseIf UserForm1.ListBox1.Value = Echappement.NomOpe Then
UserForm1.ListBox2.AddItem (UserForm1.ListBox1.Value)
UserForm1.ListBox3.AddItem (Echappement.Cout)
UserForm1.ListBox4.AddItem (Echappement.temps)

End If

End Sub


mais le problème est que pour l'entretien, i peut prendre des valeurs entre 0 et 9 et pour la tenue de route, i peut prendre des valeurs entre 0 et 3
avec ce que j'ai fait, dans ma listbox1 si je sélectionne la première ligne (0) tout s'affiche comme il faut dans mes autres listbox mais si je sélectionne les autres lignes ( (1) -> (9) ou (1) -> (3) ) rien ne se passe.

une idée ?

merci d'avance pour votre aide.

liz739 (je ne suis pas sur VB.Net)

3 réponses

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
28 déc. 2011 à 19:44
Ouais ....
A nouveau dans la section VB.Net
Dommage ¡


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
29 déc. 2011 à 13:23
Bonjour,

Si c'est urgent, tu trouveras bien par toi même.
Le fait de mettre "URGENT" dans le titre ne fera que réduire le nombre de réponses potentielle.

Merci de noter la catégorie pour poster correctement la prochaine fois.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
29 déc. 2011 à 13:24
0
Rejoignez-nous