Formule excel 2003

Résolu/Fermé
Signaler
Messages postés
311
Date d'inscription
vendredi 9 mai 2008
Statut
Membre
Dernière intervention
21 avril 2020
-
Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016
-
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)

4 réponses

Messages postés
1398
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
5 mars 2019
259
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
Messages postés
311
Date d'inscription
vendredi 9 mai 2008
Statut
Membre
Dernière intervention
21 avril 2020
3
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
Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016
25
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.
Messages postés
311
Date d'inscription
vendredi 9 mai 2008
Statut
Membre
Dernière intervention
21 avril 2020
3
Merci et Mille Merci Champion
le probeleme est la ! je ne sais comment faire pour créer le bouton "calculer" et tout le reste. j'attends votre aide, et merci pour tous
djamalos
Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016
25 >
Messages postés
311
Date d'inscription
vendredi 9 mai 2008
Statut
Membre
Dernière intervention
21 avril 2020

bon laisse moi ton adresse mail en MP, je vais t'envoyer quelques trucs en P-J qui peuvent te servir dés que j'ai un peu de temps pour ça.

Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016
25 >
Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016

C'est bon je t'ai envoyé les truc, j'éspère que ça t'aidera
donner-moi télécharger exel et word
Messages postés
1860
Date d'inscription
mardi 25 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2016
25 > farid
Hein?!
Messages postés
311
Date d'inscription
vendredi 9 mai 2008
Statut
Membre
Dernière intervention
21 avril 2020
3
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
Messages postés
1664
Date d'inscription
mardi 22 janvier 2008
Statut
Membre
Dernière intervention
30 avril 2012
514
Re,

Voir.