<HTML>Salut JM, Bonjour à Tous/Toutes
Pas bcp de tmp pour trouver un mouen de faire des bulles !!!
Mais j'ai pensé à un truc tout simple dans la barre d'état.... et çà marche
A placer dans le Module de la Worksheet où se trouve tes montants en euro :
'===============================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
convert = ActiveCell.Value
Application.StatusBar = convert / "6.55957"
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Application.StatusBar = False
End Sub
'===============================================
Double Click = Convertion dans barre d'état (en bas à droite) de la cellule active
Right Click = Retour affichage normal de la barre d'état
L'idéal serait en fait d'appliquer çà dans la partie droite de la même barre d'état comme un calcul automatique supplémentaire à ce qui existe déjà (Average, Count, Count Nums, Max, Min, Sum........ Euro/Frf....)
Mais bon vu pour le très court laps de temps qu'il reste à notre pauvre franc est-ce que çà vaut la peine de faire appel à un macro complémentaire rien que pour çà....
Enfin si vous le vouulez, elle existe au fait cette XLA, suffit d'aller sur le MPFE et de rechercher :
conveuro.xla
Dans le moteur du forum...
http://groups.google.com/groups?hl=en&group=microsoft.public.fr.excel
Ou de contacter son auteur : Benoît BRACHET
Voili voilà
@+ Thierry</HTML>