Tableau multidimensionnel

[Fred]

Bonjour,

Voila mon probleme, j'ai sur une feuille excel les données suivantes :
(dans l'exemple : 4 lignes & 4 colonnes)

A B C D
3 1000 7 304 9
4 1250 52 1256 22
5 1800 9 257 30
6 1200 15 24 45


Sub Test()
Dim MonTableau() As Single
Dim DerniereLigne As Byte
DerniereLigne = Range("A3").End(xlDown).Row
Dim NbreDeLignes As Byte
NbreDeLignes = DerniereLigne - 2
ReDim MonTableau(NbreDeLignes, 4)

MsgBox MonTableau(1, 2)

End Sub

Je souhaite récuperer une des valeurs stockées, mais la macro me renvoie toujours la valeur 0. Ou est l'erreur !!!!!!!


Par avance merci de vos réponses
@Fred

 

[Ti]

c'est simple : tu n'as pas initialisé ton tableau, il ne renvoie donc que des valeurs nulles.
Pour l'initialiser tu fais :
montableau = Range("A3:C5") (à supposer que ta plage soit en A3:C5 évidemment)