Calcul en vba

JNP

XLDnaute Barbatruc

• 10 Décembre 2009

• #2

Re : Calcul en vba

Bonsoir Cj Welch ,
Si j'ai suivi, ce devrait être

Code:

.Range("H" & lig + 2).Formula = "=If(b3=0,0,Round(Commande!" & [B3].Address & "*30/100,2))"

et

Code:

.Range("N" & lig + 2).Formula = "=Round(F" & lig + 2 & ("-M" & lig + 2),2)

Bon courage

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 10 Décembre 2009

• #3

Re : Calcul en vba

bonsoir jnp

merci de ton aide.

La 1ère formule fonctionne a moitier.
En effet, sur les lignes suivantes on doit prendre les valeurs de ces lignes (inscrite en colonne B).

Quand a la seconde, il y a un méssage d'erreur "Erreur de compilation : attente fin d'instruction".

A+

 

Vote positif 0 Vote négatif

C

cj welch

XLDnaute Occasionnel

• 17 Décembre 2009

• #4

Re : Calcul en vba

Salut JNP,

Pourrais tu remettre ton précedent post sur le sujet car il a été supprimé merci.
Cj

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 17 Décembre 2009

• #5

Re : Calcul en vba

Re ,
Tu crois que je me souviens de ce que j'ai écrit une semaine avant ???
Ça devait être du style

Code:

.Range("H" & lig + 2).Formula = "=If(b[B][COLOR=red]" & I & "[/COLOR][/B]=0,0,Round(Commande!" & [B3].Address & "*30/100,2))"

en partant de I =3 et en ajoutant 1 au fur et à mesure... J'avais pas du tenir compte de [B3].Address mais ça devrait donner "$B$" & I.
Pour le 2ème, il me semble qu'il y avait une erreur de syntaxe, et que la bonne formule était

Code:

.Range("N" & lig + 2).Formula = "=Round(F" & lig + 2 & "-M" & lig + 2 & ",2)"

Bon courage

 

Vote positif 0 Vote négatif