Discussion :

[ln0331]

Bonjour,

dans une zone de liste déroulante, lorsque je saisis un produit et qu'il n'appartient pas à cette liste, j'aimerais afficher un message.

comment faire ? quelle syntaxe utiliser ?


Merci.

[Singular]

Si ta liste est dans un UserForm et qu'elle se nomme ComboBox1, le code suivant produira l'effet voulu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i As Long
 
    For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.Value = ComboBox1.List(i) Then
            Exit Sub
        End If
    Next i
    MsgBox "'" & ComboBox1.Value & "' n'est pas dans la liste."
End Sub

[Pierre Fauconnier]

Bonjour

La propriété MatchRequired du combobox (userform/boite à outils) permet cela.

[Singular]

Mais permet-elle d'afficher un message personnalisé?

[Pierre Fauconnier]

Salut Singular,

Non, pas à ma connaissance. Si il faut un message personnalisé, c'est ta solution qui me semble la bonne.

J'ajouterai que, si on utilise la tienne, on peut alors bloquer la saisie erronée en gérant le Cancel

Bon dimanche

[ln0331]

Bonjour,

désolée pour le temps de réponse.

J'avais trouvé le MatchRequired mais je voulais personnaliser le message:
merci à Singular.

Cependant, comme le fait remarquer Pierre Fauconnier, on ne peut pas bloquer la saisie erronée.
qu'entendez-vous par "en gérant le Cancel" ? que faudrait-il ajouter ?


Merci d'avance.