For each: "Next Cell" conditionnel

Version imprimable

Bonjour à tous,

Dans une de mes boucles for each, je souhaiterais pouvoir passer à la cellule suivante sur base d'un test conditionnel ... Ceci permettant donc de gagner du temps d'exécution :)

Voici le code que j'ai testé mais qui ne peut pas être compilé malheureusement:
Code:

1 2 3 4 5 6 7 8 For Each Cell2 In Plage 'Pour toutes les cellules sur cette ligne If Cell2.Text = "" Then Exit For ' Permet de sortir de la boucle prématurément pour gagner du temps If IsNumeric(Cell2) Then Next Cell2 'Permet de passer à la cellule suivante pour gagner du temps 'Instructions de la boucle Next Cell2
Merci d'avance pour votre aide ! :)

Bonjour,
pourquoi vouloir inclure un next dans la boucle alors que ton if suffit?

Code:

1
2
3
4
5
6
7
8
9
For Each Cell2 In Plage 'Pour toutes les cellules sur cette ligne
 
        If Cell2.Text = "" Then Exit For ' Permet de sortir de la boucle prématurément pour gagner du temps
        If IsNumeric(Cell2) Then  'Permet de passer à la cellule suivante pour gagner du temps
 
'Instructions de la boucle
end if
 
    Next Cell2

Bonjour,

Si j'ai bien compris :D

Code:

1
2
3
4
5
6
    For Each Cell2 In Plage 'Pour toutes les cellules sur cette ligne
        If Cell2.Text = "" Then Exit For ' Permet de sortir de la boucle prématurément pour gagner du temps
        If Not IsNumeric(Cell2) Then 'Permet de passer à la cellule suivante pour gagner du temps
            'Instructions de la boucle
        End If
    Next Cell2

Cordialement.

06/05/2015, 08h53
c.piette

Re

Re,

Merci à vous deux pour vos réponses, j'avoue que j'ai vraiment réfléchi plus loin que le bout de mon nez sur ce coup là ! :aie:

Et c'est gFZT82 qui l'emporte sur la finition car c'est bien si la valeur est numérique que je souhaite passer à la cellule suivante :mrgreen:

Merci à vous deux :)