Bonsoir à tous,
Après avoir mis ce code cela fonctionne, seulement je souhaiterai utiliser uniquement 2 colonnes ("G3:H53") ou puis je le positionné dans ce code pour que cela marche ?
Jean Marie t'on renseignement ne fonctionne pas ( dommage)!
-----------------------------------------------------------------------------------------------
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
With ActiveCell
ValCell= Target.Value * 6.55957
With Target. AddComment
.Text Format (ValCell, "0.00") & "Frs"
.Shape. Height = 15
.Shape. Width = 100
End With
.Comment.Shape.textFrame.Characters.Font.Size = 10
" " " " " " bold= True
End With
End If
End Sub
MERCI Pour Tout
JOUB42