hyperlien dans liste déroulante

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

billboule

XLDnaute Nouveau
Bonjour,

Je cherche à réutiliser la macro proposée par MDF dans le post #9 de la page https://www.excel-downloads.com/threads/hyperlien-dans-liste-deroulante.55674/.

En gros on veut avoir les liens hypertexte qui s'affichent dans la liste déroulante.

Le code est le suivant :
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 01/03/2006
'---------------------------------------------------------------------------------------
'Placée dans le module de code ThisWorkbook, cette procédure permettra de gérer les listes
'de validation contenant la formule "=listLiens" dans n'importe quelle feuille du classeur

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ValidOk As Boolean
On Error Resume Next
ValidOk = ActiveCell.Validation.Formula1 = "=listLiens"
On Error GoTo 0
If Len(ActiveCell.Value) = 0 Or Not ValidOk Then Exit Sub
Sh.Hyperlinks.Add Anchor:=ActiveCell, Address:=[listLiens].Find _
(what:=ActiveCell.Value, LookIn:=xlValues).Hyperlinks(1).Address
End Sub

Je souhaite modifier ce code. Il marche bien mais produit une erreur quand le champ choisi ne contient pas de lien hypertexte : ma liste est mixte et contient des cellules avec hypertexte et des cellules sans. J'imagine qu'il faut changer la ligne "ValidOk" et rajouter la condition "ET la cellule contient un lien hypertexte".... mais je ne sais pas comment faire !

Merci beaucoup !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
771
Réponses
8
Affichages
1 K
Retour