Validation de données avec Alerte - Dysfonctionnement

Bonjour à tous,

J'ai fouillé sur le Forum mais sans trouver la réponse à mon problème.

Voilà:

J'ai mis en place un planning avec des codes horaires que les opérations remplissent. J'ai limité les possibilités dans les saisies par un validation de données en liste avec Alerte en cas d'erreur.

Pourtant lorsqu'ils saisissent une donnée qui n'existe pas dans ma liste, aucun message d'erreur n’apparaît...

Voici le code:

    Application.Goto Reference:="PLANNING"
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=CODE_HORAIRE"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Je ne comprends pas...

Bonjour,

Tu as un élément vide dans ta liste de validation...

Par ailleurs, tu peux te contenter de :

    With Selection.Validation
        .Delete
        .Add xlValidateList, , , "=CODE_HORAIRE"
    End With

Faut pas suivre bêtement l'enregistreur !

Et remplacer ce Selection (déplaisant) par la plage concernée.

Cordialement.

MFerrand,

Merci infiniment pour ton aide, je n'avais jamais remarqué que si j'avais une case vide dans ma liste il ne gérait pas les erreurs.

Je suis novice en VBA et j'essaie d'alléger autant que possible les informations inutiles, malheureusement je manque cruellement de temps pour essayer d'alléger mes codes.

Si d'ailleurs tu as des sites/références qui me permettraient d'aller à l'essentiel je suis preneur

Merci encore pour ta réponse