Problème avec Else without If

Version imprimable

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:

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 !

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

Code:

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

09/11/2011, 17h48
Runsh63

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