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

[Goufra]

Bonjour à vous,
J'ai un tableau je souhaiterais définir le nombre de lgnes par une variable.

Je cherche mais .... je n'y arrive pas !

Fichier joint

D'avance merci à vous
JCR

 

[kjin]

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

Bonjour,

Public Const lg As Integer = x

Par définition, une constante n'est pas variable
Sans vraiment avoir saisie le sens de la question

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

A+
kjin

 

[Goufra]

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

Merci beaucoup Kjin,

Je sais qu'une constante n'est pas une variable .... raison pou laquelle j'essayais de trouver une astuce pour lui donner une valeur avant qu'elle ne soit déclarer comme une constante !
Bref nul !
Merci à toi tu me permets de progresser .

Peux-tu m'aider à comprendre:
1/ pour quelle raison utilises-tu single et non integer pour dim tablo() as single ?
2/ que signifie "()' le dans la déclaration dim tablo() as single ?

Je me rajeunis en abusant du pourquoi !


Encore une fois merci

je te remercie par avance

 

[kjin]

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

Bonsoir,

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

Tu as déclaré la variable Sum de type "Single", il est logique de garder le même type pour le tableau, sous peine de renvoyer de faux résultats, voire une erreur suivant le cas.

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

Qu'il s'agit d'un tableau dynamique et que de fait il peut être dimensionné en cours de procédure.
A+
kjin

 

[Goufra]

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

Bonsoir
merci infiniment
@+
JCR