For each , saut itération

Bonjour,
Je souhaiterai savoir si il est possible dans une boucle For Each de forcer le passage à la cellule suivante
Exemple :

Code:

---

1 2 3 4 5

For Each Cell in .Range(.Cells(2,4),.Cells(10,4)) If Cell.Value = "100" Then Msgbox "ok" 'ici faire une sorte de faire un next Cell pour ne pas executer le code en dessous Cell.Offset(1,0).value = ok next Cell

---

Merci d'avance

Bonjour iperkut,

Pourquoi ne pas écrire tout simplement :

Code:

---

1 2 3 4 5 6 7

For Each Cell in .Range(.Cells(2,4),.Cells(10,4)) If Cell.Value = "100" Then Msgbox "ok" Else Cell.Offset(1,0).value = ok End If Next Cell

---

Bonjour,
Je suis d'accord ceci marche très bien.
Mais je voulais savoir si il n'existe pas une syntaxe permettant de passer à la cellule suivante dans une boucle for each sans avoir à joué avec des if.

Citation:

---

Envoyé par iperkut

Mais je voulais savoir si il n'existe pas une syntaxe permettant de passer à la cellule suivante dans une boucle for each sans avoir à joué avec des if.

---

Et le code saura comment l'élément qu'il doit sauter :koi:

cordialement,

Didier

salut

je ne sais pas ce que tu veux fabriquer (c'est ton affaire)

regarde ce que fait ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Static nonok As Boolean For Each cell In .Range(.Cells(2, 4), .Cells(10, 4)) If cell.Value = "100" And nonok = False Then nonok = True: MsgBox "ok" & " " & cell.Address 'ici faire une sorte de faire un next Cell pour ne pas executer le code en dessous cell.Offset(1, 0).Value = ok Else nonok = False End If   Next cell

---

Citation:

---

Envoyé par Ormonth

Et le code saura comment l'élément qu'il doit sauter :koi:

cordialement,

Didier

---

Code:

---

1 2 3 4 5 6 7 8

for each cell in .range(.cells(1,1),.cells(5,1))   if cell.value = 2 and cell.offset(1,0).value =3 then i = 100 if cell.value = 1 and cell.offset(1,0).value =3 then i = 200   msgbox ok next cell

---

avec ce code, nous somme d'accord que cela va parcourir les cellules du range A1:A5
avec :

Code:

---

1 2 3 4 5 6

A1 = 1 A2 = 3 A3 = 1 A4 = 2 A5 = 3

---

le code va alors s'exécuter comme ceci :
pour A1 : i=200, msgbox "ok"
pour A2 : msgbox "ok"
pour A3 : msgbox "ok"
pour A4 : i=100, msgbox "ok"
pour A5 : msgbox "ok"

Ce que je souhaite maintenant faire c'est par exemple si la cellule est égale à 3 "passer a la cellule suivante" / ne pas tester cette cellule
cela pourrait se traduire par :

Code:

---

1 2 3 4 5 6 7 8 9 10

for each cell in .range(.cells(1,1),.cells(5,1))   if cell.value = 3 then next cell if cell.value = 2 and cell.offset(1,0).value =3 then i = 100 if cell.value = 1 and cell.offset(1,0).value =3 then i = 200   msgbox "ok" next cell

---

et l'exécution du code donnerait :
pour A1 : i=200, msgbox "ok"
pour A2 : rien
pour A3 : msgbox "ok"
pour A4 : i=100, msgbox "ok"
pour A5 : rien

j'espère être plus clair...

Ben je continue à te proposer ma solution :

Code:

---

1 2 3 4 5 6 7

For Each cell In .Range(.Cells(1,1),.Cells(5,1)) If cell.value <> 3 then If cell.value = 2 and cell.offset(1,0).value =3 then i = 100 If cell.value = 1 and cell.offset(1,0).value =3 then i = 200 msgbox "ok" End If next cell

---

En quoi ce code pose-t-il problème ?

Aucun problème !
Je veux juste savoir si il existe une syntaxe permettant de faire une sorte de "next cell" directement. C'est tout ! :)

Âpres je suis d'accord qu'en faisant avec ta méthode cela marche très bien.

Une autre solution serait d'utiliser un GoTo avec une étiquette, mais ce n'est pas très propre :

Code:

---

1 2 3 4 5 6 7 8 9

for each cell in .range(.cells(1,1),.cells(5,1))   if cell.value = 3 then Goto etiquette if cell.value = 2 and cell.offset(1,0).value =3 then i = 100 if cell.value = 1 and cell.offset(1,0).value =3 then i = 200   msgbox "ok" etiquette: next cell

---

Je ne connais pas de commande qui puisse faire ce que tu demandes, mais mes connaissances en VBA sont limitées.

Comme signalé pour sauter quelque chose, il faut un filtre donc le 1er code de Yoyo57 est bon, sinon,il faudrait passer par une boucle for I =... et l'avancer de 1 au moment voulu, mais ce n'est pas recommandé du tout et bien plus lourd.

Amélioration possible, s'il n'y a qu'une ligne de test, passer par un Select Case à l'intérieur du IF cell.value<>3 car le code sortirait à la première occurrence rencontrée... Sinon ajouter un exit for en fin de ligne sur les If intérieurs..

cordialement,

Didier

Merici à tous pour vos réponses.
La solution du Goto est celle qui me parait la plus adaptée à mon problème même si ce n'est pas très propre..