Doublon

[M.D]

Bonsoir à tous,

Afin d’éviter d’avoir deux fois le même code, j’ai trouvé et mis en place la procédure suivante :

'Anti -Doublons
Private Sub TextBox_code_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Set f = Sheets("BD_eleve")
temp = Application.Match(Me.TextBox_code, f.[A2:A10000], 5)
If Not IsError(temp) Then
MsgBox "Ce code existe déjà, veuillez le modifier pour continuer..."
Cancel = True
Exit Sub
End If
End Sub

Ce dernière me signale bien un doublon , mais efface pas le contenue du texbox, et surtout, ça me redonne pas la main.
Pouvez-vous me venir en aide.
Merci d’avance

M.D

 

[Pierrot93]

Re : Doublon

Bonjour,

modifie peut être l'argument "type" de la fonction :

temp = Application.Match(Me.TextBox_code, f.[A2:A10000], 0)

bonne journée
@+

 

[ERIC S]

Re : Doublon

Bonjour à tous

serais-tu sorcier Pierrot, tu t'es transformé de Tigre et Chat man ? (j'ai honte!)

Sans fichier j'avoue ne pas pouvoir répondre, par exemple sur l'utilité du cancel, sur la présence du exit sub avant le end sub sans code "significatif" entre les deux ......