zapatista66 < wrote:

Hi guys!

I need some help ! I want to know if its possible to loop with
different numbers like that:

CellArray = Array(1, 2, 5, 10)

'the i should take 1, after 2, after 5, after 10

Worksheets("Mold base").Activate
LargMoule = Range("c2").Value
LongMoule = Range("d2").Value
LargeurParallele = Range("o47").Value
ActiveCell = Range("d17").Activate
ActiveCell.Value = "Largeur"

For i = 1 To UBound(CellArray)

If IsEmpty(ActiveCell.Offset(i, -1)) = False Then
ActiveCell.Offset(i, 0) = LargMoule
ActiveCell.Offset(i, 1) = LongMoule
Largeur(i) = LargMoule
Longueur(i) = LongMoule
End If

thanks a lot


---
Message posted from http://www.ExcelForum.com/

Assuming that CellArray is a 1-based array, just substitute CellArray(i)
for each i in your code.

Alan Beban