Calculer en VBA de prix en HT

DoubleZero

XLDnaute Barbatruc

• 6 Mars 2013

• #2

Re : Calculer en VBA de prix en HT

Bonjour, maval, le Forum,

Un petit bout de code à tester :

Code:

Sub TVA_calculer()
Range("n32:n" & Range("m65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-1]/1.196,"""")"
Range("o32:o" & Range("m65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-2]<>"""",RC[-2]/1.07,"""")"
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Mars 2013

• #3

Re : Calculer en VBA de prix en HT

Bonjour Doublezero,

Je te remercie beaucoup et te souhaite une soirée

Max

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 6 Mars 2013

• #4

Re : Calculer en VBA de prix en HT

Bonsoir à Tous
Une autre formule :

Sub TVA_calculer2()
Range("n32:n" & Range("m65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-1]<>"""",RC[-1]/(1+T.V.A.1),"""")"
Range("o32😱" & Range("m65536").End(xlUp).Row).FormulaR1C1 = "=IF(RC[-2]<>"""",RC[-2]/(1+T.V.A.2),"""")"
End Sub

Cliquez pour agrandir...

Avec cellule nommée
Ainsi si la TVA change en France tu n'a pas besoin de modifier le code
A+

 

Pièces jointes

• MavalTVA.xlsm

  25.5 KB · Affichages: 63

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Mars 2013

• #5

Re : Calculer en VBA de prix en HT

Bonjour Regueiro,

Je te remercie beaucoup et te souhaite une bonne journée

Max

 

Vote positif 0 Vote négatif