hyperlien dans liste déroulante

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

Cliquez pour agrandir...