Passage automatique Euros/Francs

Bonjour le forum
Bonjour Joub

Le survol d'une cellule n'est pas évenementiel donc pas de code....
@ ++ Eric C

Salut,

Et pourtant j'ai vu quelque chose dernièrement sur XLD qui ressemblait fortement à cette question, mais je n'en pas pris note.

C'était un commentaire (qui s'affiche au passage de la souris) approvisionné par un code VBA qui faisait la "traduction".

Plus que cela je ne puis en dire.

Ândré.

bonjour à tous

voila le fil que André te signalait
<http://www.excel-downloads.com/html/French/forum/messages/1_122693_122693.htm>
@ plus
petchy

Bonjour tout le monde

Je n'ajouterai rien de plus à la réponse d'Eric en ce qui concerne la gestion du survol de la cellule.

Quand à la gestion des commentaires, il y a peut-être plus simple en utilisant le texte d'aide à la saisie, mais cela oblige à sélectionner la cellule.

Code à glisser dans le ThisworkSheet de la feuille concernée.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim vFrancs As String
If IsNumeric(Target) Then
If Target <> 0 Then
vFrancs = Format(Target * 6.55957, "### ### ##0.00 Francs")
End If
Else
vFrancs = ""
End If
With Target.Validation
On Error Resume Next
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
.InputMessage = vFrancs
End With
End Sub

@+Jean-Marie