Lien hypertexte excel
Résolu
litchoutsou
Messages postés
90
Statut
Membre
-
litchoutsou Messages postés 90 Statut Membre -
litchoutsou Messages postés 90 Statut Membre -
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
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
A voir également:
- Lien hypertexte excel
- Lien url - Guide
- Créer un lien pour partager des photos - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Renommer un lien hypertexte ✓ - Forum Bugs et suggestions
2 réponses
Bonjour
je pense qu'il devrait suffire d'enlever cette ligne:
Cells.Interior.ColorIndex = 0
crdlmnt
je pense qu'il devrait suffire d'enlever cette ligne:
Cells.Interior.ColorIndex = 0
crdlmnt
litchoutsou
Messages postés
90
Statut
Membre
1
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
90
Statut
Membre
1
j'aimerai que uniquement la nouvelle cellule soit sélectionner en couleur est pas toutes mes sélections juste la dernière
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 :
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.
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.
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
MERCI https://www.cjoint.com/c/IHzqaxTHOPk
