Boucle très simple ne fonctionne pas

Bonjour,

j'ai une boucle très simple qui ne fonctionne pas (je suis débutant).

Je veux vérifier si le champs rentré par l'utilisateur est égal à l'une des cellules d'une ligne d'une feuille Excel.

Voici mon code :

Sheets("CLIENTS").Select
    nblines = Range("A65536").End(xlUp).Row
    For i = 2 To nblines
    If Cells(i, 1) = clientid.Value Then verifclient = 1
    Next

    If verifclient <> 1 Then
        MsgBox ("The client N°" & clientid.Value & " does not exist")
    Else

Et la boucle se comporte comme si 1 ≠ 1 et donc m'affiche le message " The client doesn't exist" alors que j'ai rentré "1" dans clientid.Value et que la cellule 2,1 dans la page CLIENTS est égale à 1....

Je ne comprends pas

Merci d'avance,

Raphael

Bonjour

Tu compares du texte ( ClientId.Value ) avec un chiffre ( Cells(i, 1) )

Modifies ton code

Sheets("CLIENTS").Select
    nblines = Range("A65536").End(xlUp).Row
    For i = 2 To nblines
    If Cells(i, 1) = Val(ClientId.Value) Then verifclient = 1
    Next

Merci beaucoup !!