Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

TexTBox.Value=""