Au Suivant dans une boucle

[ninou58]

Bonjour tout le monde!!!

J'ai un petit souci: Voici un bout de code.
if poste = nomcol10 Then
'Si cellule masqué
If Cells(j, cosoir1) = False Then
'Sait pas quoi mettre ->faudrait remonter
End If
posten = cosoir
If Worksheets(nomfeuille1).Cells(i, 9)=2And numjour = recupjour Then
posten = posten + 1
End If
End If

Ce petit morceau est dans une boucle for i=2 to nb.
J'aimerais où il y a 'sait pas quoi mettre' faire en sorte que l'on n'execute pas la suite et que l'on passe au suivant. Je me susi dit que si je mettais next i ca irait mais non,il ne doit y en avoir qu'un. Je fais donc appel à vous.
Merci d'avance

Message édité par: ninou58, à: 31/03/2006 11:11

 

[mutzik]

Bonjour Ninou,

en début quelque part
ExecuterSuite=true


If Cells(j, cosoir1) = False Then
ExecuterSuite= False
End If
if ExecuterSuite
la suite de ton code ...
end if

next quelque chose

 

[ninou58]

Bonjour mutzik,
J'étais justement en train de réfléchir a mettre une variable, et la mettre à 1 ou à 0. mais je m'éttais dit qu'il y avait peut être quelque chose de plus simple.

Merci pour ton aide.
Allez c'est reparti
:whistle:

 

[GIBI]

Bonjour

tu code : Exit for, qui va te renvoré au Next de ta boucle for next


salut

 

[PascalXLD]

Bonjour

exit for te fait sortir complètement de la boucle et non aller au suivant

 

[gibi]

re-bonjour,

j'ai lu trop vite, si tu veux aller à la prochaine itération, tu peux metre un label avant le next et t'y débarncher avec GOTO

GoTo aaa

aaa:
Next


ouf!

 

[Charly2]

Bonsoir Ninou, Mutzik, Gibi et Pascal

Beeuuurrkk !!! J'aime pas les GOTO :sick:

une solution possible sans GoTo :

For i = 2 To nb
  If poste = nomcol10 Then
    'Si cellule masqué
    If Cells(j, cosoir1) ‹› False Then
      posten = cosoir
      If Worksheets(nomfeuille1).Cells(i, 9) = 2 And _
                    numjour = recupjour Then
        posten = posten + 1
      End If
    End If
  End If
Next i

Bon après-midi.

A+