XL 2019 Lien hypertexte couleur

litchoutsou

XLDnaute Junior
Supporter XLD
6m

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
 

Pièces jointes

  • 2 Classeur.xlsm
    31 KB · Affichages: 22
Solution
Bonjour,
Etes vous sur de votre PJ ? On est sur le fil " Lien hypertexte couleur" ! 😂

Au cas où ce serait sur l'autre fil, il y a encore un problème de format. Aussi en PJ je transforme les dates en nombres, c'est plus simple.
Testez et dites moi.
Aussi mettez "Résolu" sur la PJ #5 car le futur lecteur risque d'être complétement largué s'il regarde la PJ #7 qui n'a rien à voir. ( Lien )

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour litchoutsou,
Peut être en mettant dans ThisWorkbook la macro suivante :
VB:
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
Voir PJ à tester.
 

Pièces jointes

  • 2 Classeur.xlsm
    29.4 KB · Affichages: 9

litchoutsou

XLDnaute Junior
Supporter XLD
bonjour a tous et merci pour le temps que vous passez à m'aider
j'ai un petit souci avec la formule en page 1, si le sélectionne une case dans la ligne 5 toutes les couleurs qui sont sur les autres cellules disparaissent serait-il possible de faire en sorte que la formule ne fonctionne pas sur la feuille1 (la formule ce trouve dans ThisWorkbook)
 

Pièces jointes

  • 2 Classeur.xlsm
    29.9 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Etes vous sur de votre PJ ? On est sur le fil " Lien hypertexte couleur" ! 😂

Au cas où ce serait sur l'autre fil, il y a encore un problème de format. Aussi en PJ je transforme les dates en nombres, c'est plus simple.
Testez et dites moi.
Aussi mettez "Résolu" sur la PJ #5 car le futur lecteur risque d'être complétement largué s'il regarde la PJ #7 qui n'a rien à voir. ( Lien )
 

Pièces jointes

  • RESERVATION DES SALLES (1).xlsm
    27.3 KB · Affichages: 2

Discussions similaires

Réponses
5
Affichages
451

Statistiques des forums

Discussions
314 496
Messages
2 110 236
Membres
110 708
dernier inscrit
novy16