Calcul multiple TVA

Bonjour,

J'ai un pb pour calculer le montant de la TVA afin de la ranger dans une colonne par taux de TVA.

Je fais le calcul de la TVA avec un Prix TTC et un code de TVA, j'ai 3 codes ( 2= TVA 20%, 1=TVA 10%, 0= TVA 5,5% )

Dans ma feuille excel:

Colonne H = Prix TTC

Colonne I = Code TVA

Avec le code ci-dessous j'ai l'erreur suivante:

Erreur d'exécution '1004', erreur définie par l'application ou par l'objet.

Range("J" & l).FormulaR1C1 = "=IF(OR(RC[-1]=2,RC[-2]=""""),RC[-2]*20/(20+100),"""", (OR(RC[-1]=1,RC[-2]=""""),RC[-2]*10/(10+100),"""",(OR(RC[-1]=0,RC[-2]=""""),RC[-2]*5.5/(5.5+100),"""")))"

Et avec ce code:

Range("J" & l).FormulaR1C1 = "=IF(OR(RC[-1]=2,RC[-2]=0,RC[-2]=""""),RC[-2]*20/(20+100),"""")"

J'ai uniquement le calcul de la TVA code 2 Taux 20%

Avez vous une solution à me proposer ?

Merci

Marcel

Bonjour et bienvenue sur le forum

Si tu joignais ton fichier, au besoin rendu anonyme, il serait plus facile de suivre tes explications et de t'aider...

Bye !

Bonjour,

Utilise cette fonction personnalisée dans ta procédure.

Cdlt.

Public Function HT(TTC As Range, Code_TVA As Byte)
    If TTC = "" Then HT = 0: Exit Function
    Select Case Code_TVA
        Case 0
            HT = TTC / (1 + 0.055)
        Case 1
            HT = TTC / (1 + 0.1)
        Case 2
            HT = TTC / (1 + 0.2)
    End Select
End Function

Bonjour,

Ou encore :

Range("J" & l).FormulaR1C1 = "=IF(OR(RC[-1]=2,RC[-2]=""""),RC[-2]*20/(20+100),IF(OR(RC[-1]=1,RC[-2]=""""),RC[-2]*10/(10+100),IF(OR(RC[-1]=0,RC[-2]=""""),RC[-2]*5.5/(5.5+100),"""")))"

A+

Re,

Bonjour frangy,

Si on doit rester dans les formules de feuille ( à tester) :

Range("J" & l).FormulaR1C1 = "=RC[-2]/(1+CHOOSE(RC[-1]+1,0.055,0.1,0.2))"

Bonjour Jean-Eric,

Je plussoie.

On peut même l'étoffer avec un SIERREUR pour la cas où le code ne fait pas partie de la liste :

Range("J" & l).FormulaR1C1 = "=IFERROR(RC[-2]/(1+CHOOSE(RC[-1]+1,0.055,0.1,0.2)),"""")"

Toutefois, la formule que j'ai proposée à GRICOURT lui montrera d'où provenait l'erreur.

A+