OVH Cloud OVH Cloud

Combobox avec Change

2 réponses
Avatar
Michel
Bonjour
Je souhaiterai faire fonctionner quelque chose comme cela
Merci beaucoup
Michel

Private Sub ComboBox3_Change()
If ComboBox3.Value = "*" & "Salaires" & "*" Then
TextBox30.Visible = True
Label30.Visible = True
end if

2 réponses

Avatar
Philippe.R
Bonjour Michel,
Sans préjuger du reste, il me semble que l'utilisation des caractères génériques se marie mieux avec
Like :

If UCase(ComboBox3.Value ) Like UCase("*" & "Salaires" & "*") Then

--
Amicales Salutations
XL 97 / 2000 / 2002

"Michel" a écrit dans le message de news:

Bonjour
Je souhaiterai faire fonctionner quelque chose comme cela
Merci beaucoup
Michel

Private Sub ComboBox3_Change()
If ComboBox3.Value = "*" & "Salaires" & "*" Then
TextBox30.Visible = True
Label30.Visible = True
end if



Avatar
Michel
Merci Philippe toujours aussi sympa !!!
Michel

"Philippe.R" a écrit dans le message de news:

Bonjour Michel,
Sans préjuger du reste, il me semble que l'utilisation des caractères
génériques se marie mieux avec Like :

If UCase(ComboBox3.Value ) Like UCase("*" & "Salaires" & "*") Then

--
Amicales Salutations
XL 97 / 2000 / 2002

"Michel" a écrit dans le message de news:

Bonjour
Je souhaiterai faire fonctionner quelque chose comme cela
Merci beaucoup
Michel

Private Sub ComboBox3_Change()
If ComboBox3.Value = "*" & "Salaires" & "*" Then
TextBox30.Visible = True
Label30.Visible = True
end if