doublon TexBox

[Bruce68]

Bonjour à Tous
Dans un UserForm je rentre : Nom , Prénom, Club, N°Licence dans une base
Pour eviter de taper 2 N° de licence Identique je controle si celui ci existe dans la base si non je continue si oui je m'arrete et attends un nouveau N° de licence.
La macro ci dessous ne fonctionne pas correctement pour éviter de continuer j'ai mis cette barriere :

If Nom2.Value = "" Then Exit Sub

quand je clique sur le bouton AJOUTER
Ce que je voudrais:
que le curseur reste dans N°Licence pour en retaper 1 nouveau
Ne pas effacer Le nom pour ne pas etre oblige de le retaper
Ne pas pouvoir continer tant qu'il y a doublon dans le N°Licence

Private Sub Licence2_Change()
For Each Cell In Range("E3:E1000")
If CStr(Licence2.Value) = CStr(Cell.Value) Then
doublon = MsgBox("Ce N° existe déja !", vbOKOnly + vbCritical, "DOUBLON")
If doublon = vbOK Then
If Licence2.Value = "" Then Cancel = True
Me.Nom2.Text = ""
Licence2.SetFocus
End If
Exit Sub
End If
Next Cell
End Sub

Je vous remercie de votre aide

 

[skoobi]

Re : doublon TexBox

Bonjour,
si tu envoie le fichier on pourra résoudre le problème plus vite car ce n'est pas toujours facile d'imaginer ce qui ce passe à la lecture d'une macro.

A+

 

[wilfried_42]

Re : doublon TexBox

Bonjour Bruce68

l'interruption change a 2 problemes,
- elle ne gere pas la methode cancel
- elle se lance à chaque frappe de touche (avec ton traitement sur 998 cellule ca risque d'etre long


Essaye cela

Private Sub Licence2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
' commencons par les tests rapides pourquoi traiter une macro longue pour un textbox vide
If Licence2.Value = "" Then Cancel = True:exit sub

For Each Cell In Range("E3:E1000")
     If CStr(Licence2.Value) = CStr(Cell.Value) Then
         MsgBox "Ce N° existe déja !" ' un message suffit 
         cancel = true
         exit for ' sortir proprement de la boucle
     end if
next
End Sub

bonne soirée

 

[BOISGONTIER]

Re : doublon TexBox

Bonsoir,


Private Sub Licence2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Set c = [E:E].Find(what:=Me.Licence2)
If Not c Is Nothing Then
MsgBox "doublon!"
Cancel = True
End If
End Sub



JB
Formation Excel VBA JB

 

[Bruce68]

Re : doublon TexBox

Bonsoir à tous

Merci pour vos réponses rapides.
La solution de BOISGONTIER me satisfait pleinement.
Bonne soirée à tous et toutes