Tableau vaba multidimentionnel , nb lignes défini par variable Pb

Goufra à dit:

Public Const lg As Integer = x

Cliquez pour agrandir...

Public x%
Option Explicit

Sub MonTest()
Dim tablo() As Single
Dim Sum As Single
Dim iRow%, iCol%

x = Columns(1).Find("*", , , , , xlPrevious).Row
ReDim tablo(1 To x, 1 To 4)
    For iRow = LBound(tablo, 1) To UBound(tablo, 1)
        For iCol = LBound(tablo, 2) To UBound(tablo, 2) Step 2
            tablo(iRow, iCol) = Cells(iRow, iCol)
            Sum = Sum + tablo(iRow, iCol)
            'MsgBox "tablo(" & iRow & "," & iCol & ") = " & tablo(iRow, iCol)
            'MsgBox "Sum = " & Sum
        Next iCol
    Next iRow
    MsgBox "The final Sum = " & Sum
End Sub

Goufra à dit:

1/ pour quelle raison utilises-tu single et non integer pour dim tablo() as single ?

Cliquez pour agrandir...

Goufra à dit:

2/ que signifie "()' le dans la déclaration dim tablo() as single ?

Cliquez pour agrandir...