1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Option Explicit
Dim matrice(1 To 3, 1 To 3) As Single
matrice(1, 1) = Cells(4, 2).Value
matrice(1, 2) = Cells(4, 3).Value
matrice(1, 3) = Cells(4, 4).Value
matrice(2, 1) = Cells(5, 2).Value
matrice(2, 2) = Cells(5, 3).Value
matrice(2, 3) = Cells(5, 4).Value
matrice(3, 1) = Cells(6, 2).Value
matrice(3, 2) = Cells(6, 3).Value
matrice(3, 3) = Cells(6, 4).Value
Dim vecteur(1 To 3) As Single
vecteur(1, 1) = Cells(2, 1).Value
vecteur(1, 2) = Cells(2, 2).Value
vecteur(1, 3) = Cells(2, 3).Value |
Partager