Aller à la prochaine valeur de la boucle

[helene51]

Bonjour le forum,

Je sèche complètement sur une question toute bête je pense ...
Dans une boucle For, j'ai plusieurs conditions. Je souhaite si ma condition est vraie, passer au prochain (i) de la boucle. Mais je n'arrive pas à l'écrire !
Pourriez-vous m'indiquer comment faire ?

Voici mon code actuel :

For p = 53 To Colfin
    TrouverX = False
        For k = 2 To Range("D65536").End(xlUp).Row
            If Cells(k, 4).Value <> Cells(1, p).Value And TrouverX = False Then
            [I](aller à next p => je ne sais pas comment l'écrire?)[/I]            
Else
            If Cells(k, 4).Value = Cells(1, p).Value And TrouverX = False Then 'Identifie les premières et dernières lignes du tableau
                PremierX = k
                TrouverX = True
            End If
            If Cells(k, 4).Value = Cells(1, p).Value And TrouverX = True Then
                DernierX = k
            End If
            End If
        Next k
Next p

Merci !

 

[Odesta]

Re : Aller à la prochaine valeur de la boucle

Bonjour
Il vous faut en fait sortir de la boucle for ?
=> Si tel est le cas, un simple "Exit For"


Cdt
Olivier

 

[youky(BJ)]

Re : Aller à la prochaine valeur de la boucle

Bonjour Hélène,
Le faire sortir du For par
....Then Exit For
tu te retrouveras en boucle P

Bruno

 

[mécano41]

Re : Aller à la prochaine valeur de la boucle

Bonjour,

Peut-être ainsi ... (mais il y a peut-être des conditions superflues...)

TrouverX = False
For p = 53 To Colfin
    For k = 2 To Range("D65536").End(xlUp).Row
        If Cells(k, 4).Value = Cells(1, p).Value Then
            If TrouverX = False Then                 ' Identifie les premières et dernières lignes du tableau
                PremierX = k
                TrouverX = True
            Else                                              ' donc si TrouverX = True
                DernierX = k
            End If
        Else
            If TrouverX = False Then Exit For     ' donc si Cells(k, 4).Value <> Cells(1, p).Value and TrouverX = False
        End If
    Next k
Next p

Cordialement

 

[helene51]

Re : Aller à la prochaine valeur de la boucle

Bonjour Odesta, youky(BJ) et mécano41,

En effet, quand on cherche on veut faire compliqué alors qu'il y a si simple.

Le "Exit for" fonctionne très bien.

Merci encore.