Discussion :

[frihat mohamed]

bonjour
j'ai fait un code vba mais il ne tourne pas , j'ai fait des erreurs et je sais pas comment faire

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
62
63
 
 
a = Range("B4").Value
b = Range("B3").Value
d = Range("B7").Value
c = Range("B6").Value
l = Range("I22").Value * Range("E8").Value
While a < Range("H58").Value And d < Range("H59").Value
aa = Range("M52").Value * Range("I47").Value
ab = Range("M52").Value * Range("I48").Value
ac = Range("M52").Value * Range("I49").Value
ad = Range("M52").Value * Range("I50").Value
 
Range("B7").Value = Range("B7").Value + aa / 2
Range("B6").Value = Range("B6").Value + ab / 2
Range("B3").Value = Range("B3").Value + ad / 2
Range("B4").Value = (((l + ac / 2) / Range("E8").Value) / Range("N17").Value)
 
Range("l51").Value = i + 1 / 2
 
ba = Range("M52").Value * Range("I47").Value
bb = Range("M52").Value * Range("I48").Value
bc = Range("M52").Value * Range("I49").Value
bd = Range("M52").Value * Range("I50").Value
 
 
Range("B7").Value = Range("B7").Value + ba / 2
Range("B6").Value = Range("B6").Value + bb / 2
Range("B3").Value = Range("B3").Value + bd / 2
Range("B4").Value = (((l + bc / 2) / Range("E8").Value) / Range("N17").Value)
 
 
ca = Range("M52").Value * Range("I47").Value
cb = Range("M52").Value * Range("I48").Value
cc = Range("M52").Value * Range("I49").Value
cd = Range("M52").Value * Range("I50").Value
 
Range("B7").Value = Range("B7").Value + ca
Range("B6").Value = Range("B6").Value + cb
Range("B3").Value = Range("B3").Value + cd
Range("B4").Value = (((l + cc) / Range("E8").Value) / Range("N17").Value)
 
Range("l51").Value = i + 1
 
da = Range("M52").Value * Range("I47").Value
dbb = Range("M52").Value * Range("I48").Value
dc = Range("M52").Value * Range("I49").Value
dd = Range("M52").Value * Range("I50").Value
 
Range("B7").Value = d + 1 / 6 * (aa + 2 * ba + 2 * ca + da)
Range("B6").Value = c + 1 / 6 * (ab + 2 * bb + 2 * cb + dbb)
 
l = l + 1 / 6 * (ac + 2 * bc + 2 * cc + dc)
Range("B3").Value = b + 1 / 6 * (ad + 2 * bd + 2 * cd + dd)
Range("B4").Value = ((l / Range("E8").Value) / Range("N17").Value)
 
a = Range("B4").Value
b = Range("B3").Value
d = Range("B7").Value
c = Range("B6").Value
 
 
Wend

merci pour votre aide

[Marcandy]

Bonjour,

Pourrais tu être plus précis sur ton problème ?

Comment lances tu ton code ? Que se passe-t-il ? As tu un message d'erreur et si oui lequel ?