De: G&eacute;<geboulay@free.fr>rard Boulay 
Objet: Re: excel 97 euro
Date : dimanche 26 mars 2000 17:53

Ecrire la macro suivante :
Sub FrancEnEuro()
Const Euro As double = 6.55957
'S&eacute;lection des cellules avec une valeur num&eacute;rique à l'exclusion des formules
de calcul et des textes
selection.Specialcells(xlCelltypeConstants, 13).select
    dim cel As range
    for each cel In selection
        if IsNumeric(cel) then
            if cel.value <> 0 then
                cel.value = cel.value / Euro
                'cel.NumberformatLocal = "# ##0,00""?"""<estuaires.ledo@wanadoo.fr>
            end if
        end if
    next
end Sub

ludo  a &eacute;crit dans le message :
8bcog7$540$1@wanadoo.fr...
> salut à tous
> est il possible de convertir simplement et automatiquement une feuille de
> calcul exprim&eacute; en francs (à la fois formules et valeurs) en euros .
> merci d'avance.
> a la prochaine salut
> ludo
>
>
>