XL 2021 Coloriser et décoloriser une cellule activée par lien hypertexte

[JMC]

Bonjour,

Tableau financier d'une association. Plusieurs feuilles de janvier à décembre, puis journal général avec un lien texte pour chaque catégorie (par exemple "Cotisations adhérents" et le montant de janvier). Je voudrais coloriser et décoloriser une cellule entière activée par lien hypertexte. La page de janvier que j'ai volontairement coloriser pour montrer ce que j'aimerais avoir. Et bien sur, qui se décolorise lorsque je clique sur un autre lien, ou dans une case à coté.
Merci pour votre aide

 

[JMC]

Bonjour à tous,
Je suppose que personne ne veut m'aider vu le dernier message de Phil69970 qui me dite : "Bonne chance" (voir son message #14#) parce que je me suis trompé deux ou trois fois en joignant un fichier joint.... au lieu d'aider les gens qui ne sont pas spécialiste.
Je vais être banni mais pas grave.
Alors si quelqu'un veut prendre le relais et m'aider dans ma demande, je lui en serai reconnaissant.
Cordialement

​

 

[patricktoulon]

Bonjour
je te suggère d'aller voir ceci tu pourrais t'en inspirer

effet de surol sur le texte des cellule et coloration de la ligne survolée + d'autre utilités

Bonjour à tous aujourd'hui je vais tenter de vous présente l'effet de survol sur le texte des cellules dans vos fichiers excel dans la video je vous montre la méthode qui se décante sous deux sub methodes(range et names) et 3 utilités dans 3...

excel-downloads.com

après à la sélection du lien vers la cellule je pense que l'event change suffirait
au mieux un flag a la sélection de la feuille des lien et l'event shange dans le thisworkbook
bref il y a certainement à faire

 

[TooFatBoy]

Je suppose que personne ne veut m'aider vu le dernier message de Phil69970

À moins que Phil69970 n'y soit pour rien, et que ce soit juste le manque d'explications de ce que tu voudrais obtenir qui en soit la raison.

 

[crocrocro]

Bonjour le fil,
@JMC a commis probablement des maladresses mais, nouveau sur le site, je pense qu'il faut être indulgent.
Les habitués ont dû voir passer pas mal de posts où il y avait bien plus de raisons de s'agacer !
Bon, c'est l'automne, il pleut, on va passer à l'heure d'hiver, alors on peut comprendre une poussée de mauvaise humeur passagère.

 

[Phil69970]

Bonjour à tous

@JMC

Tu me prêtes un pouvoir que je n'ai pas

Je vais être banni mais pas grave.

En ce qui me concerne 15 messages pour avoir un fichier vaguement d'aplomb cela me dépasse et surtout avec des bouts d'explications minuscules c'est ce qui m'a fait dire au post # 14 "Bonne chance"
Dit autrement je passe mon chemin et laisse à d'autres personnes de répondre si elles comprennent mieux que moi la demande.

De plus ne pas avoir expliqué correctement ou savoir s'expliquer/s'exprimer correctement sur un forum n'est pas un motif de "bannissement" et heureusement car des jours le forum serait désert !!!!
Idem pour le fichier qui n'est pas le bon mais plutôt lasse la personne qui essaye d'aider tout simplement.

Après il y a des jours ou le demandeur est "moins bon que d'habitude" et il y a des jours ou ceux qui veulent aider sont "moins réceptifs que d'habitude"
Et pour terminer on va dire que nous sommes tous les deux pour cette demande dans un jour "sans"
Match nul balle au centre !!!!

 

[TooFatBoy]

Bon, c'est l'automne, il pleut, on va passer à l'heure d'hiver, alors on peut comprendre une poussée de mauvaise humeur passagère.

J'espère que quand tu ne seras plus de mauvaise humeur tu posteras une réponse à sa question, car j'avoue que je suis très curieux de comprendre quel fonctionnement est attendu.

 

[crocrocro]

Rebonjour le fil,
voici le code à mettre dans la feuille JOURNAL GENERAL 2025
et bien sûr, il faut enregister sous le fichier avec l'extension .xlsm

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Lien As String, Cellulelien As String, FeuilleLien As String
    Lien = Target.Range.Hyperlinks.Item(1).SubAddress
    FeuilleLien = Left(Lien, InStr(1, Lien, "!") - 1)
    Cellulelien = Mid(Lien, InStr(1, Lien, "!") + 1)
    Sheets(FeuilleLien).Range(Cellulelien).Interior.Color = vbYellow
End Sub

EDIT : le fichier en pj
Dans mon code, j'ai fait la supposition suivante : tous les liens hypertexte de la feuille sont sur le même schéma que celui de Cotisations adhérents (J6)
@TooFatBoy : Je ne suis pas de mauvaise humeur

EDIT 2 : je n'ai pas compris quand doit-on décoloriser ?

 

[JMC]

Bonjour à tous,
Je vous prie de m'excuser si mes propos ont vexés certains. Je suis débutant dans ce magnifique outils qu'est excel. Mais nous avons tous débuter au bas de l'échelle un jour ou l'autre.
Ma demande est simple. Tout est dans le titre "Coloriser et décoloriser une cellule activée par un lien hypertexte" Lorsque je clique sur un lien dans "Journal Général" (par exemple "Janvier" et "Cotisations Adhérents(es)") celui ci me renvoie sur le mois concerné à la colonne "Cotisations..."
Lorsque je clique sur une autre demande (peu importe le mois et la cellule), que ma dernière demande soit décoloriser pour laisser place à ma nouvelle demande, et ainsi de suite.

XL 2013 - coloration d'une cellule activée par un lien hypertexte

bonjour, je voudrais savoir comment faire pour que la cellule activée par un lien hypertexte soit visible, par exemple si je clique sur une cellule de la feuille 2 la cellule qui la correspond dans l'autre feuille se colore. merci d'avance

excel-downloads.com

Rebonjour le fil,
voici le code à mettre dans la feuille JOURNAL GENERAL 2025
et bien sûr, il faut enregister sous le fichier avec l'extension .xlsm

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Lien As String, Cellulelien As String, FeuilleLien As String
    Lien = Target.Range.Hyperlinks.Item(1).SubAddress
    FeuilleLien = Left(Lien, InStr(1, Lien, "!") - 1)
    Cellulelien = Mid(Lien, InStr(1, Lien, "!") + 1)
    Sheets(FeuilleLien).Range(Cellulelien).Interior.Color = vbYellow
End Sub

EDIT : le fichier en pj
Dans mon code, j'ai fait la supposition suivante : tous les liens hypertexte de la feuille sont sur le même schéma que celui de Cotisations adhérents (J6)
@TooFatBoy : Je ne suis pas de mauvaise humeur

EDIT 2 : je n'ai pas compris quand doit-on décoloriser ?

Bonjour et merci.
Je parlais plutôt de moi pour la mauvaise humeur...
Ce que j'entends par décoloriser, c 'est lorsque je clique sur un autre lien dans le" journal general", que la cellule de ma demande précédente redevienne neutre et que la nouvelle se colorise et ainsi de suite. De même si je clique sur une autre cellule dans la page du même mois.. Je suis un peu compliqué je le reconnais.
Petite question ; pour les autres mois janvier à décembre, cela se fera automatiquement lorsque je créerai un lien hypertexte ?
J'ai oublie de dire que le fichier que j'ai mis en piece jointe, n'est pas le définitif. Celui là il n'y a que 3 mois.
Encore merci

 

[crocrocro]

Ce que j'entends par décoloriser, c 'est lorsque je clique sur un autre lien dans le" journal general", que la cellule de ma demande précédente redevienne neutre et que la nouvelle se colorise et ainsi de suite. De même si je clique sur une autre cellule dans la page du même mois.. Je suis un peu compliqué je le reconnais.

Avec cet dernière précision, il me semble comprendre le but recherché (mais je peux me tromper) :
n'est-il pas simplement de mettre en évidence la cellule active dans la feuille Janv Fév ...
Finalement, peu importe si on y est arrivé depuis un lien hypertexte ou non.
La règle pourrait être si je suis sur les feuilles Jan, Fev ou Mars (actuellement), si j'ai sélectionné une seule cellule, si cette cellule se situe à partir de la ligne 6 (à voir quelle règle pour la colonne), je la colorise en jaune (par exemple) et dès que je change de cellule, je la décolorisee.
Et pour faire simple d'un point de vue programmation, je décolorisee toute le tableau puis je me pose la question cellule unique ...

Petite question ; pour les autres mois janvier à décembre, cela se fera automatiquement lorsque je créerai un lien hypertexte ?

Oui.
Question @JMC : avez-vous testé mon fichier ?

 

[JMC]

Avec cet dernière précision, il me semble comprendre le but recherché (mais je peux me tromper) :
n'est-il pas simplement de mettre en évidence la cellule active dans la feuille Janv Fév ...
Finalement, peu importe si on y est arrivé depuis un lien hypertexte ou non.
La règle pourrait être si je suis sur les feuilles Jan, Fev ou Mars (actuellement), si j'ai sélectionné une seule cellule, si cette cellule se situe à partir de la ligne 6 (à voir quelle règle pour la colonne), je la colorise en jaune (par exemple) et dès que je change de cellule, je la décolorisee.
Et pour faire simple d'un point de vue programmation, je décolorisee toute le tableau puis je me pose la question cellule unique ...

Oui.
Question @JMC : avez-vous testé mon fichier ?

Encore merci.
J'ai téléchargé un problème poser justement à ce qui correspond à ma demande. Je te le mets en pièce jointe.
Dans son fichier, il clique sur le lien hypertexte en "feuille 1" qui l'envoie sur le "bilan" qui est surligné en rouge. Il revient sur sa "feuille 1", clique sur un autre lien qui l'envoie à nouveau sur le "bilan" et la 1ere cellule a repris sa couleur d'origine, alors que la 2eme est devenue rouge. Par contre la cellule reste rouge jusqu'à une nouvelle demande (ca encore, ce n'est pas bien grave)
Pas facile a gérer je m'en doute.

 

[crocrocro]

En oj un fichier correspondant à mon hypothèse précédente avec
le code d'un module

Sub ActualiserCouleur(pFeuilleLien As String, pCellulelien As String)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Sheets(pFeuilleLien).Range("A6", Sheets(pFeuilleLien).Range("A6").SpecialCells(xlLastCell)).Interior.ColorIndex = xlColorIndexNone
    If Sheets(pFeuilleLien).Range(pCellulelien).Row >= 6 Then Sheets(pFeuilleLien).Range(pCellulelien).Interior.Color = vbYellow
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Le code de chaque feuille mensuelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActualiserCouleur ActiveSheet.Name, Target.Address
End Sub

 

[TooFatBoy]

@TooFatBoy : Je ne suis pas de mauvaise humeur

Ah, c'est cool. Donc en fait aucun de nous quatre n'est vraiment de mauvaise humeur et tout va bien.

Je vous prie de m'excuser si mes propos ont vexés certains. Je suis débutant dans ce magnifique outils qu'est excel. Mais nous avons tous débuter au bas de l'échelle un jour ou l'autre.

Effectivement on en est tous passé par-là et moi-même, bien qu'utilisant Excel depuis plusieurs années, je suis toujours
"débutant" car je n'utilise que les deux ou trois fonctions que je connais, donc je découvre tous les jours des choses nouvelles pour moi en parcourant le forum.

Il n'y a pas qu'en Excel qu'il faut débuter : quand on arrive sur un forum, il est impossible d'en connaître immédiatement les us et coutumes de celui-ci, et t'inquiète on le comprends tous parfaitement.

Ici les coutumes sont : un bonjour au début de chaque message, fournir un petit Classeur Anonymisé et Représentatif, héberger ledit classeur sur le forum, pas de cross-posting (poser la même question sur un autre forum), et je crois que c'est tout.


Ben tu vois, quelqu'un a répondu à ton appel.
Bienvenue sur le forum.

 

[JMC]

Ah, c'est cool. Donc en fait aucun de nous quatre n'est vraiment de mauvaise humeur et tout va bien.



Effectivement on en est tous passé par-là et moi-même, bien qu'utilisant Excel depuis plusieurs années, je suis toujours
"débutant" car je n'utilise que les deux ou trois fonctions que je connais, donc je découvre tous les jours des choses nouvelles pour moi en parcourant le forum.

Il n'y a pas qu'en Excel qu'il faut débuter : quand on arrive sur un forum, il est impossible d'en connaître immédiatement les us et coutumes de celui-ci, et t'inquiète on le comprends tous parfaitement.

Ici les coutumes sont : un bonjour au début de chaque message, fournir un petit Classeur Anonymisé et Représentatif, héberger ledit classeur sur le forum, pas de cross-posting (poser la même question sur un autre forum), et je crois que c'est tout.


Ben tu vois, quelqu'un a répondu à ton appel.
Bienvenue sur le forum.

Merci à toi.

 

[TooFatBoy]

Ma demande est simple. Tout est dans le titre "Coloriser et décoloriser une cellule activée par un lien hypertexte"

Si c'était si simple et si tout était dans le titre, on n'aurait pas besoin que tu nous expliques ce que tu veux réellement.

Lorsque je clique sur un lien dans "Journal Général" (par exemple "Janvier" et "Cotisations Adhérents(es)") celui ci me renvoie sur le mois concerné à la colonne "Cotisations..."
Lorsque je clique sur une autre demande (peu importe le mois et la cellule), que ma dernière demande soit décoloriser pour laisser place à ma nouvelle demande, et ainsi de suite.

Autrement dit, il s'agit dans ton exemple de cliquer sur la cellule se trouvant à l'intersection de la ligne du mois de janvier et de la colonne "Cotisations Adhérents(es)", dans la feuille "Journal Général".
Et cela doit t'afficher la feuille du mois de janvier, en mettre couleur la colonne "Cotisations Adhérents(es)".
Donc c'est en fait la colonne ciblée qu'il faut colorier. C'est bien ça ?

Tu veux colorier quoi : la cellule cible, toute la colonne du tableau cible, seulement l'en-tête du tableau cible ?


Tu as vraiment des données jusqu'en EK48 dans toutes tes feuilles ?

 

[JMC]

Si c'était si simple et si tout était dans le titre, on n'aurait pas besoin que tu nous expliques ce que tu veux réellement.



Autrement dit, il s'agit dans ton exemple de cliquer sur la cellule se trouvant à l'intersection de la ligne du mois de janvier et de la colonne "Cotisations Adhérents(es)", dans la feuille "Journal Général".
Et cela doit t'afficher la feuille du mois de janvier, en mettre couleur la colonne "Cotisations Adhérents(es)".
Donc c'est en fait la colonne ciblée qu'il faut colorier. C'est bien ça ?

Tu veux colorier quoi : la cellule cible, toute la colonne du tableau cible, seulement l'en-tête du tableau cible ?


Tu as vraiment des données jusqu'en EK48 dans toutes tes feuilles ?

Non pas jusqu'à EK48
Je vais refaire le fichier et le remettre.
Pour ma demande la cellule cible.
Question qui n'a rien a voir (ou presque) pour ne pas finir à moitié couillons (l'autre moitié est déjà atteinte ) comment faire tout ce VBA. Comment cela fonctionne ? Où puis je me renseigner et apprendre ? Si tu as un site ou autre... Car je suppose que chaque fichier est unique, et que le VBA d'un tableau ne peut pas servir à un autre tableau
Merci d'avance