Même cellule Euros/francs

[CLEMENCE]

Bonjour le forum,

Est t'il possible de mettre un commentaire sur une cellule quand la souris ce trouve sur cette cellule?

Exemple: Si la cellule"A1" est une somme en Euros quand je déplace ma souris sur A1 la somme ce met automatiquement en Francs sur une fenêtre comme dans un commentaire.

Si cela est possible pouvez-vous m'indiquer les formules et codes à suivre


Grand merci au forum

CLEM

 

[Tom_Tom]

Bonsoir Clémence et 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

@+

 

[CLEMENCE]

Bonsoir Tom Tom

Que faut t'il mettre après Text:= ?---- " & Cstr


je te remercie

 

[petchy]

bonjour à tous
Voila un code (de notre cher Thierry) à mettre dans la feuille,le probleme c'est qu'il faut clicker sur la cellule pour affiché la conversion dans une fenetre.Si ça t'intéresse.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set cmt = ActiveSheet.Comments
Dim valCell As Currency

For Each c In cmt
c.Delete
Next
On Error Resume Next
If Target.Value = "" Then

Else
valCell = Target.Value * 6.55957
With Target.AddComment
.Text valCell & " F"
.Shape.Height = 15
.Shape.Width = 100
End With
End If
End Sub

@ plus
Petchy