Bonjour
La fonction suivante ne fonctionne pas
Pourriez vous m'aider à comprendre pourquoi
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
Private Sub TextBox6_Click()
    Select Case TextBox6.Value
        Case "30 369", "30 370": ComboBox9 = "1"
        Case "168 362", "168 398": ComboBox9 = "2"
        Case "168 363", "168 399": ComboBox9 = "3"
        Case "168 364", "168 400": ComboBox9 = "4"
        Case "168 365": ComboBox9 = "5"
        Case "168 366": ComboBox9 = "6"
        Case "30 367", "30 375", "164 569", "164 570": ComboBox9.List = Array("1", "2")
        Case "164 585", "164 590", "164 597": ComboBox9.List = Array("1", "2", "3")
        Case "164 604": ComboBox9.List = Array("1", "2", "3", "4")
        Case "164 591": ComboBox9.List = Array("1", "2", "3", "4", "5")
        Case "164 591": ComboBox9.List = Array("1", "2", "3", "4", "5", "6")
        Case "164 575", "164 576": ComboBox9.List = Array("1", "2", "3", "4", "5", "6", "7")
    End Select
End Sub
Je vous en remercie par avance