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:
-Quand je veux ajouter (USForm Ajouter) un nom qui existe déjà, le code marche à merveille en indiquant que ce nom existe déjà.
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 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é!
Partager