Interdire la saisie de doublons dans une TEXTBOX

Ce sujet contient 1 réponse, 2 participants et a été mis à jour pour la dernière fois par Lionel, le il y a 3 années et 8 mois.

2 sujets de 1 à 2 (sur un total de 2)

Auteur

Articles
13 août 2020 à 5 h 47 min #75857

Pimpin
Participant

Bonjour,

Je voudrais interdire la saisie de doublons dans une TEXTBOX.
Je n’arrive pas à trouver la bonne formule.

Merci pour votre aide.

15 août 2020 à 4 h 53 min #76026
Lionel
Participant
Re- Pimpin,
En partant de : En colonne A (Feuil1), j’ai des références
Voici un code qui réagit quand tu cliques sur le CommandButton
```
Private Sub CommandButton1_Click()
Dim x As Range
If TextBox1.Value <> "" Then
    Set x = Range("A:A").Find(TextBox1, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then
        MsgBox "Ce code est déjà en : " & x.Address & vbLf & "Saisir un nouveau code Référence"
        TextBox1 = ""
        Cancel = True
    Else
        MsgBox "Ce code n'existe pas."
    End If
End If
End Sub
```
Attachments:
You must be logged in to view attached files.
Auteur

Articles

2 sujets de 1 à 2 (sur un total de 2)

Vous devez être connecté pour répondre à ce sujet.