| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#IpVdW4GKHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
ecJfBE3GKHA.3736@TK2MSFTNGP04.phx.gbl...
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#IpVdW4GKHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
ecJfBE3GKHA.3736@TK2MSFTNGP04.phx.gbl...
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
O1a#
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" a écrit dans le message de
news:| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
O1a#v3BHKHA.4608@TK2MSFTNGP02.phx.gbl...
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:urOLDw4GKHA.4552@TK2MSFTNGP05.phx.gbl...
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#IpVdW4GKHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
ecJfBE3GKHA.3736@TK2MSFTNGP04.phx.gbl...
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
O1a#
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" a écrit dans le message de
news:| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
O1a#
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" a écrit dans le message de
news:| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
O1a#v3BHKHA.4608@TK2MSFTNGP02.phx.gbl...
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:urOLDw4GKHA.4552@TK2MSFTNGP05.phx.gbl...
| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#IpVdW4GKHA.1252@TK2MSFTNGP04.phx.gbl...
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
ecJfBE3GKHA.3736@TK2MSFTNGP04.phx.gbl...
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Péhemme,
Tu as parfaitement raison, il y a une petite erreur.
(il n'y a même pas moyen de sauver quelques sous...)
;-))
Merci de l'avoir souligné.
Au lieu de ceci :
.Tvq = (M + LaTps) * LaTVQ
On devrait lire :
.Tvq = (M + .Tps) * LaTVQ
Et la fonction devient :
'------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + .Tps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
O1a#
Pardon, je m'immisce,
Au delà de la réalité fiscale, je ne comprends pas :
.Tvq = (M + LaTps) * LaTVQ dans Function Les_taxes(M As Currency)
Pour ma bonne compréhension, à quoi sert d'ajouter le taux (et non pas son
montant) de la Tps pour le calcul de la Tvq ?
Bien amicalement
Michel (futur expert fiscal au Québec)
"MichDenis" a écrit dans le message de
news:| " Currency" avec l'enregistreur de macros..
| Mais n'était-ce pas Format ... dans les versions antérieures ?
Le type "Currency" existe depuis longtemps et continue d'exister.
Il conserve cependant 4 décimales après le point.
Cette section serait mieux comme ceci :
'---------------------------------------
Function Les_taxes(M As Currency)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + .Tps + .Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'---------------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" <garnote3@videotron.ca> a écrit dans le message de groupe de
discussion :
ecJfBE3GKHA.3736@TK2MSFTNGP04.phx.gbl...
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge
Bonjour Garnote,
Ne fais pas rire de nous avec ton approche toute simple
de calculer nos taxes. Respecte nos fonctionnaires !
;-))
Copie ce qui suit dans un module standard
'Dans le haut du classeur :
Const LaTps = 0.05
Const LaTVQ = 0.075
Type Taxes_au_Québec
Montant As Currency
Tvq As Currency
Tps As Currency
Total As Currency
End Type
'--------------------------
Function Les_taxes(M As Variant)
Dim Nos_Taxes As Taxes_au_Québec
With Nos_Taxes
.Montant = M
.Tps = M * LaTps
.Tvq = (M + LaTps) * LaTVQ
.Total = M + Nos_Taxes.Tps + Nos_Taxes.Tvq
Les_taxes = Replace(.Montant & " " & _
.Tps & " " & .Tvq & " " & .Total, ",", ".")
End With
End Function
'--------------------------
Sub Calcul_des_Taxes(M As Currency)
Dim Arr As Variant
Dim Arr1 As Variant
Arr = Array("Montant", "TPS", "TVQ", "Total")
Arr1 = Split(Les_taxes(M), " ")
With ActiveCell
.Resize(UBound(Arr) + 1) = Application.Transpose(Arr)
With .Offset(, 1).Resize(UBound(Arr1) + 1)
.NumberFormat = "# ##0.00 $"
.Value = Application.Transpose(Arr1)
End With
End With
End Sub
'--------------------------
Sub test()
Calcul_des_Taxes 266.35
End Sub
'--------------------------
"garnote" a écrit dans le message de groupe de
discussion :
Bonjour,
Sous 2007, j'ai cette macro dans PERSONAL.XLSB
que j'ai associée à un bouton de la barre d'outils Accès rapide.
Sub TVQ_TPS()
'Calcule la TVQ, la TPS et le total.
'La cellule active ne doit pas être
'dans la première colonne et ...
On Error Resume Next
Dim m As Range
Set m = ActiveCell
v = m.Value
tvq = v * 0.05
tps = (v + tvq) * 0.075
t = v + tvq + tps
m.Offset(0, -1).Value = "Montant"
m.Offset(1, -1).Value = "TVQ"
m.Offset(2, -1).Value = "TPS"
m.Offset(3, -1).Value = "Total"
m.Offset(1, 0).Value = tvq
m.Offset(2, 0).Value = tps
m.Offset(3, 0).Value = t
m.Resize(4, 1).Style = "Currency"
End Sub
Questions :
1) TVQ : Taxe de vente du Québec
TPS : Taxe sur les produits et services
Comment ça fonctionne dans les Europes
ces machins-là ?
2) J'ai obtenu Style = " Currency" avec l'enregistreur de macros..
Mais n'était-ce pas Format ... dans les versions antérieures ?
Serge