• Bonjour Visiteur. Bienvenue sur les nouveaux forums de MacGeneration. La peinture est encore fraiche, quelques boulons doivent être resserrés, plus d’informations demain !

Convertisseur de feuilles excel à l'euro ?

bebert

Membre d’élite
Club MacG
9 Novembre 2000
4 990
332
Europe
Tout est dans le titre.
Je cherche ce genre de truc, ça existe ?

Merci pour vos réponses.
 

r e m y

Cas clinique
Club MacG
4 Novembre 2000
41 459
4 236
58
St Germain en Laye - FRANCE
euh... ben non tout n'est pas dans le titre.

Tu veux faire quoi au juste? Convertir des montants exprimés dans ta devise nationale en euros?

Ou simplement faire afficher le symbole Euro partour ou s'affiche le symbole de ta monnaie nationale?

Bref explique un peu!
 

dan38

Membre junior
4 Janvier 2002
79
0
Ci joint le texte de la macro.
Pour mettre à jour une feuille avec des valeurs en F vers des €uros :

A réserver aux données, converti les informations en données (ne conserve pas les formules de calcul).
Un menu "ConvEuro" est créé tant que ce fichier est ouvert. Il vous donne accès à la macro.

La macro utilise la fonction EUROCONVERT d'Excel. Pour en disposer lire la rubrique EUROCONV ci-dessous.

Pour convertir les données :
Sélectionner la zone de données à convertir.

Lancer la macro MaJEuro.

Vous pouvez utiliser la multi sélection de zone.
Pour continuer, sélectionner la zone suivante et relancer la macro avec Ctrl + Y
Pour EUROCONV :
Pour en disposer,
ouvrir le menu Tools, Add-ins …
Cocher : Euro Currency Tools
(A adapter à la version locale)

Pour les macros, la localisation est "automatique" Excel français reconnait le VBA anglais.

Sub MaJEuro()
' Copie de F en Euro les données correspondant à la zone sélectionnée
Dim vT As String, vF As String
Dim vP As Boolean
'
vT = ActiveCell.Worksheet.Name
vF = ActiveCell.Worksheet.Name & "!RC"
vP = False
If Sheets(vT).ProtectContents Then vP = True
'

Sheets.Add Before:=Worksheets(1)
Sheets(vT).Select
Sheets(vT).Unprotect
'
Sheets(1).Range(Selection.Address).FormulaR1C1 = "=IF(ISNUMBER(" & vF & "),EUROCONVERT(" & vF & ",""FRF"",""EUR""),IF(" & vF & "="""",""""," & vF & "))"
Sheets(vT).Range(Selection.Address).Value = Sheets(1).Range(Selection.Address).Value
If vP Then Sheets(vT).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub
Sub Auto_Open()
MenuBars(xlWorksheet).Menus.Add Caption:="ConvEuro", Before:=9
MenuBars(xlWorksheet).Menus("ConvEuro").MenuItems.Add Caption:="MàJ en Euro", Before:=1, OnAction:="MaJEuro"
End Sub
Sub Auto_close()
For Each MenuName In MenuBars(xlWorksheet).Menus
If MenuName.Caption = "ConvEuro" Then MenuName.Delete
Next
End Sub

Saluts
 

etendard4

Membre junior
22 Mars 2001
62
0
Pour feuille de calcul en € (euro) dans Excel:
Menu format > cellule > nombre > monétaire > case "symbole monétaire" > aller jusqu'à € Euro(123 €).
Recopier vers le bas ou vers la droite.
 

bebert

Membre d’élite
Club MacG
9 Novembre 2000
4 990
332
Europe
Merci Dan 38, mais je ne sais comment on fait pour mettre ce "script" dans une macro.
Désolé...
 

dan38

Membre junior
4 Janvier 2002
79
0
Dans le menu Outils, choisir Visual Basic dans le sous menu Macro.

En créant un nouveau module dans ton fichier "Personal" (celui qui s'ouvre pour le démarrage) tu pourra faire un copier/coller.

On sauvegarde. On quitte. On ouvre Excel et le menu apparait.