Discussion :

[iperkut]

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

Code :

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

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

[Yoyo57]

Bonjour iperkut,

Pourquoi ne pas écrire tout simplement :

Code :

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

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

[iperkut]

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.

[Didier Gonard]

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

cordialement,

Didier

[iperkut]

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

cordialement,

Didier

Code :

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

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 :

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

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 :

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

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...

[Yoyo57]

Ben je continue à te proposer ma solution :

Code :

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

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 ?

[babaothe]

salut

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

regarde ce que fait ceci :

Code :

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

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

[Yoyo57]

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

Code :

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

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.