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

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

Cliquez pour agrandir...