Grand merci à vous deux !

Je retiens la solution VBA qui me convient parfaitement.

En fait je l'utilise ce code pour établir un facture pro-forma à
destination de nos clients.

Bien évidemment j'utilise des valeurs monétaires. Comment faire pour
obtenir que le contenu d'une cellule (14,30 € par exemple) me revienne
correctement formatée c'est à dire "14,30 €" et non pas "14,3", sachant
que la fameuse valeur texte transmise peut contenir sur plusieurs lignes
différentes valeurs monétaires ?

Par avance merci !

JFL

Si tu sélectionnes une plage de valeurs numériques :

Function test1(Plage As Range)
Dim c As Range
For Each c In Plage
If c.Offset(, 2) <> "" Then test1 = _
test1 & Format(c, "€ #,##0.00") & Chr(10)
Next c
test1 = Left(test1, Len(test1) - 1)
End Function

Daniel
"a supprimer" <"jfl51200(a supprimer)-excel"***yahoo.fr> a écrit dans le
message de news: uTQUxBAwIHA.3500***TK2MSFTNGP02.phx.gbl...
> Grand merci à vous deux !
>
> Je retiens la solution VBA qui me convient parfaitement.
>
> En fait je l'utilise ce code pour établir un facture pro-forma à
> destination de nos clients.
>
> Bien évidemment j'utilise des valeurs monétaires. Comment faire pour
> obtenir que le contenu d'une cellule (14,30 € par exemple) me revienne
> correctement formatée c'est à dire "14,30 €" et non pas "14,3", sachant
> que la fameuse valeur texte transmise peut contenir sur plusieurs lignes
> différentes valeurs monétaires ?
>
> Par avance merci !
>
> JFL