Convertir des MF en K€

[Martini]

Bonjour

Je voudrais faire une macro qui me permette de remplacer la valeur d'une cellule selectionnée par son produit par 152,44901723741037903399155737343 (=1000/6.55957).

Comment fais-je ? 😀

 

[Lord Nelson]

Re : Convertir des MF en K€

Voici voila :

Sub Multiplication()
Dim CL As Range
For Each CL In Selection
If CL <> "" Then
CL = CL * 1000 / 6.55957
End If
Next
End Sub

A+
Horatio

 

[dixit]

Re : Convertir des MF en K€

re
voici la nouvelle version avec test sur cellule non vide et isnumeric.

 

[Martini]

Re : Convertir des MF en K€

Encore mieux.
😉 😉 😉