Interdire validation si numéro existe déjà

Bonjour à tous,

J'ai un UserForm dans lequel il y a une TxtBox nommée TxtNum. Dans celle-ci je saisi un numéro.

Ce que je cherche à faire c'est que si ce numéro existe déjà dans la feuille "Engagements" Colonne C alors un message apparait indiquant que ce numéro existe déjà. Cela doit ce faire dès la saisie, rendant la validation impossible.

Ensuite, le numéro saisi est effacé.

Je ne sais pas comment faire, pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
Bien cordialement

Bonjour,

Tu peux utiliser l'évenement BeforeUpdate et tester si on trouve le numéro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)   Dim rg As Range   Set rg = Sheets("Engagements").Range("C:C").Find(TextBox1.Text)   If Not rg Is Nothing Then   MsgBox "numéro existant" Cancel = True   End If   End Sub

---

Bonjour,

Pour vérifier si la valeur existe déjà dans ta colonne tu peux utiliser la fonction suivante (s'applique à un objet Excel.Range):

Code:

---

Function Find(What, [After], [LookIn], [LookAt], [SearchOrder], [SearchDirection As XlSearchDirection = xlNext], [MatchCase], [MatchByte], [SearchFormat]) As Range

---

Et tester l'objet Range renvoyé:

• si c'est Nothing, c'est que la valeur n'existe pas;
• si c'est différent de Nothing, c'est que la valeur existe déjà.

Pour la TextBox, je pense que ça peut se faire comme ça:

Code:

---

TexTBox.Value=""

---

Bonjour,
Pour ajouter une autre proposition sensiblement identique à celle déjà donnée par Jérôme.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Function IsRefExist(rng As Range, ref As String) As Boolean IsRefExist = Application.CountIf(rng, ref) > 0 End Function Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsRefExist(Range("maplage"), TextBox1) Then MsgBox "Existe déjà" TextBox1.Value = "" Cancel = True End If End Sub

---

Merci à tous pour vos réponses. Je les teste et je vous tiens au courant.
Encore merci

J'ai mis en place le code de Jérôme et il fonctionne plutôt bien. J'ai ajouté le code pour la mise à zéro de la zone de saisie dans la TextBox.
Cependant, je rencontre un problème auquel je n'avais pas pensé, en effet si la zone reste vide, le message apparaît, ce qui est normal puisque dans la colonne de mon tableau il y des cellules vides.
Comment éviter cela ?
Merci

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TxtNum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim rg As Range If TxtNum.Value > 0 Then Set rg = Sheets("Engagements").Range("D:D").Find(TxtNum.Text) If Not rg Is Nothing Then MsgBox "numéro existant" '(après ce message, je ne peux plus fermer mon UserForm car le message apparaît à chaque que je clique sur le bouton "Fermer") TxtNum.Value = "" Cancel = True End If End If End Sub

---

Bonjour,

Citation:

---

Envoyé par NEC14

Cependant, je rencontre un problème auquel je n'avais pas pensé, en effet si la zone reste vide, le message apparaît, ce qui est normal puisque dans la colonne de mon tableau il y des cellules vides.
Comment éviter cela ?
Merci

---

Avec le code que je t'ai proposé il n'y a pas ce problème.

Philippe,

Je mets ton code au même endroit que le mien ?

Voici le code adapté à mon cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function IsRefExist(rng As Range, ref As String) As Boolean IsRefExist = Application.CountIf(rng, ref) > 0 End Function   Private Sub TxtNum_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsRefExist(Sheets("Engagements").Range("C:C"), TxtNum) Then MsgBox "Existe déjà" TxtNum.Value = "" Cancel = True End If End Sub

---

Après avoir testé, rien ne se passe, aucun message, par contre je ne peux plus fermer mon UserForm

Bonjour,
Tu prends le code tel quel. Tu remplaces TextBox1 par TxtNum et tu adaptes range("maPlage") par ton nom de feuille et une plage de cellules.
Petite rectification par rapport à ma réponse de tout à l'heure.
Je n'ai pas de problème de message indiquant "Existe déjà" si le TextBox est vide parce-que j'ai utilisé une plage nommée. Si effectivement, tu utilises mon code avec la colonne D entière ( Range("$D:$D") ), le problème sera identique.
Je ne fais jamais de recherche sur une colonne entière mais sur une plage bien définie.

Citation:

---

Envoyé par NEC14

Philippe,
Après avoir testé, rien ne se passe, aucun message, par contre je ne peux plus fermer mon UserForm

---

Que veux-tu dire par là ?
Si tu as un UserForm avec TextBox, je suppose que tu as également un au moins un CommandButton te permettant de mettre à jour, sur ta feuille le contenu des TextBox de ta UserForm.

[EDIT]
Je suis dubitatif quant à ta question. Je n'ose imaginer que tu as programmé cette Userform dans le seul but de vérifier si la valeur du TextBox n'a pas de doublon dans la colonne C ?

Bonjour,

Non bien sûr, je n'ai pas créé un UserForm dans le seul but de contrôle, il me sert à une saisie complète d'élément. J'ai voulu mettre en place ce contrôle car les utilisateurs entrent souvent des doublons et je veux que la vérif se fasse dès la saisie.

Mon problème est résolu. Merci à tous pour votre aide et vos précieux conseils.
Bien amicalement

Citation:

---

je rencontre un problème auquel je n'avais pas pensé, en effet si la zone reste vide, le message apparaît, ce qui est normal puisque dans la colonne de mon tableau il y des cellules vides.

---

Si vide alors on n'effectue pas la recherche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)   Dim rg As Range   if TextBox1.Text = "" then exit sub   Set rg = Sheets("Engagements").Range("C:C").Find(TextBox1.Text)   If Not rg Is Nothing Then   MsgBox "numéro existant" Cancel = True   End If   End Sub

---