Calculer en VBA de prix en HT

[maval]

Bonsoir,

J'ai sur une feuille excel un tableau ou je rentre le prix en TTC dans la colonne "M32:M39" et j'aimerai avoir la correspondance en HT dans les colonnes "N32:N39" pour les somme en 19.6% et les colonnes "O32:O39" pour les somme en 7%.

Ci-joint mon exemple
Je vous remercie d'avance

Cordialement

Maval

 

[DoubleZero]

Re : Calculer en VBA de prix en HT

Bonjour, maval, le Forum,

Un petit bout de code à tester :

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 🙂

 

[maval]

Re : Calculer en VBA de prix en HT

Bonjour Doublezero,

Je te remercie beaucoup et te souhaite une soirée

Max

 

[Regueiro]

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

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

 

[maval]

Re : Calculer en VBA de prix en HT

Bonjour Regueiro,

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

Max