Equivalent de Next par un If then

[JCA06]

Bonjour le Forum,

Me voici à nouveau en difficulté !

Je cherche des valeurs dans une zone que j'essaie de délimiter, et j'ajoute les valeurs à 4 compteurs si :
- La valeur de ma colonne A est un pourcentage ;
- la devise indiquée en colonne B correspond au compteurs 1 à 3 ;
- sinon j'ajoute la valeur au compteur 4.

Je balaye un groupe de ligne avec une boucle sur j et j'aimerai avoir l'équivalent de Next j si la première condition n'est pas remplie.

Voici donc ce que j'ai écris et qui ne marche pas :
For j = 22 To Ligne
With Range('A' & j)
If Right(.Value, 1) <> '%' Then
Next j
ElseIf Range('B' & j).Value = 'EUR' Then
tableau(i) = tableau(i) + .Value
etc...
Avec ceci, j'ai un message 'Erreur de compilation, Next sans For'.
J'ai aussi essayé un Resume Next mais je me retrouve en amont de mon code sur une ligne que j'ai numérotée 11, sans que je comprenne pourquoi...
J'ai aussi essayé End If, mais la c'est mon ElseIf qui suit qui se retrouve sans If...
Je pense essayer un :
Tu vas sortir d'ici et revenir avec un nouveau j !
Mais je ne pense pas que cela fonctionne !

Je me vois déjà dire dans quelques minutes 'bon sang mais c'est bien sur !', mais pour le moment...

A plus.

 

[PascalXLD]

Bonjour

je vois à vue de nez 2 possibilités

La première tu pars sur If Right(.Value, 1) = '%' Then et donc tu ne testes que ce cas

La deuxème

If Right(.Value, 1) <> '%' Then
goto fin

.....

fin:
next j

Bon courage

 

[JCA06]

Bonjour Pascal,

J'ai utilisé ta seconde proposition qui fonctionne parfaitement.

Ton nez a une bonne vue !

Je pensais qu'il existait une instruction spécifique, et j'aurais bien aimé comprendre pourquoi il m'envoyait à ma ligne 11:, d'autant qu'il y avait aussi la ligne 10: ou la ligne 12:

Mais bon, je garde ça pour un autre fois.

Merci beaucoup !