Cellule Euros/Francs

[CLEMENCE]

Bonjour le forum,

Ajouter ce code dans ta feuille contenant la cellule A1 en question, ça devrait t convenir.

Private Sub Worksheet_Calculate()
Range("A1").ClearComments ' Effacer commentaire existant
Range("A1").AddComment ' Ajouter nouveau commentaire
Range("A1").Comment.Visible = False ' Commentaire masqué
' Equivalent en francs, arrondi à 2 chiffres
Range("A1").Comment.Text Text:=" ---> " & CStr(Round(Range("A1").Value * 6.55957, 2)) & " Frs"
End Sub

@+

Merci pour ce code mais
Que faut t'il mettre après Text Text:=" ?---> " & Cstr

je vous remercie de votre réponse

 

[EricS]

Bonjour,

en essayant, j'ai eu un petit soucis avec round

je te propose d'essayer de remplacer

Range("A1").Comment.Text Text:=" ---> " & CStr(Round(Range("A1").Value * 6.55957, 2)) & " Frs"

par

virgule = InStr(1, CStr(Range("A1").Value * 6.55957), ",")

Range("A1").Comment.Text Text:=" ---> " & Left(Range("A1").Value * 6.55957, virgule + 2) & " Frs"


A+

Eric