PB boucle sans "FOR" alors qu'il y est ! [RÉGLÉ]

[Pepino]

Bonjour à tous !

Me voila à nouveau confronté à un problème auquel je n'avais pas eu le courage de chercher la raison auparavant. Marre d'esquiver, je viens à vous pour trouver le pourquoi du comment !

Dans une simple boucle For i = 1 to 5 j'ajoute une ligne à chaque fois + une opération de mise en page. Allez savoir pourquoi, au bout d'un moment il refuse de reconnaître mon next i.

Voici mon code:

For i = 1 To 5

Rows(14).Insert Shift:=xlDown

' White row to separate units
If i = 1 Then
With TDL.Rows(14)
.Font.Size = 10
.Merge
End With
End If


' Row for comments
If i = 2 Then
With TDL.Rows(14)
.Font.Size = 10
End With
With TDL.Range("B14:E14")
.Merge
.Value = "Comment"
.Font.Italic = True
.Rows.Group
End With
Range("A14").Value = 4
Range("A14").Orientation = 0


' Row for the first component
If i = 3 Then
With TDL.Rows(14)
.Font.Size = 10
End With
With TDL.Range("B14:E14")
.Merge
.Value = "Component"
.Font.Italic = True
End With
Range("A14").Value = 3
Range("A14").Orientation = 0
End If

Next i

J'ai l'erreur "Next wihout For". Je ne comprends pas pourquoi.

Le truc magique c'est que si je met en commentaire le dernier bloc, l'erreur est toujours la. Pourtant, avant d'avoir écris le dernier bloc, le code fonctionnait parfaitement. Pire encore, si je met en commentaire le bloc intermédiaire le code fonctionne.

Ai je fais une erreur que je ne vois pas ?

Merci pour votre aide,
Alexandre.

 

[Pepino]

Re : PB boucle sans "FOR" alors qu'il y est !

Comme quoi on ne se relis jamais assez, l'erreur vient du fait que j'ai omis le End If à la fin du deuxième bloc.

 

[Pierrot93]

Re : PB boucle sans "FOR" alors qu'il y est ! [RÉGLÉ]

Bonjour,

manque peut être un "end if" ici :

If i = 2 Then
With TDL.Rows(14)
.Font.Size = 10
End With
With TDL.Range("B14:E14")
.Merge
.Value = "Comment"
.Font.Italic = True
.Rows.Group
End With
Range("A14").Value = 4
Range("A14").Orientation = 0

End If

bonne journée
@+

 

[stefan373]

Re : PB boucle sans "FOR" alors qu'il y est ! [RÉGLÉ]

Bonjour pepino et le forum

A tout hasard, il manque un end if dans if = 2 😕

A+ Stéfan

Edit: Bonjour Pierrot et encore une fois j'ai été trop lent. 🙂

 

[Pepino]

Re : PB boucle sans "FOR" alors qu'il y est ! [RÉGLÉ]

Bonjour à tous,

Effectivement, bien vu à tous, le problème était bien la !

J'ai pourtant répondu à mon propre message pour dire que j'avais trouvé, vous ne l'avez surement pas vu.

Merci de votre aide, c'est génial la réactivité de ce forum 🙂