USERFORM pas comforme

bonjour

ci joint mon problème

mon fichier fonctionne correctement( a mon gout) il ajoute à travers le bouton AJOUT VN la cellule I2 dans la colonne B à la case 8, et si le châssis est similaire à un de ceux de la colonne B, il ne l'ajoute pas.

jusque la c'est bon

j'ai voulu mettre mon fichier sous USERFORM

si je met dans le TEXTBOX1 un châssis existant déjà, il l'ajoute comme même a travers le bouton ajoute VN du userform

merci de me montrer mon erreur

cordialement

Bonjour

Avec l'userform, la valeur que tu saisies est prise comme du texte dans ton textbox1

Transforme la en nombre :

Bonjour

Avec l'userform, la valeur que tu saisies est prise comme du texte dans ton textbox1

Transforme la en nombre :

    For I = 1 To .Range("B1000000").End(xlUp).Row
        'If Cells(I, 2) = Me.TextBox1 Then
        If Range("B" & I).Value = Val(Me.TextBox1.Value) Then     'Modifié
        MsgBox ("Ce châssis existe déjà dans le stock ATTENTION!!")
        Exit Sub
        End If
    Next I

Bye