Passer au prochain i d'une boucle dans un cas particulier

[Fab117]

Salut,
J'ai une boucle dans ma macro.
Je souhiterais que dans un cas particulier, elle passe au prochain i de la boucle.
J'ai essayé avec :

For i = 1 to 1000
If DateConcernee = 1 And TrancheHoraire = 23 Then
Variable = "Toto"
Next i
End If
Next i

Mais il plante.

Quelqu'un a-t-il une solution ?

Merci par avance.

Fab

 

[Guest]

Re : Passer au prochain i d'une boucle dans un cas particulier

bonjour Fab,

tel que tu nous donne les éléments, il suffit d'enlever le premier Next i comme ci-dessous

For i = 1 to 1000
If DateConcernee = 1 And TrancheHoraire = 23 Then
Variable = "Toto"
End If
Next i

A bientôt

 

[Spitnolan08]

Re : Passer au prochain i d'une boucle dans un cas particulier

Bonjour,

 For i = 1 to 1000
    If DateConcernee = 1 And TrancheHoraire = 23 Then Variable = "Toto" : i=i+1
Next i

Cordialement

Edit : bonjour Hasco, pas compris la même chose...

 

[Fab117]

Re : Passer au prochain i d'une boucle dans un cas particulier

Merci pour vos réponses.
En fait je n'ai pas été assez clair.
Pour un i donné, la macro fait plusieurs choses (selectionne une cellule, l'explose, récupère le contenu explosé, ...).

For i = 1 to 1000
' toute une série d'opération

Ensuite, je teste un paramètre (une des parties explosées et le contenu d'une autre cellule). Dans un cas bien prècis, je ne souhaite pas que la macro continue, mais passe au i suivant.

Sinon (si la double condition n'est pas remplie), la macro a encore du bouleau avec ce i (aller dans un autre onglet recherché des correspondance).

Donc malheureusement, aucune de vos propositions ne va dans ce cas bien prècis.

Fab

 

[tototiti2008]

Re : Passer au prochain i d'une boucle dans un cas particulier

Bonjour à tous,

Il te suffit de mettre la seconde partie dans un If qui fait tes tests...

ou si c'est trop compliqué, tu met :
Test du paramètre:
If BatteriedeTests then Goto FinBoucle
et tu mets
FinBoucle:
juste avant le Next

 

[Spitnolan08]

Re : Passer au prochain i d'une boucle dans un cas particulier

Re,

Ton explication n'est guère plus claire...
Ce serait pourtant si facile de mettre la macro d'origine pour que l'on comprenne...
Donc, avec ce que j'ai compris une simple adaptation de mon code devrait suffire :

For i = 1 to 1000
'toute une série d'opération
    If DateConcernee = 1 And TrancheHoraire = 23 Then 
         Variable = "Toto" 
         i=i+1
     else
        'la macro a encore du bouleau avec ce i (aller dans un autre onglet recherché des correspondance).
     End if
Next i

Cordialement

 

[Eric 45]

Re : Passer au prochain i d'une boucle dans un cas particulier

Bonsoir à tous

C'est vrai que ce n'est pas très clair quand on ne connait pas le code.
Une suggestion : un petit

exit for

après le

i=i+1

de fring ne ferait il pas l'affaire ?

Eric

 

[Fab117]

Re : Passer au prochain i d'une boucle dans un cas particulier

Salut,
Désolé si je n'ai pas été plus clair avec mon 2ème message.
N'étant plus au boulot, je ne peux pas joindre le code.
Mais d'après ce qu'a écrit tototiti2008, j'ai peut-être la solution à mon problème.
Est il possible de mettre une condition et que si elle est remplie il aille à un autre point de la macro via un Goto ?
Je ne connaissais pas. Quelqu'un aurait-il un exemple ?

Bon week-end.

Fab

 

[MJ13]

Re : Passer au prochain i d'une boucle dans un cas particulier

Bonjour,

Normalement avrec ce qu'a dit tototiti2008, cela devrait le faire!

Il suffit de l'adapter à ton code.

En VBA, il faut savoir tester et faire du debogage. Pour cela, tu mets un stop dans ton code puis F8 et ctrl+shift+F8 (on n'est jamais si bien servi que par soi-même).