Liens hypertexte dans des listes déroulantes | ||
---|---|---|
Inscription: 16/01/2017
De Vulbens France
Messages:
11
Système d'exploitation: PC Version Excel utilisée: 2007,2016 |
Posté le : 16-01-2017 13h37
Bonjour à tous,
Petit nouveau dans ce forum, je vous demande d'avance de m'excuser si mes procédures d'utilisation du forum ne sont pas encore rodées.
J'ai un classeur Excel (.xlsm) qui présente sur une page des listes déroulantes contenant des liens hypertexte. J'ai récupéré le code VBA ci-dessous qui fonctionne très bien sur la première liste (Merci à Didier Fourgeot). Dans les autres listes, les liens sont visibles mais ne fonctionnent pas 'ABATS Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Cel As Range Dim ValidOk As Boolean On Error Resume Next ValidOk = ActiveCell.Validation.Formula1 = "=ListAbats" On Error GoTo 0 If Len(ActiveCell.Value) = 0 Or Not ValidOk Then Exit Sub Set Cel = [ListAbats].Find(what:=ActiveCell.Value, LookIn:=xlValues) Sh.Hyperlinks.Add Anchor:=ActiveCell, Address:=Cel.Hyperlinks(1).Address ActiveCell.Hyperlinks(1).SubAddress = Cel.Hyperlinks(1).SubAddress End Sub Ce code est répété plusieurs fois en modifiant le nom (SheetChange) et le nom de la plage de cellules (ListAbats). Merci d'avance de votre aide Bien cordialement Pierre
|
|
|
Forums - Tous les messages