Euros/francs sur 2 Colonnes

  • Initiateur de la discussion Initiateur de la discussion JOUB 42
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

JOUB 42

Guest
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
 
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é
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour