Discussion :

[ValerieH34]

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

[Philippe Tulliez]

Bonjour,

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)

[Invité]

le raisonnement est toujours le même!

Code :

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

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")

[ValerieH34]

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

[ValerieH34]

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

[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()

[ValerieH34]

tu ne veux pas parler de Private Sub TextBox6_Change()

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