Sujet Précédent Sujet Suivant

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

Fermé
Slavax - 22 nov. 2008 à 14:57
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 23 nov. 2008 à 13:59
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.
A voir également:

3 réponses

Réponse 1 / 3
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
22 nov. 2008 à 15:27
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
Réponse 2 / 3
Slavax
22 nov. 2008 à 15:54
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
Réponse 3 / 3
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
23 nov. 2008 à 13:59
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