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

[eastwick]

Bonjour,

Je fais un jeu : en cliquant sur une cellule, une musique démarre. Pour ne plus cliquer sur une cellule déjà choisie, j'aimerais que celles qui ont été "cliquées" soient colorées.

Merci !

 

[DoubleZero]

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... :

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

A bientôt 🙂

 

[eastwick]

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

Merci beaucoup !

 

[DoubleZero]

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 :

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

A bientôt 🙂

 

[Guest]

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é:

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

A+

Hello 00🙂🙂🙂