l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises
différentes et d'afficher le cours de la devise 1 par rapport à la devise 2
et l' inverse.
Je souhaiterais pouvoir choisir les devises dans une liste modifiable et
obtenir à l'affichage les noms des devises avec les cours respectifs.
par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev()
Dim DEV1, DEV2, COURS1 As Double
Dim msg, style, réponse As Long
DEV1 = Val(InputBox("Montant en Dev1"))
DEV2 = Val(InputBox("Montant en Dev2"))
msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?"
style = vbYesNo + vbCritical + vbDefaultButton1
réponse = Msgbox(msg, style)
If réponse = vbYes Then COURS1 = (DEV1 / DEV2)
If réponse = vbNo Then COURS1 = (DEV2 / DEV1)
Msgbox COURS1
End Sub
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
Jacquouille
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
Bonjour
Pas certain d'avoir bien compris, car il faudra encoder manuellement les
cours, ou les télécharger.
Si tel est le cas, il faudra alors que le fichier corresponde.
La seule chose que je puisse proposer, c'est
col A1, le nom des devises (exemple: EUR)
col B1, le cours de la devise en Euro
col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1
Le tout sans macro, puisqu'il faut réactualiser...
Bonne chance.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" <popeye@discussions.microsoft.com> a écrit dans le message de news:
C8AA1C54-307A-4925-8F31-4699959DFAB2@microsoft.com...
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises
différentes et d'afficher le cours de la devise 1 par rapport à la devise
2
et l' inverse.
Je souhaiterais pouvoir choisir les devises dans une liste modifiable et
obtenir à l'affichage les noms des devises avec les cours respectifs.
par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev()
Dim DEV1, DEV2, COURS1 As Double
Dim msg, style, réponse As Long
DEV1 = Val(InputBox("Montant en Dev1"))
DEV2 = Val(InputBox("Montant en Dev2"))
msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?"
style = vbYesNo + vbCritical + vbDefaultButton1
réponse = Msgbox(msg, style)
If réponse = vbYes Then COURS1 = (DEV1 / DEV2)
If réponse = vbNo Then COURS1 = (DEV2 / DEV1)
Msgbox COURS1
End Sub
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
popeye
"Jacquouille" wrote:
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir. Le cours sera calculé en fontion des montants saisis dans les 2 devises. exemple: DEV1 = 15000.00 EUR DEV2 = 10160.78 GBP ===> 1 EUR = 0.677385 GBP ===> 1 GBP = 1.476260 EUR
"Jacquouille" wrote:
Bonjour
Pas certain d'avoir bien compris, car il faudra encoder manuellement les
cours, ou les télécharger.
Si tel est le cas, il faudra alors que le fichier corresponde.
La seule chose que je puisse proposer, c'est
col A1, le nom des devises (exemple: EUR)
col B1, le cours de la devise en Euro
col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1
Le tout sans macro, puisqu'il faut réactualiser...
Bonne chance.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" <popeye@discussions.microsoft.com> a écrit dans le message de news:
C8AA1C54-307A-4925-8F31-4699959DFAB2@microsoft.com...
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises
différentes et d'afficher le cours de la devise 1 par rapport à la devise
2
et l' inverse.
Je souhaiterais pouvoir choisir les devises dans une liste modifiable et
obtenir à l'affichage les noms des devises avec les cours respectifs.
par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev()
Dim DEV1, DEV2, COURS1 As Double
Dim msg, style, réponse As Long
DEV1 = Val(InputBox("Montant en Dev1"))
DEV2 = Val(InputBox("Montant en Dev2"))
msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?"
style = vbYesNo + vbCritical + vbDefaultButton1
réponse = Msgbox(msg, style)
If réponse = vbYes Then COURS1 = (DEV1 / DEV2)
If réponse = vbNo Then COURS1 = (DEV2 / DEV1)
Msgbox COURS1
End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir.
Le cours sera calculé en fontion des montants saisis dans les 2
devises.
exemple: DEV1 = 15000.00 EUR
DEV2 = 10160.78 GBP
===> 1 EUR = 0.677385 GBP
===> 1 GBP = 1.476260 EUR
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir. Le cours sera calculé en fontion des montants saisis dans les 2 devises. exemple: DEV1 = 15000.00 EUR DEV2 = 10160.78 GBP ===> 1 EUR = 0.677385 GBP ===> 1 GBP = 1.476260 EUR
Jacquouille
Bonjour En A1, rien En B1, écrire Euro En C1, écrire GBP D1 ...... -------------- En A2, le montant (ex:15.000) En B2, écrire ¢ et le formater en format monétaire/euro, deux décimales et séparateur de milliers En C2, je reprends tes données----> ===> 1 EUR = 0.677385 GBP, on écrira donc ¢*0.677385 et formater idem que B2 sauf que l'on choisira les GBP Et ainsi de suite ..... Bonne chance.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
"Jacquouille" wrote:
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir. Le cours sera calculé en fontion des montants saisis dans les 2 devises. exemple: DEV1 = 15000.00 EUR DEV2 = 10160.78 GBP ===> 1 EUR = 0.677385 GBP ===> 1 GBP = 1.476260 EUR
Bonjour
En A1, rien
En B1, écrire Euro
En C1, écrire GBP
D1 ......
--------------
En A2, le montant (ex:15.000)
En B2, écrire ¢ et le formater en format monétaire/euro, deux décimales et
séparateur de milliers
En C2, je reprends tes données----> ===> 1 EUR = 0.677385 GBP, on écrira
donc ¢*0.677385 et formater idem que B2 sauf que l'on choisira les GBP
Et ainsi de suite .....
Bonne chance.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" <popeye@discussions.microsoft.com> a écrit dans le message de news:
87711BDC-6620-43B7-AB35-5B48831E0813@microsoft.com...
"Jacquouille" wrote:
Bonjour
Pas certain d'avoir bien compris, car il faudra encoder manuellement les
cours, ou les télécharger.
Si tel est le cas, il faudra alors que le fichier corresponde.
La seule chose que je puisse proposer, c'est
col A1, le nom des devises (exemple: EUR)
col B1, le cours de la devise en Euro
col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1
Le tout sans macro, puisqu'il faut réactualiser...
Bonne chance.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" <popeye@discussions.microsoft.com> a écrit dans le message de
news:
C8AA1C54-307A-4925-8F31-4699959DFAB2@microsoft.com...
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises
différentes et d'afficher le cours de la devise 1 par rapport à la
devise
2
et l' inverse.
Je souhaiterais pouvoir choisir les devises dans une liste modifiable
et
obtenir à l'affichage les noms des devises avec les cours respectifs.
par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev()
Dim DEV1, DEV2, COURS1 As Double
Dim msg, style, réponse As Long
DEV1 = Val(InputBox("Montant en Dev1"))
DEV2 = Val(InputBox("Montant en Dev2"))
msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?"
style = vbYesNo + vbCritical + vbDefaultButton1
réponse = Msgbox(msg, style)
If réponse = vbYes Then COURS1 = (DEV1 / DEV2)
If réponse = vbNo Then COURS1 = (DEV2 / DEV1)
Msgbox COURS1
End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir.
Le cours sera calculé en fontion des montants saisis dans les 2
devises.
exemple: DEV1 = 15000.00 EUR
DEV2 = 10160.78 GBP
===> 1 EUR = 0.677385 GBP
===> 1 GBP = 1.476260 EUR
Bonjour En A1, rien En B1, écrire Euro En C1, écrire GBP D1 ...... -------------- En A2, le montant (ex:15.000) En B2, écrire ¢ et le formater en format monétaire/euro, deux décimales et séparateur de milliers En C2, je reprends tes données----> ===> 1 EUR = 0.677385 GBP, on écrira donc ¢*0.677385 et formater idem que B2 sauf que l'on choisira les GBP Et ainsi de suite ..... Bonne chance.
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
"Jacquouille" wrote:
Bonjour Pas certain d'avoir bien compris, car il faudra encoder manuellement les cours, ou les télécharger. Si tel est le cas, il faudra alors que le fichier corresponde. La seule chose que je puisse proposer, c'est col A1, le nom des devises (exemple: EUR) col B1, le cours de la devise en Euro col C1, la valeur de 1 Euro dans la devise (ex $), d'où =1/B1 Le tout sans macro, puisqu'il faut réactualiser... Bonne chance. -- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm http://frederic.sigonneau.free.fr/
Jacquouille.
"popeye" a écrit dans le message de news:
bonjour à tous,
l' objet de la macro ci-dessous est de saisir 2 montants dans 2 devises différentes et d'afficher le cours de la devise 1 par rapport à la devise 2 et l' inverse. Je souhaiterais pouvoir choisir les devises dans une liste modifiable et obtenir à l'affichage les noms des devises avec les cours respectifs. par exemple: 1 EUR = 1.2831 USD et 1 USD = 0.77936248 EUR
Merci de votre aide.
Public Sub test_dev() Dim DEV1, DEV2, COURS1 As Double Dim msg, style, réponse As Long DEV1 = Val(InputBox("Montant en Dev1")) DEV2 = Val(InputBox("Montant en Dev2")) msg = "Affichage du cours DEV1 par rapport à DEV2 ok ?" style = vbYesNo + vbCritical + vbDefaultButton1 réponse = Msgbox(msg, style) If réponse = vbYes Then COURS1 = (DEV1 / DEV2) If réponse = vbNo Then COURS1 = (DEV2 / DEV1) Msgbox COURS1 End Sub
NB: Il faut bien voir qu'il n'y a pas de cours à charger ou à saisir. Le cours sera calculé en fontion des montants saisis dans les 2 devises. exemple: DEV1 = 15000.00 EUR DEV2 = 10160.78 GBP ===> 1 EUR = 0.677385 GBP ===> 1 GBP = 1.476260 EUR
