Problème d'écriture d'une boucle [Résolu]

[Runsh63]

Bonjour le forum,

J'ai un souci de syntax error mais je ne vois pas comment corriger le tir...
Voyez plutôt :

Code :

1
2
3
4
5
6
7
8
9
10
Dim LR1 As Integer, TBAccount As Range
 
    With Sheets("Retreated TB")
 
        .Range("E1:F1") = Array("Compte", "Solde")
 
    LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
 
    For Each TBAccount In .Range("E1:E" & LR1)
        If TBAccount.Offset(0, -4).Value = """" Or Len(TBAccount.Offset(0, -4)).Value <> 3 Then TBAccount.Value = TBAccount.Offset(0, -4).Value

C'est la dernière ligne qui est en rouge, je ne sais pas comment la corriger.
Pourriez-vous m'aider SVP ? D'avance merci !

PS : Je préfère vous prévenir tout de suite qu'une voire des autres questions va (vont) suivre... Alors armez-vous de patience !

[Jean-Pierre49]

Bonjour

regarde bien ta ligne

Code :

Len(TBAccount.Offset(0, -4)).Value

c'est la l'erreur

Code :

Len(TBAccount.Offset(0, -4).Value)

Pour fermer la fonction len


Bon courage

[Runsh63]

Bonjour Jean-Pierre,

Décidemment, que ferai-je sans toi !
C'est rageant de faire des fautes idiotes de débutants...
En tout cas merci beaucoup, il en faut de la patience pour répondre à ce type de questions bêtes

[Jean-Pierre49]

Quand cela est

[Runsh63]

Je vais mettre résolu, je le fais toujours, mais avant (j'avais prédit que ça ne finirai pas là...)

PS : Je préfère vous prévenir tout de suite qu'une voire des autres questions va (vont) suivre... Alors armez-vous de patience !

Alors voilà mon code finalisé :

Code :

1
2
3
4
5
6
7
8
9
For Each TBAccount In .Range("E1:E" & LR1)
        If TBAccount.Offset(0, -4).Value = """" Or Len(TBAccount.Offset(0, -4).Value) <> 3 Then TBAccount.Value = TBAccount.Offset(0, -4).Value
        Else
        If TBAccount.Offset(0, -3).Value <> """" Then TBAccount.Value = TBAccount.Offset(0, -4).Value & "/" & TBAccount.Offset(0, -3).Value
        Else
        If TBAccount.Offset(0, -3).Value = """" And TBAccount.Offset(0, -4).Value = "503" Then TBAccount.Value = "503"
        Else
        If TBAccount.Offset(0, -3).Value = """" And TBAccount.Offset(0, -4).Value <> TBAccount.Offset(1, -4).Value Then TBAccount.Value = TBAccount.Offset(0, -4).Value
    Next TBAccount

J'ai le droite à du "Else without If" pourant j'ai mis Else car je veux qu'il prenne bien condition par condition.
J'ai essayé de décaler les lignes, d'écrire ElseIf sur la même ligne, rien à faire...
Une idée pour me corriger ça STP ?

[Runsh63]

C'est bon, j'ai trouvé