Afficher Msgbox si Doublon dans une colonne

Roblochon à dit:

Bonjour,

Apparemment il vous faut suivre un tuto sur les variables et leurs types. TextBox.Text = type string
Valeurs des cellules dans colonne A = Entier attendu

Code:

Private Sub TextBox_num_ordre_Change()
    Dim Valeur As Integer
    Valeur = val(TextBox_num_ordre.Text)
    If Valeur < 1 Or Valeur > 200 Then
        MsgBox "Valeur non valable"
        GoTo FIN
    End If
    With Sheets("BdD 2019")
        If Not IsError(Application.Match(Valeur, .Range("A4:A" & .Cells(Rows.Count, 1).End(xlUp).Row), 0)) Then
           
            MsgBox "Attention le n° " & CStr(Valeur) & " existe déjà!", vbExclamation, "Enregistrement"
            GoTo FIN
        End If
    End With
    MsgBox "c'est tout bon"
FIN:
End Sub

Bon après-midi

Cliquez pour agrandir...