Discussion :

[vodulci09]

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

[casefayere]

Bonsoir,
essayes ce code à adapter

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

[kiki29]

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

[vodulci09]

ca marche niiiiiquel!!!!!

[casefayere]

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

Bonne soirée