Lien hypertexte couleur

Excel
1

bonjour a tous et merci au forum qui m’a déjà beaucoup aidé.
Dans VISUAL BASIC Sur chaque feuille j’ai mis cette formule cela me permet en cliquant sur une cellule qui contient un lien hypertexte de m’ouvrir la feuille correspondante en la coloriant en jaune,mais j’ai plus de 120 feuilles et j’ai donc reproduit cette formule sur chaque feuille dans visual basic. N’y aurait-il pas la possibilité de mettre une formule qui serait valable pour toutes les feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub
Cells.Interior.ColorIndex = 0
Target.Interior.ColorIndex = 6
End Sub

2

Bonjour
Place cette macro dans le ThisWorkbook de ton classeur et plus besoin des autres dans chaque feuille

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Row <> 5 Then Exit Sub
  Cells.Interior.ColorIndex = 0
  Target.Interior.ColorIndex = 6
End Sub
3

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.