array excel vba

Version imprimable

14/11/2006, 11h37
guismoman33

array excel vba

La j'ai encore un problème. Car j'aimerai faire une boucle(j'ai trouver comment on peut faire) mais comment stocké en memoire toute les solution que ma boucle va développé pour à la fin les additionné et les mettre dans mon tableau excel!
14/11/2006, 11h39
Ania

Sois plus clair car la j'ai du mal a te suivre je comprend pas trop ce que tu veux faire

Citation:

Envoyé par guismoman33

La j'ai encore un problème. Car j'aimerai faire une boucle(j'ai trouver comment on peut faire) mais comment stocké en memoire toute les solution que ma boucle va développé pour à la fin les additionné et les mettre dans mon tableau excel!

Si j'ai bien compris (j'ai toujours rien compris à ton autre post avec tes cyclistes :mrgreen: ), tu veux faire un truc dans le genre :
Code:

1 2 3 4 5 6 7 8 9 Dim ValeurTotale as integer ValeurTotale = 0 For a = 1 to 300 [... ton code ...] ValeurTotale = ValeurTotale + TaValeuraAdditionné [...] Next a
Et pour la mettre dans ton tableau excel :
Code:

1 2 3 4 Workbooks(1).Sheets(1).Range("A1").value = ValeurTotale ' le (1) c'est pour le classeur et la feuille séléctionné ' si tu préfères tu peux mettre le nom de ton fichier et le nom de ta feuille
Et voilà, si c'est pas ça j'ai rien compris :mrgreen: :mouarf:

14/11/2006, 11h58
guismoman33

C'est a peu pres sa merci mais je vais tester avant de mettre résolu oki??

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub CommandButton2_Click()
 
    Dim i As Integer
    Dim nbrepasse As Integer
    Dim maxdia As Integer
    Dim mindia As Integer
    Dim ar As Integer
    Dim au As Integer
    Dim x As Single
    Dim l As Single
    Dim z As Single
    Dim pp As Single
    Dim vc As Single
    Dim gu As Single
    Dim nbreu As Integer
    Dim rm As Integer
    Dim total As Single
    Dim var As Single
 
 
 
    nbrepasse = Cells(22, 4).Value
    pp = Cells(15, 4).Value
    maxdia = Cells(19, 4).Value
    mindia = Cells(20, 4).Value
    ar = Cells(8, 4).Value
    au = Cells(14, 4).Value
    x = Cells(9, 4).Value
    l = Cells(21, 4).Value
    z = Cells(10, 4).Value
    pp = Cells(15, 4).Value
    vc = Cells(11, 4).Value
    gu = Cells(16, 4).Value
    nbreu = Cells(19, 4).Value
    rm = Cells(12, 4).Value
 
 
 
    For i = 1 To i = nbrepasse
    var = (((2 * x) + (2 * z) + l) + ((i - 1) * 2 * pp) * ar) + (((vc * 1000) / (3.14 * (maxdia - (i * pp)))) * ((l + gu) / au))
    total = total + var
    Next i
    Workbooks(1).Sheets(5).Range("A1").Value = total
 
End Sub

J'aurai telment voulu dire mon beau code regardez mais pas possible il ne marche pas il m'affiche 0

14/11/2006, 13h07
Ania

essai deja avec cette correction

Code:

For i = 1 To nbrepasse
14/11/2006, 14h11
guismoman33

C'est bon sa marche merci beaucoup!!!

nonnnnnnnnnnnn pourquoi il ne veut pas me la mettre en D24

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub CommandButton2_Click()
 
    Dim i As Integer
    Dim nbrepasse As Integer
    Dim maxdia As Integer
    Dim mindia As Integer
    Dim ar As Integer
    Dim au As Integer
    Dim x As Single
    Dim l As Single
    Dim z As Single
    Dim pp As Single
    Dim vc As Single
    Dim gu As Single
    Dim nbreu As Integer
    Dim rm As Integer
    Dim total As Single
    Dim var As Single
 
 
 
    nbrepasse = Cells(22, 4).Value
    pp = Cells(15, 4).Value
    maxdia = Cells(19, 4).Value
    mindia = Cells(20, 4).Value
    ar = Cells(8, 4).Value
    au = Cells(14, 4).Value
    x = Cells(9, 4).Value
    l = Cells(21, 4).Value
    z = Cells(10, 4).Value
    vc = Cells(11, 4).Value
    gu = Cells(16, 4).Value
    nbreu = Cells(19, 4).Value
    rm = Cells(12, 4).Value
 
 
 
    For i = 1 To nbrepasse
    var = (((2 * x) + (2 * z) + l) + ((i - 1) * 2 * pp) * ar) + (((vc * 1000) / (3.14 * (maxdia - (i * pp)))) * ((l + gu) / au))
    total = total + var
    Next i
    Workbooks(1).Sheets(5).Range("D24").Value = total
End Sub

14/11/2006, 14h20
guismoman33

Enfaite c'est bon merki
affaire résolu