Doublons

[Tail]

bonsoir
j'ai ce code pour, lorsque je tape un N° excel verifie si il existe deja et me donne un message

Private Sub N_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.N.Value = ListIndex + 1 Then GoTo 10 Else GoTo 15
10 msg = MsgBox("Le N° figure déjà dans la liste !!", vbInformation, "existant !!!")
If msg = 1 Then Unload Me
15 Application.ScreenUpdating = False
End Sub

mais j'ai beau taper un N° deja existant il ne se passe rien, elle les doublons s'accumulent
merci de votre aide

 

[joss56]

Re : Doublons

Bonjour à tous

Essaye comme ça:

Private Sub N_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.N.Value = ListIndex + 1 Then GoTo 10
Else GoTo 15
end if
10: msg = MsgBox("Le N° figure déjà dans la liste !!", vbInformation, "existant !!!")
If msg = 1 Then Unload Me
15: Application.ScreenUpdating = False
End Sub

 

[Tail]

Re : Doublons

non désolé ça ne fonctionne pas avec end if il me renvoie un code erreur
et si je le laisse comme ça il me met systématiquement le message que le N° existe déjà

merci de votre aide