Coucou Vériland, Bonsoir Cyrille, Aandré01, le Forum
Oui il est très utile de rappeler les fonctions intégrées et Ultra Pratiques dans Excel telle que les Opérations dans le "Collage Spécial"... Souvent ignorées de bien des utilisateurs...
Pour cette histoire d'incompatibilité...
Si je n'ai que des cellules avec valeur numérique dans ma sélection, le Code de Véri tourne Impec...
Si j'ai "toto" au milieu, j'ai "Type MissMatch" sur le Round, ce qui est normal, déjà que Toto à une tête au carré, si en plus on l'arrondit !! lol (donc t'inquiète pas Cyril, ton Excel connait très bien Round, mais c'est la tête à toto qui lui fait peur !!)
Non voilà ce que je propose :
Sub francs_euro()
Dim cel As Range, euro$
For Each cel In Selection
If IsNumeric(cel) Then
If InStr(1, cel.Text, ".") > 0 Then
cel.Value = CDbl(Val(cel.Text))
End If
If cel.Value <> 0 And Not cel.Text Like "*€*" Then
cel.Value = Round(cel.Value / 6.55957, 2)
End If
End If
Next cel
euro = "#,##0.00 [$€-1]_-;[Red]#,##0.00 [$€-1]_-"
Selection.NumberFormat = euro
End Sub
D'ailleurs on notera qu'une seule passe suffit pour tout faire, je ne sais pas où Véri voulait aller en deux passes !!
Bonne Soirée
@+Thierry