[XL-2007] Auto incrementer dans une boucle

Auto incrementer dans une boucle

Bonjour,

Je voudrais savoir si il est possible dans mon code de remplacer les 1,2,3,4,5... par une fonction i qui auto incrementerait les valeurs de bout de code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
lrowtype1 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype1value = ActiveSheet.range(Number2Char(lrowtype1) & lrow + 1).Value ' Selectionne la ligne après le problem
lrowtype2 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype2Value = ActiveSheet.range(Number2Char(lrowtype2) & lrow + 2).Value ' + 2
lrowtype3 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype3Value = ActiveSheet.range(Number2Char(lrowtype3) & lrow + 3).Value ' + 3
lrowtype4 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype4Value = ActiveSheet.range(Number2Char(lrowtype4) & lrow + 4).Value ' + 4
lrowtype5 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype5Value = ActiveSheet.range(Number2Char(lrowtype5) & lrow + 5).Value ' + 5
lrowtype6 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype6Value = ActiveSheet.range(Number2Char(lrowtype6) & lrow + 6).Value ' + 6
lrowtype7 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype7Value = ActiveSheet.range(Number2Char(lrowtype7) & lrow + 7).Value ' + 7
lrowtype8 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype8Value = ActiveSheet.range(Number2Char(lrowtype8) & lrow + 8).Value ' + 8
lrowtype9 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype9Value = ActiveSheet.range(Number2Char(lrowtype9) & lrow + 9).Value ' + 9
lrowtype10 = ActiveSheet.range("COL_ROWTYPE").Column
lrowtype10Value = ActiveSheet.range(Number2Char(lrowtype10) & lrow + 10).Value ' + 10

Bonjour nocontrol et bienvenue sur ce forum ;)

Essaye ceci

Code:

1
2
3
4
5
  Dim Ind As Integer, lRowType(10), lRowValue(10)
  For Ind = 1 To 10
    lRowType(Ind) = ActiveSheet.Range("COL_ROWTYPE").Column
    lRowValue(Ind) = ActiveSheet.Range(Number2Char(lRowType(Ind)) & lrow + Ind).Value ' Selectionne la ligne après le problem
  Next Ind

A+

Merci beaucoup Bruno ^^ voila qui va me permettre d'avancer grandement dans mon travail :)