XL 2019 Lien hypertexte couleur

[litchoutsou]

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

 

[sylvanu]

Bonjour litchoutsou,
Peut être en mettant dans ThisWorkbook la macro suivante :

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.

 

[litchoutsou]

Merci sylvanu ca va allégé mon classeur ca fonctionne super bien

 

[litchoutsou]

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)

 

[sylvanu]

Bonjour,
Il suffit de rajouter cette ligne pour supprimer le problème :

If ActiveSheet.Name = "objet" Then Exit Sub

 

[litchoutsou]

Un énorme Merci pour toi sylvanu

 

[litchoutsou]

je dois faire une erreur , j'ai refait un essais et ça ne fonctionne pas, merci de votre indulgence, je ne suis qu'un novice

 

[sylvanu]

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 )