Doublon non détecté après saisie dan un textbox

[papouny]

Re,

Je ne vois pas ce qui cloche dans l'une ou l'autre des 2 procédures suivantes.
Lors de la saisie dans la feuille nommée "A4", les doublons ne sont pas détectés.

merci pour qui voudra bien m'aider

Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
______________________________________________________
Private Sub VALID_Click()

Application.ScreenUpdating = False

Dim Rep As Date

If Controls("Textbox1") = "" Then

Rep = MsgBox("Veuillez Saisir une date !", vbExclamation)
Controls("Textbox1").SetFocus

If Not IsDate(TextBox1) Then

Rep = MsgBox("Format incorrect!", vbExclamation)
TextBox1 = ""
Exit Sub
End If

' vérifie si la date n'est pas déjà présente
If Evaluate("=SUM(IF(A4:I" & Range("I200").End(xlUp).Row & "=""" & TextBox1.Value & """,1,0))") = 0 Then

Range("I200").End(xlUp).Offset(1, 0).Value = TextBox1.Value

Else
Rep = MsgBox("Cette date existe déjà" & vbLf & "Souhaitez vous la modifier ?", vbInformation + bYesNo, "Date déjà présente")

If Rep = vbNo Then
Unload UserForm3
Sheets("Feuil1").Select
End If
If Rep = vbYes Then
Controls("Textbox2").SetFocus
UserForm3.TextBox2.Value = ""

 

[Misange]

Re : Doublon non détecté après saisie dan un textbox

Bonjour
tout ce qui est saisi dans un textbox (nombre, texte, date...) est ... du texte !
il est impératif de convertir cette valeur dans ce que tu attends avant de transférer et ici avant de comparer avec les données de ta colonne qui ne sont pas je l'imagine en format texte.
Ce lien n'existe plus

Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus

 

[papouny]

Re : Doublon non détecté après saisie dan un textbox

Merci pour votre réponse rapide,

En effet, tout va nettement mieux en comparant du texte avec du texte.

Question de bon sens
A+