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

The_boss_68 Messages postés 952 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
litchoutsou Messages postés 86 Date d'inscription   Statut Membre Dernière intervention   1
 
merci beaucoup
0
The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   182
 
Bonjour,

Voir Pj avec une MFC

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

Slts
0
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
The_boss_68 Messages postés 952 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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
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