Interdire la saisie de doublons dans une TEXTBOX

Accueil – Le CFO masqué Forums VBA Interdire la saisie de doublons dans une TEXTBOX

2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Articles
  • #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.

    #76026
    questvba
    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.
2 sujets de 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.