Discussion :

[Djohn]

bonjour,

Dans ma boucle for next, j'ai imbriqué une condition If.

Est il possible si ma condition est "vrai" d'aller directement a la fin de la boucle Next, non pas pour y sortir mais pour passer a l'element suivant
J'ai essayé avec Exit, mais Exit me sort complement de la boucle
et avec On Error Resume Next, mais ca ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
 
For i = 1 To x
    If Range("b8") = "" Then
       On Error Resume Next 'ici que ca bloque
    End If
'suite du scipt
Next i

merci a vous

[fring]

Bonjour,

Essaye comme ceci

Code :

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

1
2
3
4
5
6
For i = 1 To x
    If Range("b8") = "" Then
       GoTo suite
    End If
suite:
Next i

[alsimbad]

ta question est vraiment bizarre.
si la condition est vrai la ligne suivante est executée et si elle est fausse, c'est la ligne apres le end if qui sera executé, il te suffit donc de placer ce end if juste avant le next pour ne pas te prendre le choux

Code :

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

1
2
3
4
5
6
7
For i = 1 To x
    If Range("b8") = "" Then
    exécution du code
    End If
Next i

et a l'inverse, si tu veux executer le code avec la condition fausse

Code :

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

1
2
3
4
5
6
7
For i = 1 To x
    If not Range("b8") = "" Then
     execution du code
    End If
Next i

[Djohn]

Effectivement alsimbad, j'ai mal résonné sur ce coup


fring ta solution fonctionne

merci pour ces 2 solutions

[Gorfael]

Salut Djohn, alsimbad et le forum

moi, j'aurais plutôt raisonné comme ça :

Code :

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

1
2
3
4
5
For i = 1 To x
    If Range("B8") <> "" Then
     execution du code
    End If
Next i

A+

Edit à voir le poste qui suit, j'ai encore du travail avant d'arrêter d'être un clown . Sauf que pour moi, les modifications dues au traitement peuvent faire évoluer B8. Mais j'aurais du signaler que cette formulation semblait bizarre.

[ucfoutu]

Excusez_moi...

Pourquoi rentrer dans la boucle (même si c'ext pour n'y rien faire ... n fois !) ?

Il faut mettre la condition de rentrée dans la boucle avant la boucle elle-même !

Code :

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

1
2
3
4
5
If Range("b8") = "" Then
   For i = 1 To x
      exécution du code
   Next i
End If

C'est évident.

[rose35]

Merci bcp pour vos réponses!
cela marche bien, maintenant je vais faire mes boucles quand j'ai plusieurs lignes à remplir.
Mais merci bcp