Discussion :

[Biker_45]

Bonsoir,


Je souhaiterai affecter une valeur à des labels en fonction d'une liste déroulante , mais je ne trouve pas la solution.
J'ai toujours une erreur d’exécution lorsque je sélectionne une valeur dans la liste déroulante.
J'ai aussi essayé de mettre TestD.Caption mais idem erreur de d’exécution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ChoixPS_Change()
'Nom du ComboBox ChoixPS
 
 
' Nom des Labels a remplir - TestD & Test0
    If ChoixPS = " " Then TestD = " " And TestO = " "
    If ChoixPS = "C598" Then TestD = "d" And TestO = "o"
    If ChoixPS = "FC" Then TestD = "44%" And TestO = "56"
 
End Sub
 
End Sub

Merci par avance de votre aide.

[clementmarcotte]

Bonjour,

En l'absence du devin de service:


Le AND n'est pa là pour faire des affectations multiples mais des comparaisons logiquea

TestD = " " And TestO = " " va devenir TRUE (Avec un peu de chance -1 ) selon que TestD = espace et que Test0 égale espace. Autrement c'est False (peut-être 0, avec un peu de chance.

donc tu as théoriquement quatre choix possible après cette ligne, si jamais elle est compilée

Code :

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

If ChoixPS = " " Then TestD = " " And TestO = " "

Code :

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

If ChoixPS = " " Then -1

VBA cherche à sauter à la ligne -1, si jamais elle existe.

Code :

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

If ChoixPS = " " Then -1

VBA cherche à sauter à la ligne 0 , si jamais elle existe.

Code :

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

If ChoixPS = " " Then TRUE

Code :

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

If ChoixPS = " " Then TRUE

Je ne suis même pas sûr que VBA connaisse cela.

C'est toujours périlleux de faire des IF à une ligne et nous ne sommes plus à l'époque des PC de 16 K de mémoire pour devoir économiser des octets.

Prends le temps de bâtir des if multilignes et n'utilises pas les instructions logique pour faire des affectations, à moins de bien savoir ce que tu fais et de tester au pas à pas.

Code :

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

1
2
3
4
If ChoixPS = " " Then 
    TestD = " " 'à la condition que TestD puisse prendre une valeur espace
    TestO = " "  'à la condition que TestD puisse prendre une valeur espace
end if

[Biker_45]

Je vous remercie pour votre réponse claire.