Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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 (pierre.fauconnier@nospam.nospam) (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" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: 3292944B-D04B-402E-BBF9-81F60CCEE0E2@microsoft.com...
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
......
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
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?
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