bonjour furer (hai hai hai )
voici deux macro a adapter a ton cas !
Option Explicit
Const rate As Single = 1.465
_____________________________________
Sub EuroEnFranc()
Dim cel As Range
For Each cel In Selection
If IsNumeric(cel) Then
cel.Value = Application.Round(cel.Value * rate, 2)
cel.NumberFormat = "# ##0.00" & """ F"";-# ##0.00" & """ F"""
End If
Next
End Sub
___________________________________________________
Sub FrancEnEuro()
Dim cel As Range
For Each cel In Selection
If IsNumeric(cel) Then
cel.Value = Application.Round(cel.Value / rate, 2)
cel.NumberFormat = "# ##0.00" & """ E"";-# ##0.00" & """ E"""
End If
Next
End Sub
bye
evelynetfrancois