Ne boucle pas en boucle

Question

J'ai ce code de boucle dans mon Userform.

Private Sub cmdLogin_Click() 
Dim user, pass As String 
Dim x As Integer 

user = Me.user1.Text 
pass = Me.pass1.Text 

x = 2 
Do While ActiveWorkbook.Worksheets("Sheet1").Cells(x, 1).Value <> "" 
    If ActiveWorkbook.Worksheets("Sheet1").Cells(x, 1).Value = user _ 
    And ActiveWorkbook.Worksheets("Sheet1").Cells(x, 2).Value = pass Then 
     MsgBox "YES" 
     Exit Do 
    Else 
     MsgBox "NO" 
     Exit Do 
    End If 
Loop 
End Sub 

Mais il semble que le code ne boucle pas à travers les cellules et arrêts seulement jusqu'à x = 2 ou cellules (2,1). Il en résulte de ne pas pouvoir passer par la liste complète des noms d'utilisateur et mots de passe et chaque nom d'utilisateur et passe i entrer devient mauvais, sauf ceux à la ligne 2. S'il vous plaît aider comme je suis nouveau à VBA

Answer 1

Si Cells(2,1) n'est pas "" vous avoir une boucle infinie parce que vous n'augmentez jamais x.

Juste avant Loop ajoutez ceci: x = x + 1 pour incrémenter votre boucle.

Je vous suggère de jouer avec certains de these examples pour avoir une idée du fonctionnement des boucles VBA.

Answer 2

@PortlandRunner J'ai trouvé la réponse. merci d'avoir aidé. au lieu de placer x = x + 1 juste avant la boucle Je l'ai fait

Do While ActiveWorkbook.Worksheets("Sheet1").Cells(x, 1).Value <> "" 

    If ActiveWorkbook.Worksheets("Sheet1").Cells(x, 1).Value = user And ActiveWorkbook.Worksheets("Sheet1").Cells(x, 2).Value = pass Then 
     MsgBox "YES" 
     Exit Do 
    Else 
     x = x + 1 
     If ActiveWorkbook.Worksheets("Sheet1").Cells(x, 1).Value = user And ActiveWorkbook.Worksheets("Sheet1").Cells(x, 2).Value = pass Then 
     MsgBox "YES" 
     Exit Do 
     Else 
     MsgBox "NO" 
     Exit Do 
     End If 
    End If 
loop 

merci beaucoup aux personnes qui ont aidé :)

Answer 3

Juste pour simplifier votre propre réponse Angelo, voici quelques conseils:

With ActiveWorkbook.Worksheets("Sheet1") 
    If (.Cells(x, 1) = user And .Cells(x, 2) = pass) Or _ 
    (.Cells(x + 1, 1) = user And .Cells(x + 1, 2) = pass) Then 
     MsgBox "YES" 
     Exit Do 
    Else 
     MsgBox "NO" 
    End If 
End With