Afficher Msgbox si Doublon dans une colonne

[chaelie2015]

Bonjour Forum

Une colonne( A) a renseigner (a partir de la 4 ligne A4) par un textbox d’un USF

Je souhaite afficher un message « Attention le n° que vous avez saisi existe » lors de la saisie dans TextBox.
c a d il fait une recherche dans la colonne A si il trouve le même numéro il le affiche.

Merci par avance

 

[Hasco]

Bonjour,

A vue de nez

If Not IsError(Application.Match(TextBox1.Text,Sheets("LaFeuille").Range("A4:A1000"),0)) Then

  msgbox "Attention le n° " & TextBox1.Text & " existe déjà!",vbExclamation, "Enregistrement"

End if

Bons tests

 

[chaelie2015]

Bonjour Roblochon
merci pour la réponse rapide
ci rattaché le fichier mais le code n'a pas fonctionné correctement ???

 

[Hasco]

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

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

 

[chaelie2015]

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

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

Bonjour Roblochon
Merci pour la réponse c'est parfait
Bon week-end
A+

 

[Hasco]

Bonjour,

Merci pour ce retour et la modification du titre.

Cordialement

 

[chaelie2015]

Re
C'est une maniéré a moi de gérer mes discussions dans ce forum, mais pas de souci.
Merci