Bonjour à tous,

comme l'indique si bien le titre j'ai un gros problème avec l'utilisation des boucles for appliquées à un tableau VBA...

Pour faire simple j'aimerai que chaque cellule de ce tableau soit égale à la précédente +1... j'ai donc réalisé ce joli code:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub tableau()
 
Dim tableau(1 To 4, 1 To 4) As Single
Dim j, h As Integer
 
Worksheets("feuil2").Select
 
For j = 1 To 4
 
tableau(j, 1) = Cells(j + 1, 3) + 1
 
Next j
 
Range("C3:F6").Value = tableau
 
End Sub

mais voila surprise! au lieu d'avoir 1,2,3,4 dans ma première colonne je n'ai que des 1!! J'ai diablement besoin de ce bout de code pour la suite de mon projet et je ne trouve pas la solution... Auriez vous une idée???