Je ne suis pas certaine que je doive passer par une message box, mais voici
ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre
elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes : taux
de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la
macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas
faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs
2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir"
ces taux de change (dans mon cas P1, P2, P3)
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
herriep
Salut a toi et au forum, ce que tu peux faire c de lancer un userform des que tu lances ton fichier... Comme ca, tu choisis ou pas de le mettre à jour Ca doit donner un truc du genre: (tu le place dans ta feuille si tu en a une seule ou dans ton workbook (comme pour l'exemple ci dessous)
'Permet d'aficher le userform1 au lancement du fichier Maître Private Sub Workbook_Open() Userform1.Show End Sub
Des que ton userform s'affiche ca va donner un truc du genre:
'Au click du bouton oui, fermer la boite d'acceuil et ouvrir le choix de mise à jour Private Sub CommandButton1_Click() Unload Me UserForm2.Show End Sub 'Permet de quiter le userform en cliquant sur non par exemple si on ne veux pas mettre a jour le fichier Private Sub CommandButton2_Click() Unload Me End Sub
Pour le reste j'y réfléchis....
Bonne chance
Salut a toi et au forum, ce que tu peux faire c de lancer un userform
des que tu lances ton fichier...
Comme ca, tu choisis ou pas de le mettre à jour
Ca doit donner un truc du genre: (tu le place dans ta feuille si tu en
a une seule ou dans ton workbook (comme pour l'exemple ci dessous)
'Permet d'aficher le userform1 au lancement du fichier Maître
Private Sub Workbook_Open()
Userform1.Show
End Sub
Des que ton userform s'affiche ca va donner un truc du genre:
'Au click du bouton oui, fermer la boite d'acceuil et ouvrir le choix
de mise à jour
Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub
'Permet de quiter le userform en cliquant sur non par exemple si on ne
veux pas mettre a jour le fichier
Private Sub CommandButton2_Click()
Unload Me
End Sub
Salut a toi et au forum, ce que tu peux faire c de lancer un userform des que tu lances ton fichier... Comme ca, tu choisis ou pas de le mettre à jour Ca doit donner un truc du genre: (tu le place dans ta feuille si tu en a une seule ou dans ton workbook (comme pour l'exemple ci dessous)
'Permet d'aficher le userform1 au lancement du fichier Maître Private Sub Workbook_Open() Userform1.Show End Sub
Des que ton userform s'affiche ca va donner un truc du genre:
'Au click du bouton oui, fermer la boite d'acceuil et ouvrir le choix de mise à jour Private Sub CommandButton1_Click() Unload Me UserForm2.Show End Sub 'Permet de quiter le userform en cliquant sur non par exemple si on ne veux pas mettre a jour le fichier Private Sub CommandButton2_Click() Unload Me End Sub
Pour le reste j'y réfléchis....
Bonne chance
papou
Bonjour Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange() Dim Taux1&, Taux2&, Taux3& Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , , 1) Worksheets("Feuil1").Range("P1").Value = Taux1 Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1) Worksheets("Feuil1").Range("P2").Value = Taux2 Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1) Worksheets("Feuil1").Range("P3").Value = Taux3 End Sub
Cordialement Pascal
"vswildcat" a écrit dans le message de news:
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais voici ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes : taux de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs 2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir" ces taux de change (dans mon cas P1, P2, P3)
Par avance, merci de votre aide.
Bonjour
Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange()
Dim Taux1&, Taux2&, Taux3&
Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , ,
1)
Worksheets("Feuil1").Range("P1").Value = Taux1
Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1)
Worksheets("Feuil1").Range("P2").Value = Taux2
Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1)
Worksheets("Feuil1").Range("P3").Value = Taux3
End Sub
Cordialement
Pascal
"vswildcat" <vswildcat@discussions.microsoft.com> a écrit dans le message de
news: 28C56F13-475A-4A22-B31E-29FCDAAA1F3E@microsoft.com...
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais
voici
ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre
elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes :
taux
de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la
macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas
faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs
2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir"
ces taux de change (dans mon cas P1, P2, P3)
Bonjour Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange() Dim Taux1&, Taux2&, Taux3& Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , , 1) Worksheets("Feuil1").Range("P1").Value = Taux1 Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1) Worksheets("Feuil1").Range("P2").Value = Taux2 Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1) Worksheets("Feuil1").Range("P3").Value = Taux3 End Sub
Cordialement Pascal
"vswildcat" a écrit dans le message de news:
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais voici ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes : taux de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs 2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir" ces taux de change (dans mon cas P1, P2, P3)
Par avance, merci de votre aide.
vswildcat
Parfait Papou !! C'est exactement ce qu'il me fallait :-)
Merci.
Bonjour Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange() Dim Taux1&, Taux2&, Taux3& Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , , 1) Worksheets("Feuil1").Range("P1").Value = Taux1 Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1) Worksheets("Feuil1").Range("P2").Value = Taux2 Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1) Worksheets("Feuil1").Range("P3").Value = Taux3 End Sub
Cordialement Pascal
"vswildcat" a écrit dans le message de news:
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais voici ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes : taux de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs 2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir" ces taux de change (dans mon cas P1, P2, P3)
Par avance, merci de votre aide.
Parfait Papou !! C'est exactement ce qu'il me fallait :-)
Merci.
Bonjour
Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange()
Dim Taux1&, Taux2&, Taux3&
Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , ,
1)
Worksheets("Feuil1").Range("P1").Value = Taux1
Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1)
Worksheets("Feuil1").Range("P2").Value = Taux2
Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1)
Worksheets("Feuil1").Range("P3").Value = Taux3
End Sub
Cordialement
Pascal
"vswildcat" <vswildcat@discussions.microsoft.com> a écrit dans le message de
news: 28C56F13-475A-4A22-B31E-29FCDAAA1F3E@microsoft.com...
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais
voici
ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre
elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes :
taux
de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la
macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas
faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs
2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir"
ces taux de change (dans mon cas P1, P2, P3)
Parfait Papou !! C'est exactement ce qu'il me fallait :-)
Merci.
Bonjour Voici une façon de procéder (à adapter avec le nom de ta feuille) :
Sub saisirTauxChange() Dim Taux1&, Taux2&, Taux3& Taux1 = Application.InputBox("Taux du début du mois ?", "Taux 1", , , , , , 1) Worksheets("Feuil1").Range("P1").Value = Taux1 Taux2 = Application.InputBox("Taux du 15 du mois ?", "Taux 2", , , , , , 1) Worksheets("Feuil1").Range("P2").Value = Taux2 Taux3 = Application.InputBox("Taux de fin du mois ?", "Taux 3", , , , , , 1) Worksheets("Feuil1").Range("P3").Value = Taux3 End Sub
Cordialement Pascal
"vswildcat" a écrit dans le message de news:
Bonjour,
Je ne suis pas certaine que je doive passer par une message box, mais voici ce que je voudrais faire :
J'ai un fichier, avec diverses colones de chiffres, et certaines d'entre elles convertissent mes chiffres en Dollars.
Les calculs doivent tenir compte de 3 dates pour les taux de changes : taux de change au début du mois, au 15 du mois, à la fin du mois.
Je pense que je saurais déterminer en fonction de la date du jour si la macro doit me demander une, deux ou trois valeurs, ce que je ne sais pas faire, c'est :
1/ Qu'Excel me "demande" de saisir ces valeurs 2/ Comment les affecter/envoyer dans les celulles prévues pour "recevoir" ces taux de change (dans mon cas P1, P2, P3)
