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