Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic verrouiller combobox ??

verrouiller combobox ??

10 réponses
Avatar
HeLioZz
bonjour a tous !!
voila enfaites je voudrais savoir comment verrouiller une combobox ?
si quelqu un pouvait m aider svp !!
merci d avance !
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
Jean-Marc
"HeLioZz" a écrit dans le message de
news:
bonjour a tous !!
voila enfaites je voudrais savoir comment verrouiller une combobox ?
si quelqu un pouvait m aider svp !!
merci d avance !



Hello,

avec la propriété enabled, non ?

' verrouille combo
Combo1.Enabled = False

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
HeLioZz
non ca ne fonctionne pas...
j ai deja essayer cette commande...
je suis bien embêté...
merci quand meme !
si vous avez une autre idée merci de m en faire part !


"Jean-Marc" a écrit :

"HeLioZz" a écrit dans le message de
news:
> bonjour a tous !!
> voila enfaites je voudrais savoir comment verrouiller une combobox ?
> si quelqu un pouvait m aider svp !!
> merci d avance !

Hello,

avec la propriété enabled, non ?

' verrouille combo
Combo1.Enabled = False

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;








Avatar
Jean-Marc
"HeLioZz" a écrit dans le message de
news:
non ca ne fonctionne pas...
j ai deja essayer cette commande...
je suis bien embêté...
merci quand meme !
si vous avez une autre idée merci de m en faire part !





Peux tu préciser pourquoi ça ne fonctionne pas?
Chez moi cela fonctionne très bien, le combo devient
inaccessible et donc verouillé.
Qu'as tu comme comportement?

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
HeLioZz
c est comme si je n avais pas rentré cette commande

mon code :
If ComboBox7.Text = "Non" Then
ComboBox1.Enabled = False

est-ce correct ??



"Jean-Marc" a écrit :

"HeLioZz" a écrit dans le message de
news:
> non ca ne fonctionne pas...
> j ai deja essayer cette commande...
> je suis bien embêté...
> merci quand meme !
> si vous avez une autre idée merci de m en faire part !



Peux tu préciser pourquoi ça ne fonctionne pas?
Chez moi cela fonctionne très bien, le combo devient
inaccessible et donc verouillé.
Qu'as tu comme comportement?

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;




Avatar
X
Bonsoir,

Combo1.enabledúlse
OU
Combo1.Locked=true







"HeLioZz" a écrit dans le message de
news:
|c est comme si je n avais pas rentré cette commande
|
| mon code :
| If ComboBox7.Text = "Non" Then
| ComboBox1.Enabled = False
|
| est-ce correct ??
|
|
|
| "Jean-Marc" a écrit :
|
| > "HeLioZz" a écrit dans le message de
| > news:
| > > non ca ne fonctionne pas...
| > > j ai deja essayer cette commande...
| > > je suis bien embêté...
| > > merci quand meme !
| > > si vous avez une autre idée merci de m en faire part !
| >
| >
| >
| > Peux tu préciser pourquoi ça ne fonctionne pas?
| > Chez moi cela fonctionne très bien, le combo devient
| > inaccessible et donc verouillé.
| > Qu'as tu comme comportement?
| >
| > --
| > Jean-marc
| > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
| > "There are only 10 kind of people
| > those who understand binary and those who don't."
| > mailto: remove '_no_spam_' ;
| >
| >
Avatar
X
If Combo7.Text = "Non" Then Combo1.Enabled = False




"HeLioZz" a écrit dans le message de
news:
|c est comme si je n avais pas rentré cette commande
|
| mon code :
| If ComboBox7.Text = "Non" Then
| ComboBox1.Enabled = False
|
| est-ce correct ??
|
|
|
| "Jean-Marc" a écrit :
|
| > "HeLioZz" a écrit dans le message de
| > news:
| > > non ca ne fonctionne pas...
| > > j ai deja essayer cette commande...
| > > je suis bien embêté...
| > > merci quand meme !
| > > si vous avez une autre idée merci de m en faire part !
| >
| >
| >
| > Peux tu préciser pourquoi ça ne fonctionne pas?
| > Chez moi cela fonctionne très bien, le combo devient
| > inaccessible et donc verouillé.
| > Qu'as tu comme comportement?
| >
| > --
| > Jean-marc
| > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
| > "There are only 10 kind of people
| > those who understand binary and those who don't."
| > mailto: remove '_no_spam_' ;
| >
| >
Avatar
HeLioZz
je ne comprend pas ca ne fonctionne tjrs pas !!
comment faire ?
y a t il une autre possibilité ?

"X" a écrit :


If Combo7.Text = "Non" Then Combo1.Enabled = False




"HeLioZz" a écrit dans le message de
news:
|c est comme si je n avais pas rentré cette commande
|
| mon code :
| If ComboBox7.Text = "Non" Then
| ComboBox1.Enabled = False
|
| est-ce correct ??
|
|
|
| "Jean-Marc" a écrit :
|
| > "HeLioZz" a écrit dans le message de
| > news:
| > > non ca ne fonctionne pas...
| > > j ai deja essayer cette commande...
| > > je suis bien embêté...
| > > merci quand meme !
| > > si vous avez une autre idée merci de m en faire part !
| >
| >
| >
| > Peux tu préciser pourquoi ça ne fonctionne pas?
| > Chez moi cela fonctionne très bien, le combo devient
| > inaccessible et donc verouillé.
| > Qu'as tu comme comportement?
| >
| > --
| > Jean-marc
| > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
| > "There are only 10 kind of people
| > those who understand binary and those who don't."
| > mailto: remove '_no_spam_' ;
| >
| >





Avatar
Jean-Marc
"HeLioZz" a écrit dans le message de
news:
c est comme si je n avais pas rentré cette commande

mon code :
If ComboBox7.Text = "Non" Then
ComboBox1.Enabled = False

est-ce correct ??






Oui c'est correct.

J'ai des doutes sur la valeur de ton combo7 ...

Essaie ceci pour te prouver que ça marche:
Option Explicit

Private Sub Command1_Click()
If Combo7.Text = "Oui" Then
MsgBox "je suis ici et je fais combo1.Enable=TRUE"
Combo1.Enabled = True
Else
MsgBox "je suis ici et je fais combo1.EnableúLSE"
Combo1.Enabled = False
End If

End Sub

Private Sub Form_Load()
Combo7.AddItem "Oui"
Combo7.AddItem "Non"
End Sub


Et surtout, dans ton code, mets des text box pour bien vérifier
que tu passes vraiement la ou tu ccrois que tu passes....

Ajoute aussi des messagebox et/ou des Debug.printf PARTOUT
ou tu fais reference à combo1.Enabled, je serais surpris du résultat.

Ce que je pense:
- tes variables ne contiennent pas ce que tu crois à un certain moment.
ou
un évènement coupe l'herbe sous le pied à ton code et remets Enabled à
True

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
X
Bonsoir,

Si ça marche:

' COMBO1 + COMBO7 + BOUTON1
Sub Form_Load()
Combo7.Clear
Combo7.AddItem "oui"
Combo7.AddItem "non"
Combo7.ListIndex = 0
End Sub
Sub Command1_Click()
If Combo7.Text = "non" Then Combo1.Enabled = False
End Sub

Quand on clique sur bouton1 ça disabled combo1

MAIS... tu fais ça avec "text", avec le nom, plus difficile à gérer car
souvent un nom peut être écrit mal ou de plusieurs façon, mieux vaut gérer à
ce moment par index, à condition de savoir à quel index se trouve le mot
"non", admettons que par exemple, sur 4 indexs, le mot "non" se trouve à
l'index 2 (mais faut le savoir préalablement, 2>me position), ben tu fais:

If Combo7.ListIndex = 2 Then Combo1.Enabled = False

Peut êre que ton if n'est pas interrogé, fais un if en colonne et mets un
test:

if combo7.text = "non" then
combo1.enabledúlse
msgbox "je suis dans l'if"
endif
---------------


"HeLioZz" a écrit dans le message de
news:
| je ne comprend pas ca ne fonctionne tjrs pas !!
| comment faire ?
| y a t il une autre possibilité ?
|
| "X" a écrit :
|
| >
| > If Combo7.Text = "Non" Then Combo1.Enabled = False
| >
| >
| >
| >
| > "HeLioZz" a écrit dans le message de
| > news:
| > |c est comme si je n avais pas rentré cette commande
| > |
| > | mon code :
| > | If ComboBox7.Text = "Non" Then
| > | ComboBox1.Enabled = False
| > |
| > | est-ce correct ??
| > |
| > |
| > |
| > | "Jean-Marc" a écrit :
| > |
| > | > "HeLioZz" a écrit dans le
message de
| > | > news:
| > | > > non ca ne fonctionne pas...
| > | > > j ai deja essayer cette commande...
| > | > > je suis bien embêté...
| > | > > merci quand meme !
| > | > > si vous avez une autre idée merci de m en faire part !
| > | >
| > | >
| > | >
| > | > Peux tu préciser pourquoi ça ne fonctionne pas?
| > | > Chez moi cela fonctionne très bien, le combo devient
| > | > inaccessible et donc verouillé.
| > | > Qu'as tu comme comportement?
| > | >
| > | > --
| > | > Jean-marc
| > | > Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
| > | > "There are only 10 kind of people
| > | > those who understand binary and those who don't."
| > | > mailto: remove '_no_spam_' ;
| > | >
| > | >
| >
| >
| >
Avatar
HeLioZz
c etait mon debugeur qui 'buggait" merci encore !


"Jean-Marc" a écrit :

"HeLioZz" a écrit dans le message de
news:
> c est comme si je n avais pas rentré cette commande
>
> mon code :
> If ComboBox7.Text = "Non" Then
> ComboBox1.Enabled = False
>
> est-ce correct ??




Oui c'est correct.

J'ai des doutes sur la valeur de ton combo7 ...

Essaie ceci pour te prouver que ça marche:
Option Explicit

Private Sub Command1_Click()
If Combo7.Text = "Oui" Then
MsgBox "je suis ici et je fais combo1.Enable=TRUE"
Combo1.Enabled = True
Else
MsgBox "je suis ici et je fais combo1.EnableúLSE"
Combo1.Enabled = False
End If

End Sub

Private Sub Form_Load()
Combo7.AddItem "Oui"
Combo7.AddItem "Non"
End Sub


Et surtout, dans ton code, mets des text box pour bien vérifier
que tu passes vraiement la ou tu ccrois que tu passes....

Ajoute aussi des messagebox et/ou des Debug.printf PARTOUT
ou tu fais reference à combo1.Enabled, je serais surpris du résultat.

Ce que je pense:
- tes variables ne contiennent pas ce que tu crois à un certain moment.
ou
un évènement coupe l'herbe sous le pied à ton code et remets Enabled à
True

--
Jean-marc
Tester mon serveur (VB6) => http://myjmnhome.dyndns.org
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;