Discussion :

[Runsh63]

Bonjour,

Tout est dans le titre, la macro bloque avec le message comme quoi il me manque un If, voilà ce que j'ai écrit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        For Each Account In .Range("E2:E" & LR2)
        AccType = Left(Account, 1)
            If AccType = "6" Then Account.Offset(0, 1).Value = Account.Offset(0, -3).Value
                If AccType = "7" Then Account.Offset(0, 1).Value = Account.Offset(0, -3).Value * -1
                    If Account.Value = "117" Then Account.Offset(0, 1).Value = (Account.Offset(0, -2).Value - Account.Offset(0, -1).Value) * -1
            Else
                Account.Offset(0, 1).Value = Account.Offset(0, -2).Value - Account.Offset(0, -1).Value
                    End If
                End If
            End If
        Next Account

Pouvez-vous m'aider à corriger SVP ?

D'avance merci !

[mercatog]

D'où l'importance d'indenter son code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each Account In .Range("E2:E" & LR2)
    AccType = Left(Account, 1)
    If AccType = "6" Then
        Account.Offset(0, 1).Value = Account.Offset(0, -3).Value
    ElseIf AccType = "7" Then
        Account.Offset(0, 1).Value = Account.Offset(0, -3).Value * -1
    ElseIf Account.Value = "117" Then
        Account.Offset(0, 1).Value = (Account.Offset(0, -2).Value - Account.Offset(0, -1).Value) * -1
    Else
        Account.Offset(0, 1).Value = Account.Offset(0, -2).Value - Account.Offset(0, -1).Value
    End If
Next Account

[Runsh63]

Merci mercatog, c'est parfait !
J'ai encore un peu de mal à écrire correctement...