Macro; problème de boucle

Bonjour

J'ai fait une boucle "For" en la finissant bien par "Next" mais à chaque fois que je veux la lancer pour voir si elle marche, l'outil de debogage me dit que ma boucle "for" n'a pas "next" à la fin.
Je n'arrive pas à trouver pourquoi?

C'est une macro pour rendre les valeurs de différentes colonnes négatives ou non en fonction de la valeur d'une autre colonne.

Merci de votre aide.

Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub rf()     Sub rf()     For i = 1 To j   Cells(i, 3).Select   Select Case Selection.Value Case "Lend" Cells(i, 5).Value = Cells(i, 5).Value * -1 Case "Borrow Return" Cells(i, 14).Value = Cells(i, 14).Value * -1 Case "Lend Return" Cells(i, 15).Value = Cells(i, 15).Value * -1 Case "" i = j End Select   Next   End Sub

---

essayes ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub rf() For i = 1 To j'en espèrant que les variables soient déclarées et que j ait une valeur Select Case Cells(i, 3) Case "Lend" Cells(i, 5).Value = Cells(i, 5).Value * -1 Case "Borrow Return" Cells(i, 14).Value = Cells(i, 14).Value * -1 Case "Lend Return" Cells(i, 15).Value = Cells(i, 15).Value * -1 Case "" Exit For End Select Next i End Sub

---

Bonjour

Merci à toi. Ma macro marche maintenant.

:D