user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

Essayer la macro de Clément Marcotte modifiée comme suit :

 

NB : Cette macro a été écrite lors du passage à l'Euro. Elle fonctionne bien entendu avec n'importe quelle autre monnaie.

 

Sub FrancsRemplaceEuros()
valeur = roundvba(Val(Selection) / 6.559570)
' pour avoir 2 décimales, mettre 2 au lieu de 0
If InStr(Selection, "F"> 0 Then
valeur = valeur & " €"
Selection.Delete
Selection.InsertAfter valeur
End If
End Sub


Function roundvba(donnee, nombredecimales)
facteur = 10 ^ nombredecimales
roundvba = Int((donnee * facteur) + 0.5/ facteur
End Function

 

Statistiques

Aujourd'hui236
Hier2369
Cette semaine2605
Ce mois45265
Total depuis 200413076192

11
visiteurs actuellement en ligne

22 juin 2021