Bonjour José, Blafi, Brico, Charly, le Fil, le Forum
J'ai fait des tests, et en effet j'ai eu une erreur sur cette FormulaR1C1, puis j'ai commencé à développer un truc sympa, puis mon PC a planté et donc faut tout recommencer lol!
J'en étais juste sur un fichier normal (ni XLA, ni Perso.xls) et j'avais bien une erreur quand j'avais une valeur d'origine avec décimale dans la sélection.
Pour le code de Charly, oui je n'ai pas bien saisi sa spécification avec un 'With ActiveWorkbook.ActiveSheet' puisque quoiqu'il en soit 'Selection' est, par définition, sur l'ActiveBook/Sheet.
Bon là j'ai plus vraiment le temps de recommencer mon sbinz sur ce Round en Formula, mais une simple Boucle pour écrire en dur la Valeur devrait suffir non ?
Const Rate As Double = 6.55957
Sub VersEuro()
Dim CeCe As Range
For Each CeCe In Selection
If IsNumeric(CeCe.Value) And Not CeCe = Empty Then
CeCe = Round(CeCe.Value / Rate, 2)
End If
Next CeCe
End Sub
'------------------------------------------------
Sub VersFranc()
Dim CeCe As Range
For Each CeCe In Selection
If IsNumeric(CeCe.Value) And Not CeCe = Empty Then
CeCe = Round(CeCe.Value * Rate, 2)
End If
Next CeCe
End Sub
End Sub
On pourrait même envisager de passer l'Opérateur DIV '/' ou MULTI '*' en argument String depuis le UserForm mais bon, c'est pas indispensable.
Bon Dimanche,
zavez-vu ils ont sélectionné Zidane !
[ol]@+Thierry[/ol]