P
Pom
Guest
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
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