[VBA Excel] Verifier validité valeur Combobox

Résolu

zabouall Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention - 30 mai 2008 à 10:07

Bonjour,
j'ai mis en place une combobox avec une liste de valeur. J'ai choisi la propriété fmStyleDropDownCombo, qui autorise la saisie manuelle de valeurs.

Je souhaite m'assurer que la valeur inscrite est valide afin de ne pas générer d'erreur. J'aimerai l'affichage d'un avertissement.

Je crois q'uil faut utiliser l'evenement "'Change", mais je ne sais pas comment!
Merci pour votre aide!!

A voir également:

[VBA Excel] Verifier validité valeur Combobox
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Verifier compatibilite windows 11 - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention 1 191

Pour arriver à tester le texte du combo c'est pas aussi simple que tu dit.
Colle ce code dans la feuille du combo
Dim EditLigne As Boolean

Private Sub ComboBox1_Change()
    If ComboBox1.ListIndex = -1 Then '-1 quand la ligne est éditée
        EditLigne = True
    End If
End Sub

Ensuite deux solutions sont possibles ou les deux ensemble
Première solution, l'utilisateur doit taper enter pour valider sa modif.

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Txt As String
'Pour tester l'appuit de la touche Enter.
    If KeyCode = 13 And EditLigne Then
        'vérifier le texte du combo.
        Txt = ComboBox1.Text
        Stop
        'si bon valider
        '...
        ComboBox1.AddItem Txt
        EditLigne = False
    End If
        
End Sub

Deuxième solution, le test est fait quand l'utilisateur sélectionne autre chose que le combo.

Private Sub ComboBox1_LostFocus()
'Pour pas tester l'appuit de la touche Enter.
'Tester quand quitte le combo
    If EditLigne Then
        'vérifier le texte du combo.
        Txt = ComboBox1.Text
        Stop
        'si bon valider
        '...
        ComboBox1.AddItem Txt
        EditLigne = False
    End If
End Sub

Voila deux solutions possibels.
A+

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?

Votre réponse

Discussions similaires