boucle Do-loop until qui ne fonctionne pas correctement

Version imprimable

Bonjour, j'ai crée 2 boucles pour faire à peu près la même chose, la première fonctionne à merveille et la deuxième fonctionne à moitié. Je m'explique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
testDE = False
testJUSQUE = False
Do
    DE = Abs(Val(InputBox("Entrez le numéro RS de la 1ère fiche à imprimer", "Saisir le Début")))
 
    For Each cell In Worksheets("Tableau général (Ecriture)").Range("A4:A600")
        If DE = cell.Value Then
            ligne_debut = cell.Row
            MsgBox (DE)
            MsgBox (cell.Value)
            testDE = True
        Else
           testDE = False
        End If
        Exit For
    Next cell
    MsgBox (testDE)
    If testDE = False Then
        MsgBox ("Entrez un numero RS valide!")
    End If
Loop Until testDE = True
 
 
Do
    JUSQUE = Abs(Val(InputBox("Entrez le numéro RS de la dernière fiche à imprimer", "Saisir la fin")))
 
    For Each cell1 In Worksheets("Tableau général (Ecriture)").Range("A4:A600")
        If JUSQUE = cell1.Value Then
            ligne_fin = cell1.Row
            MsgBox (JUSQUE)
            MsgBox (cell1.Value)
            testJUSQUE = True
        Else
           testJUSQUE = False
        End If
        Exit For
    Next cell1
    MsgBox (testJUSQUE)
    If testJUSQUE = False Then
        MsgBox ("Entrez un numero RS valide!")
    End If
Loop Until testJUSQUE = True

Dans la première boucle, si je rentre un numero qui n'est pas dans la plage A4:A600 de ma feuille, la boucle fonctionne et me redemande de saisir le numero.
Par contre dans la deuxième boucle qui est identique, peu importe ce que je fais, la boucle tourne en rond et considère que le numero saisie n'est jamais le bon et m'affiche le message : saisir numero , en continue je suis obliger de faire ctrl al suppr pour arreter excel.
Je n'arrive pas à comprendre pourquoij étant donné que le code est le meme. Je trouve ça très bizarre quelqu'un peut m'aider svp ?

10/05/2024, 11h44
Philippe Tulliez

Bonjour,
Je n'ai pas testé mais déjà je vois un souci ligne 16 avec l'Exit For. Quelque soit le résultat de la procédure décisionnelle (lignes 8 à 15) vous sortez de la boucle For Each Cell
10/05/2024, 11h51
Invité

L' Exit For n'est pas à sa place il doit être placé juste après testDE = True

Bonjour,
Testez la première boucle plutôt comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub test5()
    Dim testDE
    Dim testjusque
    testDE = False
    testjusque = False
    Do
        Dim NumberRS
        NumberRS = Abs(Val(InputBox("Entrez le numéro RS de la 1ère fiche à imprimer", "Saisir le Début")))
 
        Dim itemRange
        For Each itemRange In Worksheets("Tableau général (Ecriture)").Range("A4:A600")
            If NumberRS = itemRange.Value Then
                Dim RsRow
                RsRow = itemRange.Row
                Debug.Print "Value:="; (itemRange.Value), "Ligne:="; RsRow
                testDE = True
                Exit For
            End If
        Next itemRange
        If testDE = False Then
            MsgBox ("Entrez un numero RS valide!")
        End If
    Loop Until testDE = True
 
End Sub

10/05/2024, 12h14
qvn83

exit for mal placé

Re-bonjour,

Merci beaucoup pour votre aide, effectivement c'etait juste le exit for qui etait mal placé.