Interdire saisie si doublon

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....

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

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)....

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

Re : Interdire saisie si doublon

Re,

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

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

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

Re : Interdire saisie si doublon

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

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

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 !