Discussion :

[kevinsa]

Bonjour à tous,

Je mets en place un outil de suivi des investissements et dans ce cadre j'ai besoin de vos lumières

J'aimerai créer un tableau de variables (Tab_Cmde) en piochant dans le tableau Excel suivant :



Le tableau de variables est de dimension Tab_Cmde(5,9). Je souhaite qu'il soit composé comme suit :

Tab_Cmde(0,0) = A5 (numéro de commande 21243) ; Tab_Cmde(0,1) = C5 (Mois 6) ; Tab_Cmde(0,2) = H5 (Prix 450 k€) ; etc.

Pour cela j'ai créé le code qui suit (qui fonctionne bien mais qui est affreux !!!) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
''Colonne 0 = n° des commandes
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 0) = Cells(i, 1)
Next
 
j = -1
''Colonne 1 = Mois_1
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 1) = Cells(i, 3)
Next
 
j = -1
''Colonne 2 = Montant_1
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 2) = Cells(i, 8)
Next
 
j = -1
''Colonne 3 = Mois_2
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 3) = Cells(i, 10)
Next
 
j = -1
''Colonne 4 = Montant_2
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 4) = Cells(i, 15)
Next
 
j = -1
''Colonne 5 = Mois_3
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 5) = Cells(i, 17)
Next
 
j = -1
''Colonne 6 = Montant_3
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 6) = Cells(i, 22)
Next
 
j = -1
''Colonne 7 = Mois_4
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 7) = Cells(i, 24)
Next
 
j = -1
''Colonne 8 = Montant_4
For i = 5 To DernLigne
    j = j + 1
    Tab_Cmde(j, 8) = Cells(i, 29)
Next

Mon souci est que les cellules Cells(i, 1) ; Cells(i, 3) ; Cells(i, 8) ; ect. des boucles FOR ne s'incrémentent pas de 1 en 1 du coup je ne voyais pas comment faire autrement...


Avez vous une idée pour rendre ce code plus "compact" ?


D'avance je vous remercie


Kévin