Bonsoir,
Je bloque sur une VBA que je tente de faie pour créer dans un formulaire une liste déroulante qui dépend de 2 variables. Pour le moment, j’ai réussi à créer cette liste en fonction d’une variable mais pas plus… Je ne sais pas comment je dois ajouter la seconde variable qui se trouve dans cboMarque1 et dont le texte sera soit “MANITOU” soit “TOYOTA”
Si quelqu’un peut m’aider là dessus ?
Merci d’avance
Ci dessous mon code actuel :
Private Sub cboMateriel1_Change()
If cboMateriel1 = “CHARIOT ELEVATEUR INDUSTRIEL FRONTAL ELECTRIQUE” Then
cboType1.List() = Array(“8FBET15”, “8FBET16”, “8FBMT16”, “8FBMT18”, “8FBMT20”, “8FBMT25”, “8FBMT50”, “9FBMT60”, “9FBMT80”, “ME 315 C”, “ME 315”, “ME 316”, “ME 318”, “ME 320”, “ME 418”, “ME 420”, “ME 425”, “ME 425 C”, “ME 430”, “ME 435”, “ME 440”, “ME 445”, “ME 450”)
ElseIf cboMateriel1 = “CHARIOT ELEVATEUR INDUSTRIEL FRONTAL THERMIQUE” Then
cboType1.List() = Array(“02-8FDF25”, “52-8FDF25”, “02-8FDF30”, “52-8FDF30”, “02-8FDJF35”, “52-8FDJF35”, “8FG70N”, “8FDN35”, “8FD70N”, “MI 15 D”, “MI 15 G”, “MI 18 D”, “MI 18 G”, “MI 20 D”, “MI 20 G”, “MI 25 D”, “MI 25 G”, “MI 30 D”, “MI 30 G”, “MI 35 D”, “MI 35 G”, “MI 40 D”, “MI 40 G”, “MI 45 D”, “MI 45 G”, “MI 50 D”, “MI 50 G”, “MI 50 LD”, “MI 50 LG”, “MI 60 D”, “MI 60 G”, “MI 70 D”, “MI 70 G”, “MI 80 D”, “MI 100 D”)
ElseIf cboMateriel1 = “GERBEUR ELECTRIQUE” Then
cboType1.List() = Array(“SPE120”, “SPE120XRD”, “SPE160”, “SPE160L”, “SPE200D”, “SPE200DN”, “SWE080L”, “SWE100”, “SWE120”, “SWE120L”, “SWE120S”, “SWE120XR”, “SWE140L”, “SWE140S”, “SWE145”, “SWE160L”, “SWE200D”, “ES 410”, “ES 412”, “ES 614”, “ES 616”, “ES 720”, “ES 725”, “ES 820”)
End If
End Sub