formule excel 2003 Résolu

Question

Bonjour,
Voila pouvez m'aider je veux avoir une formule dans exel 2003 pour pouvoir trouver automatiquement une somme H.T. et la T.V.A en tappant la somme T.T.C (je m'explique exemple Somme T.T.C 16000 (je veux son H/T dans une cellule et la T.V.A dans une autre cellule automatique merci et bravo)

votre psychiatre · Answer

tout depend de ton taus de tva par exemple si tu es en 19.6 tu prend ton ttc et tu le divise par 1.196 ce qui te donne le HT apres il suffit de faire une soustraction ou de refaire une autre formaule

DJAMALOS · Answer

merci psych
je ne cherche pas cette formule (ce que je cherche c'est comment programmer la formule pour a chaque fois en tappant sur une Somme en T.T.C, je veux ke la Somme H.T auto et T.V.A 17% auto (H.T et T.V.A) insertion automatique

sapiens-sapiens · Answer

salut,

bon voilà un exemple de probramme VB Excel pour ce que tu veux réaliser (avec un message de controle en plus):

Sub tva()
Dim q As Single, pu As Single, ttva As Single, mht As Single, mtva As Single
Dim mttc As Single, i As Integer, r As Integer
i = 2
q = Sheets("feuil1").Cells(i, 1)
pu = Sheets("feuil1").Cells(i, 2)
ttva = Sheets("feuil1").Cells(i, 3)
mht = q * pu
mtva = ttva * mht
mttc = mht + mt
Sheets("feuil1").Cells(i, 4) = mht
Sheets("feuil1").Cells(i, 5) = mtva
Sheets("feuil1").Cells(i, 6) = mttc
r = MsgBox("Voulez-vous continuer?", vbYesNo, "Message de contrôle")
If r = 6 Then
Do
i = i + 1
Loop Until Sheets("feuil1").Cells(i, 1) = ""
Else
MsgBox "vous avez choisi non, le programme sera arrêté"
End If


End Sub




voilà tu n'as qu'à ajuster selon l'emplacement de tes cellules; cells (i,*)

espèrant que tu  sais comment faire pour créer le bouton "calculer" et tout le reste.

DJAMALOS · Answer

SVP, je veux une formule pour une somme par exemple de 3540,00 droit de timbre 1% (resultat dans la cellule avec chiffre rond merci pour les champions d'excel

BRAVO POUR LA REPONSE

Formule excel 2003

4 réponses

Newsletters