Discussion :

[c.piette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

Si j'ai bien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[c.piette]

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à !

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


Merci à vous deux