Discussion :

[amel95140]

bonjour!
je voudrais isérer une formule excel dans VB
j'ai cette formule dans la cellule b7

Code :

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

1
2
 
sum(Change!L4;L16)/B4*100

lorsque je fais cela ca ne marche pa

Code :

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

1
2
 
Range("b7").Value = sum(Change!L4;L16)/B4*100

que dois je faire!

merci

[SfJ5Rpw8]

voila :

Code :

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

Range("b7").Formula="=sum(Change!L4:L16)/B4*100"

[edit] oups ... j'avais oublié Formula...

[leroissejp]

Bonjour,
Tu ne peux pas additionner une plage de cellules de cette façon.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
Dim plageTest, cel, total
plageTest = "L4:L16"
For Each cel In Range(plageTest)
    If cel.Value <> 0 Then
        total = total + cel.Value
    End If
Next cel
Range("B7").Value = (total / Range("B4")) * 100
End Sub

jpleroisse