Verification de formule

frederic R -  
 frederic R -
Bonjour à tous!
j'aurai volu que l'un d'entre vous corrige ma formule de programme sous VB: on me dit "erreur de compilation, erreur de syntaxe " sur la ligne du Range"j287"



Sub tomtom()
'
' tomtom Macro
' Macro enregistrée le 19/04/2005 par rieusset
'
Dim val1, val2, val3, val4
val1 = Range("A291").Value
val2 = Range("A292").Value
val3 = Range("B291").Value
val4 = Range("B292").Value
Range("I287").Formula = "=SUM(" & val1 & ":" & val2 & ")"
Range("J287").Formula = "=SUMPRODUCT(" & val1 & ":" & val2 & ")*(" & val3 & ":" & val4 & ")/"I287""
End Sub
A voir également:

5 réponses

tompols Messages postés 1325 Statut Contributeur 435
 
(Re-)Salut,

Quelle formule veux-tu obtenir en J287 ?

A+
0
frederic R
 
en J287 je voudrai obtenir (I29:I258)*(J29:J258)/I287
sachant que I287 correspond au résultat de la procédure que tu m'as donné tout à l'heure (Somme(I29:I258))
0
tompols Messages postés 1325 Statut Contributeur 435
 
Re,

Sub tomtom()
'
' tomtom Macro
' Macro enregistrée le 19/04/2005 par rieusset
'
Dim val1, val2, val3, val4
val1 = Range("A291").Value
val2 = Range("A292").Value
val3 = Range("B291").Value
val4 = Range("B292").Value
Range("I287").Formula = "=SUM(" & val1 & ":" & val2 & ")"
Range("J287").Formula = "=SUMPRODUCT((" & val1 & ":" & val2 & ")*(" & val3 & ":" & val4 & "))/I287"
End Sub


Est-ce bien ce que tu voulais ?
Pour info tu avais un pb de guillemets et j'ai rajouté des parentheses pour ta formule (=SOMMEPROD((A1:A5)*(B1:B5))/I287)

A+
0
frederic R
 
merci tompols ct exactement ça!
merci pour ton aide !)
0
tompols Messages postés 1325 Statut Contributeur 435
 
De rien :-)

A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
frederic R
 
re...
tompols pourrait tu me réecrire la procédure que tu as écris dans ton dernier message en mettant touten coordonnées relatives afin que je puisse me servir plusieurs fois de la procédure??
0