Discussion :

[mouftie]

Bonjour
Voulant éviter les doublons dans ma base de données, j'ai écrit le code suivant

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 TbxUs_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Plg As Range, Cel As Range, a As Byte, b As Byte
Set Plg = Range("TbAgt[Users]")
b = Len(TbxUs.Text)
For Each Cel In Plg 'boucle sur tous les users
    If Right(Cel, b).Value = TbxUs.Value Then
        a = MsgBox("Ce User existe déjà ; Voulez-vous modifier le user ?", vbYesNo, "Attention !") 'message
        If a = vbYes Then   'Si oui au mess
            Cancel = True   'annule la sortie de la textbox
            TbxUs.SelStart = 0  'début de la sélection
            TbxUs.SelLength = Len(TbxUs)    'Lgr de la sélection
            Exit Sub    'sortie
        End If
    End If
Next Cel
End Sub

à la ligne "If Right(Cel, b).Value = TbxUs.Value Then" je reçois le message "Objet requis"
quand je teste dans la fenêtre exécution, j'ai
?TbxUs.Value résultat 8750
?Right(Cel, 4).Value résultat 8750

Est-ce que quelqu'un peut m'aider svp.
Merci

[Marc-L]

Bonjour, bonjour !

?Right(Cel, 4).Value résultat 8750

Impossible ‼     Right étant une simple fonction texte (suffit d'ouvrir l'aide VBA !)
donc ne peut disposer d'une propriété Value (qui elle est forcément rattachée à un objet et non pas à une fonction texte) …
D'où le message d'erreur, CQFD !     Bref un peu comme le tiercé dans le désordre, c'est ballot …

Voilà, voilà !

___________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________
Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …