Interdire validation si numéro existe déjà [Résolu]

[NEC14]

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

[jfontaine]

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

[Sclarckone]

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=""

[corona]

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

[NEC14]

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

[corona]

Bonjour,

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.

[NEC14]

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

[corona]

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.

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 ?

[NEC14]

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

[jfontaine]

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