macro conversion euros

[furer]

Bonjour

petite macro svp pour changer un montant de francs suisses en euros

merci avec mon taux de 1.465

ou

comment faire avec une fonction logique pour que tous mes montants changent avec une seul opération.


ariane


mille merci et bonne journée

 

[Evelynetfrancois]

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

 

[andré]

Salut furer,

Pas besoin de macro !

Tu tapes ton taux de change (1.465) dans une cellule quelconque.
Tu copies cette cellule, puis tu sélectionnes les cellules à modifier.
Tu fais Collage Spécial Multiplication.

Ândré.