F
Fred
Guest
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
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