erreur 1004 sur liste déroulante

[donpopo]

Bonjour le forum,

Après quelques utilisations d'une liste déroulante, je viens de remarquer que si je tape une donnée inexistante (ex. un code postal) dans ma liste déroulante, un message d'erreur '1004' s'affiche et bloque le programme.

Jusqu'à ce jour je sélectionnais dans la liste déroulante, donc ce problème n'est jamais apparu. Mais aujourd'hui, j'ai tapé le numéro de code postal, et ce que j'ai écrit n'est pas repris dans la liste de codes postaux.

Y a t'il un moyen d'éviter ce message d'erreur et d'inscrire, par exemple, un message dans mon contrôle 'Localité' du style 'Localité inexistante' tant que je n'aurai pas noté un numéro de code repris dans la liste?

Private Sub CboCodePCL_Change()
Dim LigneSel As Long
LigneSel = CboCodePCL.ListIndex + 1
If CboCodePCL <> "" Then LabLocaliteCL = Sheets("shCodesPost").Range("B" & LigneSel).Value
End Sub

En vous remerciant de toute l'aide que vous pourriez m'apporter.

Donpopo

 

[job75]

Re : erreur 1004 sur liste déroulante

Bonjour donpopo,

Essayez :

Private Sub CboCodePCL_Change()
Dim LigneSel As Long
LigneSel = CboCodePCL.ListIndex + 1
[COLOR="Red"]If LigneSel = 0 Then MsgBox "Localité inexistante !", 48: CboCodePCL.DropDown: Exit Sub[/COLOR]
LabLocaliteCL = Sheets("shCodesPost").Range("B" & LigneSel)
End Sub

Edit : en fait avec l'affichage de la liste, ça doit suffire, on peut juste mettre :

If LigneSel = 0 Then CboCodePCL.DropDown: Exit Sub

A+

 

[donpopo]

Re : erreur 1004 sur liste déroulante

Merci job75,

C'est juste ce que je cherche.

Donpopo