Convertisseur de feuilles excel à l'euro ?

bebert

Membre expert
Club iGen
9 Novembre 2000
4 990
318
Europe
Tout est dans le titre.
Je cherche ce genre de truc, ça existe ?
confused.gif

Merci pour vos réponses.
 
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!
 
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
 
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.
 
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.