L'on peut imaginer la même chose avec une TVA de 5,5%
Mais il y aurait une différence entres les valeurs de la TVA et les valeurs
TTC
La question est celle-ci : Peut-on, par le différentiel entre le HT et le
TTC, définir le taux de TVA et créer une condition dans une macro, pour
positionner la valeur de TVA dans la colonne correspondant a son taux
En un mot je transfert le HT + le TTC et suivant le taux de TVA sa valeur se
positionne toute seule dans la bonne colonne
Certainement un mouton à cinq pattes......Mais peut-être que....?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour, Avec le montant HT en A1 et le TTC en C1 et le résultat en H1 ou H2 Ceci pourrait convenir: '-------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = x & " %" [H2] = "" ElseIf x = 5.5 Then [H2] = x & " %" [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- Salutations JJ
"DC" a écrit dans le message de news:433a6b6b$0$27422$
Bonjour à tous,
Voila..!............( Excel 2000 )
Valeur HT de 1000 TVA 19.6% 196 TTC 1196
L'on peut imaginer la même chose avec une TVA de 5,5%
Mais il y aurait une différence entres les valeurs de la TVA et les valeurs
TTC
La question est celle-ci : Peut-on, par le différentiel entre le HT et le TTC, définir le taux de TVA et créer une condition dans une macro, pour positionner la valeur de TVA dans la colonne correspondant a son taux
En un mot je transfert le HT + le TTC et suivant le taux de TVA sa valeur se
positionne toute seule dans la bonne colonne
Certainement un mouton à cinq pattes......Mais peut-être que....?
Bonjour,
Avec le montant HT en A1 et le TTC en C1 et le résultat en H1 ou H2
Ceci pourrait convenir:
'--------
Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = x & " %"
[H2] = ""
ElseIf x = 5.5 Then
[H2] = x & " %"
[H1] = ""
Else
[H2] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
'-----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:433a6b6b$0$27422$8fcfb975@news.wanadoo.fr...
Bonjour à tous,
Voila..!............( Excel 2000 )
Valeur HT de 1000
TVA 19.6% 196
TTC 1196
L'on peut imaginer la même chose avec une TVA de 5,5%
Mais il y aurait une différence entres les valeurs de la TVA et les
valeurs
TTC
La question est celle-ci : Peut-on, par le différentiel entre le HT et le
TTC, définir le taux de TVA et créer une condition dans une macro, pour
positionner la valeur de TVA dans la colonne correspondant a son taux
En un mot je transfert le HT + le TTC et suivant le taux de TVA sa valeur
se
positionne toute seule dans la bonne colonne
Certainement un mouton à cinq pattes......Mais peut-être que....?
Bonjour, Avec le montant HT en A1 et le TTC en C1 et le résultat en H1 ou H2 Ceci pourrait convenir: '-------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = x & " %" [H2] = "" ElseIf x = 5.5 Then [H2] = x & " %" [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- Salutations JJ
"DC" a écrit dans le message de news:433a6b6b$0$27422$
Bonjour à tous,
Voila..!............( Excel 2000 )
Valeur HT de 1000 TVA 19.6% 196 TTC 1196
L'on peut imaginer la même chose avec une TVA de 5,5%
Mais il y aurait une différence entres les valeurs de la TVA et les valeurs
TTC
La question est celle-ci : Peut-on, par le différentiel entre le HT et le TTC, définir le taux de TVA et créer une condition dans une macro, pour positionner la valeur de TVA dans la colonne correspondant a son taux
En un mot je transfert le HT + le TTC et suivant le taux de TVA sa valeur se
positionne toute seule dans la bonne colonne
Certainement un mouton à cinq pattes......Mais peut-être que....?
pour ce que peux comprendre de la question, il ne me semble pas nécessaire de faire appel à uune macro pour celà sauf si le nombre de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule =SI(A10/A9=1,196;A10-A9;"") et en C9 la formule =SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le chiffre des taxes sera inscrit en cellule B10. Si la division renvoie une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien d'inscrit en B9 ni enC9
A+
bonjour,
pour ce que peux comprendre de la question, il ne me semble pas
nécessaire de faire appel à uune macro pour celà sauf si le nombre
de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule
=SI(A10/A9=1,196;A10-A9;"") et en C9 la formule
=SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en
A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes
sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le
chiffre des taxes sera inscrit en cellule B10. Si la division renvoie
une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien
d'inscrit en B9 ni enC9
pour ce que peux comprendre de la question, il ne me semble pas nécessaire de faire appel à uune macro pour celà sauf si le nombre de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule =SI(A10/A9=1,196;A10-A9;"") et en C9 la formule =SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le chiffre des taxes sera inscrit en cellule B10. Si la division renvoie une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien d'inscrit en B9 ni enC9
A+
DC
Bonjour à tous........Bonjour à Jacky et anonymousA,
Très bien Jacky, ton code fonctionne à merveille,
Seulement dans H1 et H2 il affiche 19,6% ou 5,5%
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si 19,60% ou H2 si 5,5%
Quand a toi anonymousA, la macro est néscessaire, car une macro mère fait déja le transfert d'un fichier à un autre, et celle-ci est pour mettre à la suite et solutionner le choix de TVA dans le fichier cible.
Salutation!............au plaisir de vous relire..........DC
"anonymousA" a écrit dans le message de news:
bonjour,
pour ce que peux comprendre de la question, il ne me semble pas nécessaire de faire appel à uune macro pour celà sauf si le nombre de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule =SI(A10/A9=1,196;A10-A9;"") et en C9 la formule =SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le chiffre des taxes sera inscrit en cellule B10. Si la division renvoie une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien d'inscrit en B9 ni enC9
A+
Bonjour à tous........Bonjour à Jacky et anonymousA,
Très bien Jacky, ton code fonctionne à merveille,
Seulement dans H1 et H2 il affiche 19,6% ou 5,5%
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si
19,60% ou H2 si 5,5%
Quand a toi anonymousA, la macro est néscessaire, car une macro mère fait
déja le transfert d'un fichier à un autre, et celle-ci est pour mettre à la
suite et solutionner le choix de TVA dans le fichier cible.
Salutation!............au plaisir de vous relire..........DC
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1127908647.053595.34990@g43g2000cwa.googlegroups.com...
bonjour,
pour ce que peux comprendre de la question, il ne me semble pas
nécessaire de faire appel à uune macro pour celà sauf si le nombre
de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule
=SI(A10/A9=1,196;A10-A9;"") et en C9 la formule
=SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en
A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes
sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le
chiffre des taxes sera inscrit en cellule B10. Si la division renvoie
une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien
d'inscrit en B9 ni enC9
Bonjour à tous........Bonjour à Jacky et anonymousA,
Très bien Jacky, ton code fonctionne à merveille,
Seulement dans H1 et H2 il affiche 19,6% ou 5,5%
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si 19,60% ou H2 si 5,5%
Quand a toi anonymousA, la macro est néscessaire, car une macro mère fait déja le transfert d'un fichier à un autre, et celle-ci est pour mettre à la suite et solutionner le choix de TVA dans le fichier cible.
Salutation!............au plaisir de vous relire..........DC
"anonymousA" a écrit dans le message de news:
bonjour,
pour ce que peux comprendre de la question, il ne me semble pas nécessaire de faire appel à uune macro pour celà sauf si le nombre de TVA possibles est très important (mais j'en doute). Ici, un exemple
en A10, le montant TTC ,en A9 le montant HT, en B9 la formule =SI(A10/A9=1,196;A10-A9;"") et en C9 la formule =SI(A10/A9=1,055;A10-A9;""). Dans ce cas, selon les nombres rentrés en A10 et A9, si le taux de TVA est de 19.6% alors le chiffre des taxes sera inscrit en cellule B9 et si si le taux de TVA est de 5.5% alors le chiffre des taxes sera inscrit en cellule B10. Si la division renvoie une valeur différente de 1.196 ou de 1.055 alors il n'y aura rien d'inscrit en B9 ni enC9
A+
Jacky
Re...
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non '------------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = [c1] - [a1] [H2] = "" ElseIf x = 5.5 Then [H2] = [c1] - [a1] [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- JJ
Re...
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1
si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse
m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non
'-------------
Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[H2] = ""
ElseIf x = 5.5 Then
[H2] = [c1] - [a1]
[H1] = ""
Else
[H2] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
'-----------
JJ
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non '------------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = [c1] - [a1] [H2] = "" ElseIf x = 5.5 Then [H2] = [c1] - [a1] [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- JJ
DC
Bonjour à tous............Bonjour Jacky,
Merci Jacky,.....çà fontionne à merveille
Il faut que tu saches que je ne suis en rien un initié, je pense ne pas être trop bète, mais çà reste encore à prouver,
j'avais à peut près situer la modification, mais je suis incapable d'écrire un code, sans faire d'erreur de sintaxe ou autre erreur
Je patine toujours dans la semoule pour modifier l'écriture des codes, aussi il ne faut pas m'en vouloir,
Salutations!........encore un grand Merci!..........DC
"Jacky" a écrit dans le message de news:
Re...
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non '------------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = [c1] - [a1] [H2] = "" ElseIf x = 5.5 Then [H2] = [c1] - [a1] [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- JJ
Bonjour à tous............Bonjour Jacky,
Merci Jacky,.....çà fontionne à merveille
Il faut que tu saches que je ne suis en rien un initié, je pense ne pas être
trop bète, mais çà reste encore à prouver,
j'avais à peut près situer la modification, mais je suis incapable d'écrire
un code, sans faire d'erreur de sintaxe ou autre erreur
Je patine toujours dans la semoule pour modifier l'écriture des codes, aussi
il ne faut pas m'en vouloir,
Salutations!........encore un grand Merci!..........DC
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
ugboFRGxFHA.3256@TK2MSFTNGP09.phx.gbl...
Re...
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1
si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse
m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non
'-------------
Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[H2] = ""
ElseIf x = 5.5 Then
[H2] = [c1] - [a1]
[H1] = ""
Else
[H2] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
'-----------
JJ
Il faut que tu saches que je ne suis en rien un initié, je pense ne pas être trop bète, mais çà reste encore à prouver,
j'avais à peut près situer la modification, mais je suis incapable d'écrire un code, sans faire d'erreur de sintaxe ou autre erreur
Je patine toujours dans la semoule pour modifier l'écriture des codes, aussi il ne faut pas m'en vouloir,
Salutations!........encore un grand Merci!..........DC
"Jacky" a écrit dans le message de news:
Re...
Or, ce que j'aimerais, c'est afficher la valeur du calcul de la TVA en H1 si
19,60% ou H2 si 5,5%
Ben, connaissant la valeur TTC (C1)et la valeur HT (A1), ma maîtresse m'avait appris(et il y a longtemps) que TTC-HT=Montant de la TVA......,non '------------- Dim x As Single x = (Range("C1") / Range("A1") - 1) * 100 If x = 19.6 Then [H1] = [c1] - [a1] [H2] = "" ElseIf x = 5.5 Then [H2] = [c1] - [a1] [H1] = "" Else [H2] = "" [H1] = "" MsgBox "TVA de " & x & "% inconnue" End If '----------- JJ
