TextBox et Doublon

[Pom]

Bonjours à tous,

J'essaye de vérifier que la valeur que je rentre dans un textbox n'existe pas
déjà. ( à l'aide de la procédure textbox_change )

Private Sub TextBox1_Change()
Dim Cell As Range
For Each Cell In Range("A6:A" & Range("A65536").End(xlUp).Row)
Cell.Activate
If TextBox1.Value = Cell.Value Then
MsgBox "Valeur existante, vérifier la saisie"
TextBox1.SetFocus
Exit Sub
End If
Next
End Sub

Cette procédure ne fonctionne pas, si quelqu'un pouvait me dire pourquoi ce serait sympa.
Merci

Pom

 

[galopin01]

A chaque Next For réévalue End(xlUp).Row qui est toujours identique...
il fallait écrire :

Dim i as long

i= Range("A65536").End(xlUp).Row
For Each Cell In Range("A6:A" & i)
...

Ok ?

 

[Pom]

Salut galopin01,

Merc pour ta réponse, j'ai rééecrit le code comme cela, mais ca fonctionne
toujours pas

Private Sub TextBox1_Change()
Dim i As Long
Dim Cell As Range
i = Range("A65536").End(xlUp).Row
For Each Cell In Range("A6:A" & i)
Cell.Activate
If TextBox1.Value = Cell.Value Then
MsgBox "Valeur existante, vérifier la saisie"
TextBox1.SetFocus
Exit Sub
End If
Next
End Sub

A priori, la boucle se fait bien, mais Cell.value ne doit pas être la bonne ligne de code, j'ai essayé activecell.value sans résultat


Pom

 

[Pom]

J'ai trouvé une autre solution en créeant une zone de liste ( masquée) et avec
ce code cela à l'air de fonctionner.

Private Sub TextBox1_Change()

Dim i As Integer

For i = 0 To ListBox1.ListCount - 1
If TextBox1.Value = ListBox1.List(i) Then
MsgBox "Ce nombre existe déjà !!!" & Chr(10) & "Vérifier le numéro !", vbExclamation, "Attention"
TextBox1.SetFocus
Exit Sub
End If
Next i
End Sub

A+
Pom