Utilisation de tableaux

[Sylvain]

Bonjour à tous,
Je suis confronté à un petit problème auquel je ne trouve pas de solution... L'aide de VBA ne m'a guère renseignée...
J'essaie d'utiliser des tableaux mais je ne dois pas procéder comme il faut :
- je cherche à remplir un tableau (apparemment ça marche)
- puis à afficher les valeurs enregistrés dans ce tableau (là ça plante!)

Voici un extrait de mon code :


Dim Tableau() As Single

nb_lignes = Sheets("Menu").Range("F16")
nb_colonnes = Sheets("Menu").Range("F12")

ReDim Tableau(1 To nb_lignes, 1 To nb_colonnes)

For i = 1 To nb_lignes
a = i
For j = 1 To nb_colonnes
If a <= nb_lignes Then
Tableau(i, j) = a
a = a + 1
Else
a = 1
Tableau(i, j) = a
End If
Next j
Next i

k = 5
i = 1
Do While IsEmpty(Sheets("Occupation").Cells(k, 2)) = False
If i <= nb_lignes Then
For j = 1 To nb_colonnes
Sheets("Occupation").Cells(k, 4) = Tableau(i, j).Value
Next j
k = k + 1
i = i + 1
Else
i = 1
For j = 1 To nb_colonnes
Sheets("Occupation").Cells(k, 4) = Tableau(i, j).Value
Next j
k = k + 1
i = i + 1
End If
Loop

Au débogage, on me dit : erreur de compilation, qualification incorrect en sélectionnant le nom Tableau dans la ligne suivante
Sheets("Occupation").Cells(k, 4) = Tableau(i, j).Value

Je pense que cela vient des initialisations ou d'une mauvaise déclaration mais je ne trouve pas la solution...

Merci à tous et bonne continuation
Sylvain

 

[Sylvain]

C'est bon, j'ai finalement fini par trouver mon erreur !
Bonne continuation à tous