Boucle for

[dam3117]

Bonjour le forum

voici ma boucle for:

For Each c In Range("f1:f" & Range("A65536").End(xlUp).Row)


If c = ComboBox1 Then
If c.Offset(0, 28).Value = "vert" Then XXXXXXXXXXXXX
If c.Offset(0, 28).Value = "rouge" Then XXXXXXXXXXXX
ListBox1.AddItem c.Offset(0, -5).Value
ListBox1.List(x, 1) = c.Offset(0, -4).Text

ListBox1.List(x, 2) = c.Value
ListBox1.List(x, 3) = c.Offset(0, 28).Value
ListBox1.List(x, 4) = c.Offset(0, 11).Value
If c.Offset(0, 32).Value = "D1" Then
ListBox1.List(x, 5) = (100)
ElseIf c.Offset(0, 32).Value = "C1" Then ListBox1.List(x, 5) = (30)
ElseIf c.Offset(0, 32).Value = "D5" Then ListBox1.List(x, 5) = (80)
ElseIf c.Offset(0, 32).Value = "E1" Then ListBox1.List(x, 5) = (50)
ElseIf c.Offset(0, 32).Value = "Z" Then ListBox1.List(x, 5) = (10)
ElseIf c.Offset(0, 32).Value = "P" Then ListBox1.List(x, 5) = (-50)
End If

ListBox1.List(x, 6) = c.Offset(0, -5).Value + c.Offset(0, -4).Value
x = x + 1
End If
Next c


je voudrai que si la valeur c.Offset(0, 28).Value = "vert" ou c.Offset(0, 28).Value = "rouge" qu'elle passe à la ligne suivante.

merci
damien

 

[gwenlorin]

Re : Boucle for

bonjour,

remplaces les lignes :

If c.Offset(0, 28).Value = "vert" Then XXXXXXXXXXXXX
If c.Offset(0, 28).Value = "rouge" Then XXXXXXXXXXXX

par

If c.Offset(0, 28).Value = "vert" or c.Offset(0, 28).Value = "rouge" Then goto suite

et avant ton

next c

tu ajoutes également

suite :

le goto te fait un renvoi vers la réf "suite" et saute les autres lignes de code

A+

 

[dam3117]

Re : Boucle for

Bonjour gwenlorin
merci mais j'ai une erreur "sub ou function non définie"

dam

 

[dam3117]

Re : Boucle for

re annule ma derniere j'ai oublié les ":"

merci nickel