Bonjour,

J'écris un programme EXcel VBA pour gérer la vente dans une boutique. J'ai ensuite créé un UserForm qui me permet d'ajouter un commercial. Un autre UserForm pour modifier au besoin le nom du commercial.
Le problem se situe où:

-Pour empêcher d'ajouter un commercial don't le nom existant déjà, j'ai écris ces codes sous le textbox contenant le nom à saisir:

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
Private Sub TB_Libellé_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
 
Dim rg As Range
 
If TB_Libellé.Text = "" Then Exit Sub
 
Set rg = Sheets("Commerciaux").Range("A:A").Find(TB_Libellé.Text)
 
If Not rg Is Nothing Then
 
    MsgBox "Commercial existant déjà"
    Cancel = True
    Me.TB_Libellé.SetFocus
    End If
End Sub
-Quand je veux ajouter (USForm Ajouter) un nom qui existe déjà, le code marche à merveille en indiquant que ce nom existe déjà.
-Quand je veux modifier un ancien nom (USForm Modifier) par un autre qui ne figure pas dans ma liste, le code marche et je change cela.

Voilà je veux rentrer un nom qui n'existe pas et avait figuré une fois, ceci refuse et m'indique le message que ce nom existe déjà.

En bref ce que j'ai comme problème. Si je me suis fais un peu expliqué!