Bonsoir à tous
Dans mon formulaire de saisie, se trouvent plusieurs petits dysfonctionnements que j’aimerai bien voir supprimer
Le premier est l’anti-doublons.
La colonne « E » de ma base de données se trouvent des codes qui doivent être uniques. J’ai donc essayé sans succès de mettre en place une procédure qui est la 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 "Doublon"
Cancel = True
Exit Sub
End If
End Sub
Je fais appel à votre savoir pour m’expliquer où se situe l’erreur. En effet quel que soit le code que j’inscris, après le clic j’ai le message doublons qui apparaît et je n’arrive pas de cette situation.
Avez-vous une explication à ce dysfonctionnement et une solution à me proposer.
Merci d’avance
M.D
Dans mon formulaire de saisie, se trouvent plusieurs petits dysfonctionnements que j’aimerai bien voir supprimer
Le premier est l’anti-doublons.
La colonne « E » de ma base de données se trouvent des codes qui doivent être uniques. J’ai donc essayé sans succès de mettre en place une procédure qui est la 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 "Doublon"
Cancel = True
Exit Sub
End If
End Sub
Je fais appel à votre savoir pour m’expliquer où se situe l’erreur. En effet quel que soit le code que j’inscris, après le clic j’ai le message doublons qui apparaît et je n’arrive pas de cette situation.
Avez-vous une explication à ce dysfonctionnement et une solution à me proposer.
Merci d’avance
M.D