Utilisation des boucles for dans les tableaux VBA

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:

---

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???

Bonsoir,
essayes ce code à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub tableau()   Dim tableau(1 To 4, 1 To 4) As Single Dim j As Integer, h As Integer, y As Integer With Sheets("feuil2") For h = 1 To 4 y = 0 For j = 1 To 4 tableau(j, h) = .Cells(2, h + 2) + y y = y + 1 Next j Next h End With   Range("C3:F6").Value = tableau   End Sub

---

vodulci09 : Salut, pour info, si ce n'est déjà fait, un tuto, à consulter

ca marche niiiiiquel!!!!!

qu'est-ce qui marche nickel ?
si le problème est résolu, Lis ma signature

Bonne soirée