Titre du sujet : Liens hypertexte et menu déroulant
par laurent22 le 01/02/2011 11:35:10
Bonjour,
Nouvellement inscrit sur le site et relativement novice en matières de macro sous excel, je vous remercie par avance de l'aide que vous pourriez m'apporter.
Voilà, je cherche à associer aux choix d'un menu déroulant des liens hypertextes qui renverraient vers d'autres documents (jpg ou pdf). En cherchant sur internet j'ai eu la chance de tomber sur une macro proposée par mydearfriend qui fonctionne impeccablement bien pour un menu déroulant(au passage merci beaucoup).
Je souhaiterais pouvoir appliquer le même type de macro à un deuxième menu déroulant de la même feuille et là par contre ça coince. Cela est il possible et si oui comment pourrais je procéder?
Ci dessous la macro enquestion :
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 = "=pictos"
On Error GoTo 0
If Len(ActiveCell.Value) = 0 Or Not ValidOk Then Exit Sub
Sh.Hyperlinks.Add Anchor:=ActiveCell, Address:=[pictos].Find _
(what:=ActiveCell.Value, LookIn:=xlValues).Hyperlinks(1).Address
End Sub
Edition par le Webmaster pour insérer le code VBA convenablement, comme indiqué SOUS CE LIEN.
Merci d'y penser la prochaine fois !
D'avance merci.
| 
Didier FOURGEOT