macro

[stef784]

Bonjour, je viens de commencer les "macros " et j'ai un peu de mal,

on me demande de rédigez une macro qui convertit les euros en francs,

pourriez vous m'aider?

 

[Brigitte]

Re : macro

Bonjour,

J'avais ca, mais je l'ai perdue... un truc tout bête avec l'enregistreur de macros, qui sélectionne la cellule active et la convertit en euros ou en francs, selon le cas en divisant ou multipliant par 6.55957.

Ici, en faisant la recherche, tu trouves rien ?

Sinon une piste sur ce lien : Monsieur Excel - pour tout savoir faire sur Excel ! qui donne cette macro :

Sub Conv_francs()
Dim Cell As Range
Dim Total As Double
For Each Cell In Selection
Total = Total + Cell.Value
Next Cell
MsgBox "Conversion : " & Application.Text(6.55957 * Total, "# ##0.00"" ""F")
End Sub

Ici aussi : Ce lien n'existe plus plein de possibilités (affichage dans la cellule... en commentaire.

Bon courage. Mais ca doit exister, ici, sur Veriti, ou bien encore sur mDF pages... ou ailleurs.

D'ailleurs j'ai tenté rapidement dans la recherche avancée : Convertir euros et ca m'a donné ca : https://www.excel-downloads.com/search/

 

[stef784]

Re : macro

olalala je suis un peu perdue.. je n'ai pas de cour c'est pour ça

Mais à quoi correspond " cell "?

 

[Brigitte]

Macro pour convertir francs en euros et inverse

Cell, c'est la cellule.

Mieux avec un fichier, va voir.

Et si tu es curieuse, tu fais ALT/F11 dans ton fichier, tu vas voir apparaître le fameux code "vba" que je t'ai indiqué plus bas.

Tu dois pouvoir faire la même chose dans l'autre sens.

La voici :

Sub Conv_euros()
Dim Cell As Range
Dim Total As Double
For Each Cell In Selection
Total = Total + Cell.Value
Next Cell
MsgBox "Conversion : " & Application.Text(Total / 6.55957, "# ##0.00"" ""€")
End Sub

 

[stef784]

Re : macro

Ok merci 🙂

on me demande à nouveau de rédigez une macro qui demande deux valeurs et en affiche la somme puis le produit. Elle devra contenir la ligne : MsgBox (‘’La somme de ‘’ & x & ‘’ et de ‘’ & y & ‘’ vaut ‘’ & x+y)
mais là c'est pareil je suis un peu perdu

 

[Brigitte]

Re : macro

Re,

Quelles deux valeurs ?

Sinon pour la phrase, tu peux adapter en faisant ALT/F11 en faisant attention à pas écraser la formule de conversion.

 

[justine]

Re : macro

bonjour le forum, stef784, brigitte

je te propose ceci mais je ne sais pas si c'est ce que tu veux

dim S1, S2 as double
S1=inputbox(" entrez le premier nombre")
S2=inputbox("entrez le second nombre")
msgbox "la somme de " & S1 & " et " & S2 & "fait " & S1+S2
msgbox" le produit de " & S1 & " et " & S2 & "fait " & S1*S2

 

[justine]

Re : macro

re biensur j'ai mis S1 et S2 mais a toi de remplacer par x et y
bonne continuation

 

[stef784]

Re : macro

Ok merci "inputbox" on s'en sert pour quoi généralement?

 

[justine]

Re : macro

re
inputbox est une fonction ou on entre une donnee (nombre, heure, date, nom,....)

 

[stef784]

Re : macro

Merci

et les phrases comme:

Dim .. As string
Dim .. As integer
Dim.. As double

elle nous servent à quoi?

 

[jeanpierre]

Re : macro

Bonsoir,

Ces phrases ne servent à rien... sinon, pourquoi les avoir inventé...

Sans ces phrases, VBA, excel ou d'autres prog.considère un maximum.... ces phrases repositionnent la place mémoire....
Un petit coup de F1.........

 

[stef784]

Re : macro

Ok...

j'ai une dernière question :

On me demande de rédigez une macro qui demande un nombre puis le carré de ce nombre. Après cela elle affiche une boite de dialogue contenant Faux si l’utilisateur s’est trompé, Vrai sinon

J'ai du mal :s

 

[justine]

Re : macro

rebonsoir, stef784, jeanpierre
les dim, servent a attribuer la memoire necessaire pour les variables.
dans l'exemple que je t'ai donné, les variables sont S1 et S2
elles sont de plusieurs types (string, date, integer, range....)
mais comme le dit si bien notre ami jeanpierre, un petit coup de F1 te donnera beaucoup plus d'info.
bonne continuation

 

[justine]

Re : macro

re

dim NB, REP as integer
NB = inputbox("entrez un nombre")
REP = inputbox(" entrez le carré du nombre " & NB)
if REP = NB * NB then
msgbox" bonne réponse"
else
msgbox"mauvaise réponse"
end if