Lien Hypertexte

Résolu
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   -  
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous et un super bon week-end
Je suis sur Excel 2019
J'ai une formule en VBA qui colorie la cellule d'arrivée du lien Hypertexte en Jaune,
Les lignes 6,8,10 sont coloriés en vert, mais lorsque le clic sur le lien la couleur sur la page de la cellule sélectionné disparaît y aurait-il une solution?
JE JOINS LE FICHIER
https://www.cjoint.com/c/KKBpvJZwJFR
MERCI

5 réponses

  1. The_boss_68 Messages postés 959 Date d'inscription   Statut Membre Dernière intervention   182
     
    Bonjour,

    Voir Pj avec une MFC + petit code vba pour actualiser

    https://www.cjoint.com/c/KKCp3CRSjcj

    Slts
    1
    1. litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   1
       
      merci beaucoup
      0
  2. litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   1
     
    BONSOIR et merci de m'avoir répondu si vite c'est super et ça fonctionne bien
    auriez vous une solution pour que la ligne 5 sur la première feuille Sortie ne ce colorie pas en jaune, svp regardez voir en Vba
    0
  3. The_boss_68 Messages postés 959 Date d'inscription   Statut Membre Dernière intervention   182
     
    Bonsoir,

    Par le biais du raccourci clavier Alt + F11..... Double clic sur ThisWorkbook qui se trouve en haut à gauche et supprime le code vba qui ce trouve dedans

    En espérant t'avoir aidé

    Slts
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   1
     
    BON DIMANCHE et merci encore pour ton aide
    pour mettre en jaune la cellule sélectionner j'ai mis cette formule dans chaque 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

    je n'arrive pas à trouvé la formule à mettre dans ThisWorkbook pour mettre en jaune la cellule sélectionne par le lien, et sans mettre en jaune la ligne 5 de la feuille Sortie
    je joint a nouveau le fichier
    https://www.cjoint.com/c/KKCivm5FXGR
    et encore Merci
    0