For loop with non consecutive number

  • Thread starter Thread starter zapatista66
  • Start date Start date
Z

zapatista66

Hi guys!

I need some help ! I want to know if its possible to loop wit
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 lo
 
Hi Zapatista66,

As an example:

Sub nnn()
Dim i As Long
Dim cellarray As Variant

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

For i = LBound(cellarray) To UBound(cellarray)
MsgBox cellarray(i)
Next

End Sub
 
zapatista66 said:
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
Click to expand...
Assuming that CellArray is a 1-based array, just substitute CellArray(i)
for each i in your code.

Alan Beban
 
Back
Top