Interdire saisie si doublon

[Hpotter]

Bonjour à tous,

Dans un formulaire (UFSaisie) j'ai un TextBox (Tnum) dans lequel je saisie un numéro.
Je souhaiterai que lorsque l'utilisateur tabule après la saisie et que si le numéro a déjà été saisi dans le tableau de la feuille "Général", alors un message d'alerte apparaît "Attention numéro déjà saisi !" et que le TextBox reprenne le focus afin d'être modifié.

Merci pour les suggestions que vous pourrez m'apporter.

 

[Pierrot93]

Re : Interdire saisie si doublon

Bonjour,

essaye le code ci-dessous, vérifie le nom des objets, code à utiliser dans le module de ton usf :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
Set x = Sheets("Général").Range("A:A").Find(TextBox1, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    MsgBox "Le numéro est déjà en : " & x.Address & vbLf & "Recommencez !!!"
    TextBox1 = ""
    Cancel = True
End If
End Sub

bon après midi
@+

Edition : la recherche s'effectue dans la colonne A, à adapter...

 

[Hpotter]

Re : Interdire saisie si doublon

Voici le code tel qu'il est saisi dans mon UF, il fonctionne très bien. Cependant, dans mon formulaire j'ai un bouton "C3" qui ferme UF, il faut qu'il reste actif afin que l'utilisateur ait la possiblité de fermer.
Hors, dans le cas présent, à chaque fois que je clique sur un bouton le message d'erreur apparaît.
J'aurai du être plus explicite dans ma demande.

Private Sub Tnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
Set x = Sheets("Général").Range("A:A").Find(Tnum, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    MsgBox "Le numéro est déjà en : " & x.Address & vbLf & "Recommencez !!!"
    TextBox1 = ""
    Cancel = True
End If
End Sub

Tout à fait part, peux-tu m'indiquer comment dois-je faire pour marquer un post comme résolu.
Merci par avance

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

sur ce forum pas de "flag" pour dire qu'un sujet est résolu, tu le dis et c'est très bien ainsi...

par contre, pas trop compris ton 1er paragraphe...

Voici le code tel qu'il est saisi dans mon UF, il fonctionne très bien. Cependant, dans mon formulaire j'ai un bouton "C3" qui ferme UF, il faut qu'il reste actif afin que l'utilisateur ait la possiblité de fermer.
Hors, dans le cas présent, à chaque fois que je clique sur un bouton le message d'erreur apparaît.
J'aurai du être plus explicite dans ma demande.

résolu ou pas résolu ? sinon peut êtrre rajouter un test :

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
[COLOR="blue"]If TextBox1 <> "" Then[/COLOR]
    Set x = Range("A:A").Find(TextBox1, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        MsgBox "Le numéro est déjà en : " & x.Address & vbLf & "Recommencez !!!"
        TextBox1 = ""
        Cancel = True
    End If
[COLOR="Blue"]End If[/COLOR]
End Sub

 

[Hpotter]

Re : Interdire saisie si doublon

Merci pour ta réponse.

Je m'explique. Il faut que l'utilisateur ait la possibilité de sortir de l'UF.

Avec le code, tant qu'il n'a pas saisi un nouveau numéro il ne peut pas sortir.

C'est cela que je souhaite modifier.

Je test ton code et je te dis quoi

 

[Hpotter]

Re : Interdire saisie si doublon

Mon problème n'est toujours pas résolu.

Je viens de le tester, le code proposé laisse passer les doublons.

Merci pour ton aide et ta patience

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

comprends pas trop, chez moi si je saisie un numéro dans la "textbox" et qu'il est présent dans la colonne A, j'ai bien le message.... A voir ce que tu saisis et le contenu de tes cellules...

 

[Hpotter]

Re : Interdire saisie si doublon

Voilà j'ai modifié le code comme suit :
J'ai mis Cancel = False à la place de Cancel=True
Par contre, j'ai mis Tnum.setFocus mais cela ne fonctionne pas, c'est le 2ème TextBox qui prend le focus

Private Sub Tnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
Set x = Sheets("Général").Range("A:A").Find(Tnum, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    MsgBox "Le numéro est déjà en : " & x.Address & vbLf & "Recommencez !!!"
    Tnum.SetFocus
    Tnum = ""
    [COLOR="Blue"][U]Cancel = False[/U][/COLOR]
End If
End Sub

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

regarde mon post de 15h53 et utilise le code 15h20...

 

[sknd2010]

Re : Interdire saisie si doublon

Bonjour Hpotter,

je suis loin d'être un pro d'excel et encore moins de VBA mais il se trouve j'ai voulu éviter kes doublons moi aussi dans un de mes fichier. Pour cela j'avais effectuer un message d'alerte sur les cellule concernées (Données => Validations => Personnalisé => et après tu saisie la formule pour la quelle le message d'alerte va se déclencher et stopper la saisie tant que le doublon n'est pas modifié)...
Voilà j'espère que ca pourra t'aider.

Bonne fin d'après-midi

 

[Hpotter]

Re : Interdire saisie si doublon

Je te prie d'accepter mes excuses, ton code fonctionne effectivement.
Je n'avais pas modifié le nom de la TextBox.

Par contre je n'ai toujours pas le focus dans Tnum.

 

[Hpotter]

Re : Interdire saisie si doublon

Bonjour Hpotter,

je suis loin d'être un pro d'excel et encore moins de VBA mais il se trouve j'ai voulu éviter kes doublons moi aussi dans un de mes fichier. Pour cela j'avais effectuer un message d'alerte sur les cellule concernées (Données => Validations => Personnalisé => et après tu saisie la formule pour la quelle le message d'alerte va se déclencher et stopper la saisie tant que le doublon n'est pas modifié)...
Voilà j'espère que ca pourra t'aider.

Bonne fin d'après-midi

Bonjour,

Merci pour ta suggestion, mais ma saisie se fait à partir d'un formulaire pas directement dans le tableau.

Bon après-midi à toi également

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

mets le "cancel = true", est effectif si saisie d'un numéro déjà présent....

 

[Hpotter]

Re : Interdire saisie si doublon

J'ai fait ceci et je ne comprends pas ce que tu veux que je fasse.

Private Sub Tnum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
If Tnum <> "" Then
    Set x = Range("A:A").Find(Tnum, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        MsgBox "Le numéro est déjà en : " & x.Address & vbLf & "Recommencez !!!"
        Tnum = ""
        Cancel = True
    End If
End If

End Sub

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

devrait fonctionner, si saisie déjà présente, le focus reste dans le textbox concerné....