Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Combobox Non modifiable

4 réponses
Avatar
StDonat
Bonsoir à tous et à toutes !

Pour cela, j’ai mis la propriété MatchRequired=True sur un ControlBox afin
d’interdire de saisir une autre valeur que celle de la liste.
Ca marche ! Mais comment intercepter le message d’erreur lorsque l’on quitte
la Combobox :
« Valeur de propriété non valide » ?

Merci

4 réponses

Avatar
garnote
Bonsoir,

Exemple :
Si tu es dans un Userform, insère plutôt un ListBox :
RowSource : A1:A5.

Si tu es sur une feuille de calcul :
Affichage / Barre d'outils / Boîte À outils contrôles,
insère un ListBox et :
ListFillRange : A1:A5.

Serge


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

Bonsoir à tous et à toutes !

Pour cela, j'ai mis la propriété MatchRequired=True sur un ControlBox afin
d'interdire de saisir une autre valeur que celle de la liste.
Ca marche ! Mais comment intercepter le message d'erreur lorsque l'on quitte
la Combobox :
« Valeur de propriété non valide » ?

Merci



Avatar
StDonat
Merci, mais je suis dans un userform ET je souhaite conserver un Combobox!!

"garnote" wrote:

Bonsoir,

Exemple :
Si tu es dans un Userform, insère plutôt un ListBox :
RowSource : A1:A5.

Si tu es sur une feuille de calcul :
Affichage / Barre d'outils / Boîte À outils contrôles,
insère un ListBox et :
ListFillRange : A1:A5.

Serge


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

> Bonsoir à tous et à toutes !
>
> Pour cela, j'ai mis la propriété MatchRequired=True sur un ControlBox afin
> d'interdire de saisir une autre valeur que celle de la liste.
> Ca marche ! Mais comment intercepter le message d'erreur lorsque l'on quitte
> la Combobox :
> « Valeur de propriété non valide » ?
>
> Merci
>





Avatar
JB
Bonsoir,

Private Sub UserForm_Initialize()
Me.ComboBox1.List = [Liste].Value
End Sub

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If IsError(Application.Match(Me.ComboBox1, [Liste], 0)) Then
MsgBox "Erreur"
Cancel = True
End If
End Sub

http://cjoint.com/?miv0QUAF3x

JB
http://boisgontierjacques.free.fr/

On 8 déc, 19:35, StDonat wrote:
Bonsoir à tous et à toutes !

Pour cela, j’ai mis la propriété MatchRequired=True sur un Contro lBox afin
d’interdire de saisir une autre valeur que celle de la liste.
Ca marche ! Mais comment intercepter le message d’erreur lorsque l’on quitte
la Combobox :
« Valeur de propriété non valide » ?

Merci


Avatar
StDonat
Merci pour tout, L'aide est les liens..
Nickel
Excelement @+

"JB" wrote:

Bonsoir,

Private Sub UserForm_Initialize()
Me.ComboBox1.List = [Liste].Value
End Sub

Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If IsError(Application.Match(Me.ComboBox1, [Liste], 0)) Then
MsgBox "Erreur"
Cancel = True
End If
End Sub

http://cjoint.com/?miv0QUAF3x

JB
http://boisgontierjacques.free.fr/

On 8 déc, 19:35, StDonat wrote:
> Bonsoir à tous et à toutes !
>
> Pour cela, j’ai mis la propriété MatchRequired=True sur un ControlBox afin
> d’interdire de saisir une autre valeur que celle de la liste.
> Ca marche ! Mais comment intercepter le message d’erreur lorsque l’on quitte
> la Combobox :
> « Valeur de propriété non valide » ?
>
> Merci