salute ,
Voila dans mon code j'ai une erreur mais j'arrive pas à la rectifier voici le code
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Select Case Joueur.Equipement
Case ""
Joueur.Equipement = List1.List(i)
Case Else
Joueur.Equipement = Joueur.Equipement & ";" & List1.List(i)
End Select
End If
Next i
For i = 0 To List2.ListCount - 1
If List2.Selected(i) = True Then
Select Case Joueur.Arm
Case ""
Joueur.Arm = List2.List(i)
Case Else
Joueur.Arm = Joueur.Arm & ";" & List2.List(i)
End Select
End If
Next i
For i = 0 To Option1(i).Count - 1
If Option1(i).Value = True Then Joueur.Munition = Option1(i).Caption
Next i |
A chaque fois que jtest ca revient sur le
(qui se trouve à la fin)
Donc voila merci d'avance pour votre aide !