Euros/francs sur 2 Colonnes

[JOUB 42]

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

 

[Hervé]

Bonsoir

Je suis pas sur d'avoir compris ta demande,
mais si tu veux que cette macro ne fonctionne que lorsque l'on selection une cellule en ("G3:H53") :

essaye ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("g3:h53")) Is Nothing Then
Exit Sub
Else

ICI TON CODE ..............

End If
End Sub

Salut
Hervé