colorier une cellule en cliquant sur le lien hypertexte qu'elle contient

DoubleZero

XLDnaute Barbatruc

• 21 Mars 2013

• #2

Re : colorier une cellule en cliquant sur le lien hypertexte qu'elle contient

Bonjour, eastwick, le Forum,

Peut-être ainsi, en adaptant la plage de cellules... :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 3
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 21 Mars 2013

• #3

Re : colorier une cellule en cliquant sur le lien hypertexte qu'elle contient

Merci beaucoup !

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Mars 2013

• #4

Re : colorier une cellule en cliquant sur le lien hypertexte qu'elle contient

Re-bonjour,

Afin d'éviter de colorer un peu trop vite... peut-être serait-il préférable de recourir au double-clic :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Interior.ColorIndex = 3
Cancel = True
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 21 Mars 2013

• #5

Re : colorier une cellule en cliquant sur le lien hypertexte qu'elle contient

Bonjour,

En cas de lien hypertext dans les cellules comme le titre semble le dire il y a aussi cette possibilité:

Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.Interior.Color = 3
End Sub

A+

Hello 00🙂🙂🙂

 

Vote positif 0 Vote négatif