Discussion :

[Piett2k]

Bonjour,

Voilà une question qui me bloque quelque peu.

J'ai 2 liste (disons liste A et liste B), j'aimerai que le choix fait dans la liste A propose un choix par defaut dans la liste B.

exemple à la noix :

Liste A :
- Restaurant
- Carburant
- ...

Liste B
- TVA 5,5
- TVA 19,6

J'aimerai par exemple que lorsque je choisi Restaurant, il me mette automatiquement sur TVA 19,6 avec la possibilité tout de même de changer (d'ou la liste).

Merci beaucoup d'avance.

[OhMonBato]

Bonjour, tu peux faire comme ça par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
  Combo2.ListIndex = 0
Case 1
  Combo2.ListIndex = 1
End Select
End Sub

[ucfoutu]

Bonjour,

ou, tout simplement, et à condition que les deux listboxes soient remplies dans le même ordre (ce qui est également vrai dans la réponse donnée par OhMonBato :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

list2.listindex = list1.listindex

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
 List1.AddItem "restaurant"
 List2.AddItem "5.5"
 List1.AddItem "carburant"
 List2.AddItem "19.6"
 List1.AddItem "autre chose"
 List2.AddItem "3.2"
End Sub
 
Private Sub List1_Click()
 List2.ListIndex = List1.ListIndex
End Sub

On peut maintenant se demander pourquoi passer par deux listboxes et ne pas utiliser la fonction switch, conçue pour celà (car des taux de TVA, il n'en existe pas des masses !) ... !

Si ce sur quoi tu travailles est simplement la concordance de TVA et de prestations, même une simple chaine de caractères fait l'affaire, pourvu que tu la construises avec 2 séparateurs distincts.
EDIT :
Voilà ... je t'ai bâti un exemple qui permet de faire l'économie de tes 2 listboxes ...

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
Private Sub Command1_Click()
 Dim machaine As String, monchoix As String
 machaine = "@restaurant/5.5@carburant/19.6@tabac/99.99@autre chose/3.2@"
 monchoix = "carburant"
 MsgBox "tva/" & monchoix & " = " & tva(machaine, monchoix)
 monchoix = "restaurant"
 MsgBox "tva/" & monchoix & " = " & tva(machaine, monchoix)
 monchoix = "tabac"
 MsgBox "tva/" & monchoix & " = " & tva(machaine, monchoix)
 monchoix = "autre chose"
 MsgBox "tva/" & monchoix & " = " & tva(machaine, monchoix)
End Sub
 
Private Function tva(MC As String, quoi As String) As Double
  Dim pos As Integer
  pos = InStr(MC, "@" & quoi & "/") + Len(quoi) + 2
  If pos = 0 Then Exit Function
  tva = Val(Mid(MC, pos))
End Function

[Piett2k]

Un grand merci à tout les 2, pour info, j'ai utilisé la méthode de Ohmonbato mais merci tout de même Ucfoutu je ne doute pas que cela me serve plus tard.