Discussion :

[BenjaminP]

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 :

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

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

[casefayere]

essayes ça :

Code :

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

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

[BenjaminP]

Bonjour

Merci à toi. Ma macro marche maintenant.