Lien hypertexte excel [Résolu]

Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
- - Dernière réponse : litchoutsou
Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
- 26 août 2019 à 06:22
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
Afficher la suite 

2 réponses

Messages postés
24585
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
16 octobre 2019
4830
0
Merci
Bonjour
je pense qu'il devrait suffire d'enlever cette ligne:
Cells.Interior.ColorIndex = 0
crdlmnt
litchoutsou
Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
-
ca fonctionne, mais la cellule sur la feuille qui est sélectionné reste en jaune, est lorsque je choisi un autre lien vers la même ligne mais dans une cellule différente, la première et deuxième cellule sont jaune.
litchoutsou
Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
-
j'aimerai que uniquement la nouvelle cellule soit sélectionner en couleur est pas toutes mes sélections juste la dernière
Commenter la réponse de Vaucluse
0
Merci
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.Address
End 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.
litchoutsou
Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
-
merci pour ton aide, je t'envoie le fichier si tu peut le corriger, car peut être je m'exprime mal, tu comprendras mieux avec le fichier
MERCI https://www.cjoint.com/c/IHzqaxTHOPk
Une proposition à tester ...
https://www.cjoint.com/c/IHzs6gAwKgj

Cordialement.
litchoutsou
Messages postés
31
Date d'inscription
samedi 10 juin 2017
Statut
Membre
Dernière intervention
11 septembre 2019
-
Un grand MERCI A GIRUS
Commenter la réponse de gyrus