Excel VB: Pbm avec double boucle "For...next&

Slavax -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour, je souhaite réaliser une boucle à l'intérieur d'une autre boucle.
Voiçi ma macro:

Sub Macro1()

Dim X As Integer
Dim Y As Integer

For X = 1 To 7

For Y = 1 To 21
If 'condition recherchée avec Y vraie
Exit For
End If
Next Y

Next X

End Sub

Mon problème actuel est que si ma condition n'est pas vrai, la macro passe au prochain Y mais aussi au prochain X, alors que je voudrai que la macro effectue un test avec tous les Y (afin que la condition soit vraie avec Y) puis de passer ensuite au prochain X.
Merci.

3 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Pas fort clair, mais si j'ai bien compris... 
    Sub Macro1()
Dim X As Integer
Dim Y As Integer
Dim R As Integer
    R = 1
    For X = 1 To 7
        For Y = R To 21
            'If 'condition recherchée avec Y vraie then
                'Le code..
                R = Y + 1
                Exit For
            End If
        Next Y
    Next X
End Sub

    A+
    1
  2. Slavax
     
    Ce n'est pas tout à fait ça.
    Dans ta proposition la boucle Y change de borne.
    En fait je veux réaliser la même boucle Y pour chaque X.
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Ou alors je sais pas lire !
    la macro passe au prochain Y mais aussi au prochain X, alors que je voudrai que la macro effectue un test avec tous les Y (afin que la condition soit vraie avec Y) puis de passer ensuite au prochain X.
    ??
    0