variable dans une variable tableau

Version imprimable

Bonjour, peut-on définir une variable tableau à partir d'une variable ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim som(der) As Variant 'creer une var tableau pour le nombre de box potentielles
 
Erase som
 
Dim h As Integer
Dim sup As Long
h = 0
 
'remplir le tableau avec les sommes
    For colonne = 14 To der                'colonne par box
    sup = 0
        For lignesdates = debut To fin     'lignes dates
            sup = sup + Cells(lignesdates, colonne)
        Next lignesdates
 
        If sup <> 0 Then
        som(h) = sup
        h = h + 1
        Else
        End If
 
        Next
 
 
'on obtient le tableau rempli sans valeur nulle

Je vous remercie !

21/03/2019, 14h55
eriiic
Bonjour,

il faut le faire en 2 temps, et tant qu'à faire type-le correctement :
Code:

1 2 Dim som() As Long ' ou As Double si décimal Redim som(der)
Et tu as le droit de faire un retour ici : https://www.developpez.net/forums/d1...ment-capacite/
eric

Merci !
j'ai bien mis en long résultat, cependant, lorsque je lance ma boucle, on me dit que "l'indice n'appartient pas à la sélection" je ne sais pas si ça parle de ma variable tableau ? ou de mon h ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim som() As Long
 
der = Range("N9").End(xlToRight).Column
 
 
ReDim som(der) As Long 'creer une var tableau pour le nombre de box potentielles
 
Erase som
 
Dim h As Integer
Dim sup As Long
h = 0
 
'remplir le tableau avec les sommes
    For colonne = 14 To der                'colonne par box
    sup = 0
        For lignesdates = debut To fin     'lignes dates
            sup = sup + Cells(lignesdates, colonne)
        Next lignesdates
 
        If sup <> 0 Then
        som(h) = sup
        h = h + 1
        Else
        End If
 
        Next

21/03/2019, 17h38
eriiic

Je ne vois pas pourquoi.
Par contre je te vois utiliser 2 variables non initialisées : debut To fin

Quand tu mets un code, l'indenter et utiliser la balise code (#). Merci pour nos yeux.
eric