Discussion :

[veslover]

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é!

[a_diard]

Bonjour

Je pense que quand ton programme indique que le nom existe déjà

c'est qu'il est réellement dans ta liste.

Je suppose que quand tu modifie un nom, tu ne supprime pas le nom précédent.

Bonne journée.

[unparia]

Bonjour
rg, dans le code que tu montres, est une cellule (un objet range)
La Propriété VALUE d'un objet Range étant accessible en lecture et en écriture, je comprends mal ta difficulté.
On ne voit pas par quel code tu veux faire cette modification. Montre-le !

EDIT : je vois que tu as déclaré rg dans ta procédure. Il n'est donc pas accessible depuis une autre procédure.
Il est à déclarer Public dans un module standard.