Discussion :

[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!

[Ania]

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

[Kokito]

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 ), tu veux faire un truc dans le genre :

Code :

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

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 :

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

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

[guismoman33]

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

[guismoman33]

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
 
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

[Ania]

essai deja avec cette correction

Code :

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

For i = 1 To nbrepasse

[guismoman33]

C'est bon sa marche merci beaucoup!!!

[guismoman33]

nonnnnnnnnnnnn pourquoi il ne veut pas me la mettre en D24

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
 
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

[guismoman33]

Enfaite c'est bon merki
affaire résolu