Discussion :

[DRAKAINA]

Bonjour,

Toute nouvelle sur ce forum, je fais de la petite vba pour mon plaisir et aujourd'hui je suis sur un dossier un peu trop compliquée pour moi.
D'avance merci pour votre aide !

Je dois créer un fichier pour faire des simulations.
Mon soucis est que mon calcul est inversé et se calcule sur des variables.

Voici mon calcul de base simple :
PRIME INITIALE = 10 000€
la TVA (20%) se calcul =1 666.67€
déduction des frais mensuel = 110 € HT ou 182 € exemple ici avec les 110€ mais il faudra donc avoir une possibilité de changer
TVA (20%) sur les frais =22 €
Total 1 = 10000-1666.67-110-22 =8201.33€
Calcul QP = 1% du total = 82.01€
PRIME TOTALE = Total 1- Calcul QP = 8119.32

Mon souhait pour mon simulateur est de pouvoir partir de la PRIME TOTALE pour obtenir le montant de la PRIME INITIALE

En attente de vos solutions, enfin j'espère :-)
Audrey

[BENNASR]

bonjour
n'est ps claire au moins pour moi
illustrez un exemple claire pour espérer de l'aide
base 10000 et TVA de 20% = 1666 comment ça ??

[pijaku]

Bonjour,

D'accord avec BENNASR (), votre calcul n'est pas juste...

Sinon, quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub appel()
Dim resultat As Single
    resultat = AjouteQP(7789.32)
    resultat = AjouteFrais(resultat, 1)
    resultat = AjoutTVA(resultat)
    MsgBox resultat
End Sub
 
Function AjouteQP(PrimeTotale As Single) As Single
    AjouteQP = PrimeTotale * 1 / 0.99
End Function
 
Function AjouteFrais(Intermediaire As Single, lType As Long) As Single
'lType = 1 ==> Frais = 110 €
'lType = 2 ==> Frais = 182 €
    Select Case lType
        Case 1: AjouteFrais = Intermediaire + 110 + 22
        Case 2: AjouteFrais = Intermediaire + 182 + 36.4
        Case Else: AjouteFrais = Intermediaire
    End Select
End Function
 
Function AjoutTVA(Intermediaire2 As Single) As Single
    AjoutTVA = Intermediaire2 * 1.2
End Function

[DRAKAINA]

bonjour
n'est ps claire au moins pour moi
illustrez un exemple claire pour espérer de l'aide
base 10000 et TVA de 20% = 1666 comment ça ??

BONJOUR
Le calcul est bon sauf que c'est dont 1666.67€ de TVA
Désolée

10000/1.2 = 8333.33
10000-8333.33 = 1666.67

[pijaku]

Du coup, j'ai modifié mon code...

[DRAKAINA]

Du coup, j'ai modifié mon code...

ok je regarde cela ce week-end, mais déjà merci pour cette réponse rapide.
Je vous tiens au courant
Bonne soirée

[ARTURO83]

Bonjour,

Autre solution avec un tableau Excel, possibilité de changer les valeurs ou les pourcentages (cellules bleues)
Pièce jointe 575711

le fichier
Pièce jointe 575712

Cdlt

[Pierre Fauconnier]

Salut.

Faut p'têtre faire un effort de compréhension sur la solution qui t'est donnée et arriver à l'adapter à ta situation.

Ou alors, changer de métier et aller planter des choux, ça demande moins de calculs (mais tout autant de rigueur, à mon avis) ...

[Pierre Fauconnier]

Ce qui me sidère dans ce truc, c'est que ça n'a strictement rien à voir avec Excel. C'est du simple calcul arithmétique. Excel, c'est un outil qui automatise le calcul et le rend plus rapide, rien de plus. Ca ne peut que permettre d'automatiser et de pérenniser un raisonnement qui est acquis en amont.

Je suis sur le cul de voir que l'on doit réfléchir "à la place des gens"...

[DRAKAINA]

Ce qui me sidère dans ce truc, c'est que ça n'a strictement rien à voir avec Excel. C'est du simple calcul arithmétique. Excel, c'est un outil qui automatise le calcul et le rend plus rapide, rien de plus. Ca ne peut que permettre d'automatiser et de pérenniser un raisonnement qui est acquis en amont.

Je suis sur le cul de voir que l'on doit réfléchir "à la place des gens"...

Moi je suis sur le cul de voir que des personnes puissent avoir des réponses aussi blaissantes ! Je crois que les forums sont là pour aider les personnes ! Si vous n'avez pas envie d'aider ou de réfléchir pour les autres c'est votre choix ! Mais alors que faites vous là !
Je souhaite pour vous que vous sachiez tout sur tout et que jamais vous n'ayez besoin d'aide !!
Je n'ai peut-être pas mis dans la bonne discussion ma demande autant pour moi !

Sur ce je remercie les personnes qui on choisi de m'aider ! Je dis M... aux autres et je pars de ce forum !

Cordialement

[Pierre Fauconnier]

Salut.

Perso, je ne voulais pas être blessant et ne suis pas responsable de la façon dont vous appréciez ce que j'écris. J'ai simplement dit que votre problème n'a au départ rien à voir avec Excel, qui n'est qu'un outil. Votre problème est un simple problème de calcul "à rebours", Excel n'étant là que pour réaliser les calculs (divisions et trucs "de base") à votre place.

L'exemple fourni en première réponse aurait normalement dû vous permettre de résoudre par vous-même la dernière question que vous avez mentionnée. Faites le calcul à la main et essayez de comprendre comment le transférer en Exel. La réponse fournie par Arturo devrait vous y aider.

Je ne suis pas le seul à dire que ce n'est pas un problème Exel:

Ce n'est pas un problème Excel mais un problème mathématique.[...]

Quant à vous répondre sur le fait du "que faites-vous là": Regardez les milliers de réponses que j'ai fournies depuis 17 ans sur ce forum (avant, j'ai été pendant plusieurs années sur un autre) et mes quelques tutos et billets de blog. Cela devrait vous permettre de voir que j'aide les gens et réponds à leurs questions, pour autant qu'ils s'aident eux-mêmes et qu'ils fassent preuve d'un minimum d'efforts à comprendre les solutions qui leur sont proposées...

Bonne continuation, ici ou ailleurs

[Pierre Fauconnier]

Halleluiah

Autant de messages pour une question qui, bien formulée, en demande 3: La question, la réponse, le merci


Et quand je disais "Ton calcul ne correspond pas...", ce n'était pas une attaque perso, Arturo, j'espère que tu l'auras compris