OVH Cloud OVH Cloud

zone de liste modifiable

3 réponses
Avatar
GARAULT
bonjour,

dans une zone de liste modifiable j'ai intégré le code suivant :

Private Sub ComboBox16_Change()
If ComboBox16.Value = "Châssis fixe" Then
ComboBox17.Visible = False
Else

ComboBox17.Visible = True

End If
End Sub

la commande suivante "If ComboBox16.Value = "Châssis fixe" Then" dit

si selection "châssis fixe" ...

je voudrais mettre d'autre valeur comment faire ?

If ComboBox16.Value = "Châssis fixe";"of 1vt" Then mais sa fonctionne pas
......

merci

3 réponses

Avatar
Pierre Fauconnier
Bonsoir

Normalement, ce serait
if combobox16.value = "..." of combobox16.value = "..." then
...
else
...
endif

Pas très lisible pour 3 conditions ou plus.

Je te propose d'utiliser Select case:

select case combobo.value
case "Châssis fixe", "1vt"
combobox17.visible = false
case else
combobox17.visible = true
end select

Ok?
--
Pierre Fauconnier () (Skype:
pierre_fauconnier)
"Les choses qui n'ont rien en commun ont en commun qu'elles n'ont rien en
commun"
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"GARAULT" a écrit dans le message de
news:
bonjour,

dans une zone de liste modifiable j'ai intégré le code suivant :

Private Sub ComboBox16_Change()
If ComboBox16.Value = "Châssis fixe" Then
ComboBox17.Visible = False
Else

ComboBox17.Visible = True

End If
End Sub

la commande suivante "If ComboBox16.Value = "Châssis fixe" Then" dit

si selection "châssis fixe" ...

je voudrais mettre d'autre valeur comment faire ?

If ComboBox16.Value = "Châssis fixe";"of 1vt" Then mais sa fonctionne pas
......

merci




Avatar
isabelle
or mit le of....ca va ;-)

isabelle

Bonsoir

Normalement, ce serait
if combobox16.value = "..." of combobox16.value = "..." then
...
else
...
endif

Pas très lisible pour 3 conditions ou plus.

Je te propose d'utiliser Select case:

select case combobo.value
case "Châssis fixe", "1vt"
combobox17.visible = false
case else
combobox17.visible = true
end select

Ok?


Avatar
Pierre Fauconnier
Mes doigts ont fourché... Pas taper, pas taper ;-))

Pierre

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

or mit le of....ca va ;-)

isabelle

Bonsoir

Normalement, ce serait
if combobox16.value = "..." of combobox16.value = "..." then
...
else
...
endif

Pas très lisible pour 3 conditions ou plus.

Je te propose d'utiliser Select case:

select case combobo.value
case "Châssis fixe", "1vt"
combobox17.visible = false
case else
combobox17.visible = true
end select

Ok?