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

Re,

ci joint un exemple qui fonctionne chez moi,

tu saisis dans le textbox1 une valeur identique à celle présentes dans les cellules jaunes, tu click dans textbox2 pour sortie, le controle s'effectue, tu as le message, le textbox1 est vidé, et ton curseur est bien repositionné dans le textbox1....

 

[Hpotter]

Re : Interdire saisie si doublon

Effectivement ça fonctionne dans ton exemple.
Je ne comprends pas. Mais tant pis c'est un détail.

Merci encore pour ton aide

Bonne fin d'après-midi

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

sans doute une autre procédure interfère t-elle, essaye en exécutant le code pas à pas (via la touche de fonction F8) en mettant un point d'arrêt sur la première ligne de ta procédure (tu positionnes le curseur et touche F9)....

 

[Hpotter]

Re : Interdire saisie si doublon

J'ai mis en pratique ton conseil, mais rien ne bloque.
Mais bon ce n'est pas très grave. L'utilisateur cliquera de nouveau dans le textbox

Merci pour ta patience et ta précieuse aide

Cordialement et bonne soirée

 

[Pierrot93]

Re : Interdire saisie si doublon

Re,

oui, bizarre, et sans voir le fichier difficile de t'en dire plus...
bonne soirée également....

 

[sand13]

Re : Interdire saisie si doublon

mince, ce code m’intéresse énormément mais je n'arrive pas non plus à l'adapter à mon userform de saisie qui se compose du code suivant:

Private Sub CommandButton2_Click()


Dim LigneMax As Long
LigneMax = Range("A65535").End(xlUp).Row + 1
Range("Base!A" & LigneMax) = TextBox1.Text
Range("Base!B" & LigneMax) = TextBox2.Text
Range("Base!C" & LigneMax) = ComboBox1.Text
Range("Base!D" & LigneMax) = TextBox3.Text
Range("Base!E" & LigneMax) = TextBox4.Text
Range("Base!F" & LigneMax) = TextBox5.Text
Range("Base!G" & LigneMax) = TextBox6.Text
Range("Base!H" & LigneMax) = TextBox7.Text
Range("Base!I" & LigneMax) = TextBox8.Text
Range("Base!J" & LigneMax) = TextBox9.Text
Range("Base!K" & LigneMax) = ComboBox2.Text
Range("Base!L" & LigneMax) = ComboBox3.Text
Range("Base!M" & LigneMax) = ComboBox4.Text



Range("Base!V1") = Range("Base!V1") + 1
Range("Base!V" & LigneMax) = Range("Base!V1")

Me.Hide


End Sub


Mais lorsque je copie le code mentionné:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim x As Range
If TextBox1 <> "" Then
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
End If
End Sub

Rien ne se passe pourtant ma saisie à contrôler se situe en A:A et avec la textbox1

 

[youky(BJ)]

Re : Interdire saisie si doublon

Salut bien,
Pour cela il faut mettre ton code en
Private Sub TextBox1_Change()
et non pas en
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

aussi peut être remplacer Me.Hide par Unload Userform1 cela efface les anciennes données de l'user.
Bruno

 

[sand13]

Re : Interdire saisie si doublon

ça ne semble rien changer Bruno; je vais essayer de creuser le problème

 

[youky(BJ)]

Re : Interdire saisie si doublon

J'ai fait la modif en Change et Unload Me à la place de Me.hide cela pour le décharger.
J'ai laissé 10 et 15 pour mes essais dans le fichier.
Bruno

 

[sand13]

Re : Interdire saisie si doublon

je viens de comprendre, c'est qu'en fait le format des chiffres posent soucis, dans mon tableau excel c'était un nombre avec espace entre les milliers et le format de la textbox non!

merci beaucoup !