lien hypertexte excel Résolu/Fermé

Question

BONJOUR à tous voici mon souci, j'ai reçu cette formule pour colorer la cellule choisi lorsque je fait un lien hypertexte
 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

elle fonctionne très bien, la cellule sélectionner se met en jaune, mais voilà mon souci, c'est que la couleur de toutes les cellules qui sont colorer de cette page disparait, et ne revient pas lorsque je fait une autre sélection.
Y a t-il une solution

Vaucluse · Answer

Bonjour 
je pense qu'il devrait suffire d'enlever cette ligne:
 Cells.Interior.ColorIndex = 0
crdlmnt

gyrus · Answer

Bonjour,

Avec ton code, la mise en couleur jaune s’applique à toute cellule sélectionnée sur la ligne 5. 
Par contre, la suppression de couleur s’applique à toute la feuille.
Tu dois donc commencer par délimiter précisément la plage sur laquelle doit s’appliquer la mise en forme.

Voici une solution avec une mise en forme conditionnelle qui utilise la formule :
=COLONNE()=COLONNE(Choix)
"Choix" étant un nom faisant référence à  =Feuil1!$A$5
Cette référence est adaptée lors de la sélection d’une cellule par le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)    If Target.Row = 5 Then Me.Names("Choix").RefersTo = "=" & Target.AddressEnd Sub
https://www.cjoint.com/c/IHzlmMOIrcj

Cette solution présente l’avantage de préserver les couleurs initiales des cellules.
Il te reste à définir plus précisément quelle est la plage concernée par cette mise en forme.

Cordialement.

Lien hypertexte excel

2 réponses

Discussions similaires