Commentaire

[Jaquot]

Bonsoir à tous
Est il possible que dés q'une cellule à le format monétaire € un commentaire se crée affichant le prix en franc (et oui !) D 'avance un grand merci à tout ce qui prendront un peu de leur temps pour m'aider.

 

[PhiBou]

Bonjour Jaquot, le Forum

Cette événementielle à mettre dans le Worksheet de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Franc = 6.56
If Right(Target.NumberFormat, 1) = "$" Then
On Error Resume Next
With Target
.AddComment
.Comment.Text Text:=Str(Format(Target.Value * Franc, "#.00")) & " F"
End With
End If
End Sub

Bonne journée

PhiBou

 

[Jaquot]

Bonjour PhiBou
Un grand merci pour ton aide néanmoins je n'arrive pas la faire fonctionner.
Je l' ai bien mis dans le Worksheet de la feuille mais aucun commentaire se crée lorsque j'applique un format monétaire (€) à ce propos je ne comprends pas le "$"
Merci pour ton aide
Jaquot

 

[PhiBou]

Re, Jaquot

Cela fonctionne très bien chez moi. Lorsque je rentre un nombre dans la cellule qui est au format monétaire € le commentaire affiche la conversion.

Le $ est NumberFormat du € (chez moi XP/excel 2000)

Lorsque je mets un format monétaire € simple à 2 chiffres après virgule dans la cellule A1 et que j'exécute cette instruction

MsgBox Range(A1).NumberFormat

j'obtiens ---> ##0.00 $

Vérifie d'abord ceci et recontacte-moi

PhiBou

 

[Jaquot]

Re PhiBouu
Jai xp et excel 2000 mais effectivement prob avec format j'obtiens
_($*#,##0.00_);_($*#,##0.00);_($*"-"??_);_(@_)

 

[PhiBou]

Re, Re Jaquot

Effectivement, tu as un format à rallonge...

Essaie ceci...

Private Sub Worksheet_Change(ByVal Target As Range)
Franc = 6.56
test = 0
For i = 1 To Len(Target.NumberFormat)
If Mid(Target.NumberFormat, i, 1) = "$" Then test = 1
Next i
MsgBox test
If test = 1 Then
On Error Resume Next
With Target
.AddComment
.Comment.Text Text:=Str(Format(Target.Value * Franc, "#.00")) & " F"
End With
End If
End Sub

@+

PhiBou

 

[Jaquot]

Re, Re PhiBou
Super cela fonctionne, j'ai viré le msg box test qui devait servir à tester
Je sélectionne en 1er l'icone € puis je tape ma valeur et cela fonctionne à merveille
Un grand merci pour ton aide précieuse
Jaquot