Problème sur la fonction SELECT CASE (bis)

Version imprimable

Bonjour
La fonction suivante ne fonctionne pas
Pourriez vous m'aider à comprendre pourquoi

Code:

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

19/05/2015, 12h59
Philippe Tulliez

Bonjour,

Citation:

La fonction suivante ne fonctionne pas
Pourriez vous m'aider à comprendre pourquoi

Difficile d'aider quelqu'un qui donne si peu de renseignement.
Qu'est ce qui ne fonctionne pas ? un message d'erreur apparaît, aucun résultat dans les textbox, etc.
L'utilisation des outils de débogage de VBA (les touches F8, F9, etc.) placer le pointeur de la souris sur TextBox6.Value de la ligne 2 au cours de la séquence pas à pas (F8) permettra déjà de visualiser si la valeur de ce contrôle correspond bien à la liste des références testées (peut-être des caractères espacés sont présents)

le raisonnement est toujours le même!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Case "30 369", "30 370": ComboBox9.List = Array("1")
        Case "168 362", "168 398": ComboBox9.List = Array("2")
        Case "168 363", "168 399": ComboBox9.List = Array("3")
        Case "168 364", "168 400": ComboBox9.List = Array("4")
        Case "168 365": ComboBox9.List = Array("5")
        Case "168 366": ComboBox9.List = Array("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")

19/05/2015, 13h09
ValerieH34

Citation:

Qu'est ce qui ne fonctionne pas ? un message d'erreur apparaît, aucun résultat dans les textbox, etc.

Je n'ai aucun résultat dans la TextBox
19/05/2015, 13h12
ValerieH34

Citation:

le raisonnement est toujours le même!

Je l'ai repris comme tu me l'indiques mais je dois bien indiqué que l'information doit être notée dans la textbox6
Dans ce cas cela ne fonctionne pas non plus
Le résultat n'apparaît pas dans la textbox
19/05/2015, 13h24
Invité

dans ton code je ne voie pas la notion de textbox????
que'est-ce qu'il faut afficher dans le textbox?

Private Sub TextBox6_Click() ça ne veux rien dire!

tu ne veux pas parler de Private Sub TextBox6_Change()
19/05/2015, 13h32
ValerieH34

Citation:

tu ne veux pas parler de Private Sub TextBox6_Change()

Trop fort
Si c'est exactement ça
Tu es mon sauveur ce jour :ptdr: