euro

Salut Petchy...

Euh convertir Où ? dans une feuille... (?) un userform...(?) un MsgBox (?)

Enfin just for le fun voici un exemple......... Où j'ai mis le résultat de la conversion dans....... la barre de Status !!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Value <> "" Then
Francs = ActiveCell.Value
Euro = Francs / 6.55957 'Inverse=> Francs = Euro * 6.55957
Application.StatusBar = Format(Euro, "0.00")
Else
Application.StatusBar = False
End If
End Sub

NB : Pensez à cliquer sur une cellule Vide avant de quiter, car sinon la barre de status gardera la valeur Euro... ou faite tourner cette macro :

Sub RemiseStatus ()
Application.StatusBar = False
End Sub

Bon allez .. Bon aprèm
@+Thierry

En fait... Je me suis pas foulé... J'ai repris un vieux post à moi ... Ficelle Numéro 136... çà nous rajeunit po !

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=141&t=136>


@+Thierry

Salut petchy,

J'ai aussi encore quleque chose qui traine dans mes fonds de tioroirs.
Je ne sais pas qui en est l'auteur, mais je l'en remercie.

André

Excuse-moi, mais je t'ai envoyé la version belge.
Voici la version française.

en fait je voudrais convertir des devises qui se trouvent dans un tableau que j'ai créer à l'aide d'une macro ou d'un userform