Calcul de TVA dans une meme cellule

[docteur41]

Je recherche comment faire pour renter un montant '( x ) ' et qu' il ajoute la TVA

mais toujours dans la meme cellule exp: je rentre dans A1" 100 "
et je dois avoir dans A1 " 119.6 " je galere depuis plusieurs jours

Merci a tous

 

[nat54]

Re : Calcul de TVA dans une meme cellule

Bonjour,
Alors là si qq a une solution, je suis preneuse !
car franchement je ne vois pas comment cela est possible
à part peut-être en VBA


avec l'évènement quand la cellule change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Cousinhub]

Re : Calcul de TVA dans une meme cellule

Bonjour, et bon dimanche à tous

En mettant le code ci dessous dans le code de la feuille (Alt + F11)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plg As Range
Set plg = Range("A1:A5") '<==== Tu peux changer les cellules
Application.EnableEvents = False
If Not Intersect(Target, plg) Is Nothing _
And IsNumeric(Target) And Target.Value <> "" Then
Target.Value = Target.Value * 1.196
End If
Application.EnableEvents = True
End Sub

Dans l'exemple ci-dessus, je n'ai sélectionné que les cellules A1 à A5, mais tu peux mettre les cellules que tu veux, par exemple :

Set plg = Union(Range("A1:A5"), Range("C1:C5"))

 

[TheLio]

Re : Calcul de TVA dans une meme cellule

Salut l'forum,bhbh, nat &doc

Ton code est parfait, j'ai voulu le tester en le modifiant un poil pour extraire la TVA à savoir que le Calcul est à la base

/101.96%

mais l'éditeur VBèsque refuse le symbole

"%"

ce qui est logique en soi.
Donc quiz comment faire

A++
TheLio

 

[Cousinhub]

Re : Calcul de TVA dans une meme cellule

Bonjour thelio
je ne comprends pas ta formule :

Code:

/101.96%

Que cherches-tu à extraire?
Calculer le taux de TVA appliqué en connaissant le prix HT et TTC ou connaître le prix HT en connaissant le taux TVA et le prix TTC?
Bon dimanche

 

[TheLio]

Re : Calcul de TVA dans une meme cellule

Hello bhbh & l'forum
je cherche à calculer le prix hors taxe, la formule pour ce faire est EDIT : /119.6% je m'étais trompé

Merci
A++

 

[Cousinhub]

Re : Calcul de TVA dans une meme cellule

Re-,
moi je mettrais plutôt : prix TTC / 1.196
OK, vu ton Edit
c'est plus simple comme cela, non?

 

[TheLio]

Re : Calcul de TVA dans une meme cellule

là dessous je pourrais coller une collection de smiley tellement je suis c..
La prochaine fois je réfléchis un petit peu plus avant de poster
Merci
A++

 

[CB60]

Re : Calcul de TVA dans une meme cellule

Bonsoir
Avec un peu de "Excelabo et de developper", on peu mettre cela dans la feuille, qui permet d'avoir en commentaire la valeur de la cellule et la TVA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.UsedRange.ClearComments
If IsNumeric(Target) And Target.Value <> "" Then
Target.AddComment.Text Text:="Avec la TVA :" & Chr(10) & Round(Target.Value * 1.196, 2)
Target.Comment.Shape.TextFrame.AutoSize = True
End If
End Sub