Perdu avec Select Case

[Francis]

Bonjour le forum

Je suis un peu perdu avec l’instruction Select Case.
Je désire en fonction des valeurs d’une combobox assigner d’autres valeurs en vue de faire un tri.
La variable « valtest » reste désespérément vide.

Dim MaVariable As String
MaVariable = ComboBox2.Value
Select Case MaVariable
Case Is = "quotidienne"
valtest = "Q"
Case Is = "occasionnelle"
valtest = "O"
Etc….
End Select

Merci de m'aider si possible.
Francis

 

[JYLL]

Re : Perdu avec Select Case

Bonsoir Françis,

Ton select Case est bon, mais sous VB ce test est sensible à la casse. Si tu as des majuscules dans un et pas dans l'autre ça ne fonctionne pas car ces l'égalité parfaite que VB recherche. Pour palier à ce problème tu modifies ton code de cette façon :

Dim MaVariable As String
MaVariable = TextBox1.Value
Select Case [COLOR="red"]UCase([/COLOR] MaVariable[COLOR="red"])[/COLOR]
Case Is = [COLOR="red"]UCase([/COLOR]"quotidienne"[COLOR="Red"])[/COLOR]
valtest = "Q"
Case Is = [COLOR="Red"]UCase("[/COLOR]occasionnelle"[COLOR="red"])[/COLOR]
valtest = "O"
End Select

Avec Ucase tu passes tout en majuscules pour le test.

Bonne modifs.

 

[Francis]

Re : Perdu avec Select Case

Bonsoir Jyll et le forum
Merci pour ta précision, c'est une donnée que je ne connaissais pas.
je vais pouvoir continuer mon application.
merci
Francis