Formatage

Bonjour,

Peut-être :

'Convertit en Euros
Sub Convertisseurs_Euros()
ActiveCell.Value = Application.Round(ActiveCell.Value / 6.55957, 2)
ActiveCell.NumberFormat = "# ###.## €"
End Sub

'Convertit en Francs
Sub Convertisseurs_Francs()
ActiveCell.Value = Application.Round(ActiveCell.Value * 6.55957, 2)
ActiveCell.NumberFormat = "# ###.## F"
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjour,

En partant des deux marcros ci-dessous.
Comment faire pour formater les résultats ?
ex: 1000.00 = 1 000.00 F 1000.00 = 1 000.00 ? etc......

Merci

'Convertit en Euros
Sub Convertisseurs_Euros()
ActiveCell = ActiveCell / 6.55957
End Sub

'Convertit en Francs
Sub Convertisseurs_Francs()
ActiveCell = ActiveCell * 6.55957
End Sub