Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Lien hypertexte dans forme rectangle

james60

XLDnaute Nouveau
je souhaiterais qu'une feuille appelée sommaire contenant des formes rectangles nommée de 1 à 6 et renvoyant chacun avec des liens hypertexte vers les feuilles respectives de 1 à 6. J'ai mis ce code dans sommaire mais cela masque bien les feuilles mais ne les affiche pas quand je clique sur un rectangle. voici le code
Public Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim strLinkSheet As String
Dim rng As Range

' Vérifier si la feuille contient le lien hypertexte
If Target.Parent.Parent.Name = "Sommaire" Then
Set rng = Target.Application.Range(Target.SubAddress)
If Not rng Is Nothing Then
' Récupérer le nom de la feuille associée au lien hypertexte
strLinkSheet = rng.Value

' Vérifier si le nom de la feuille n'est pas vide
If Len(strLinkSheet) > 0 Then
Sheets(strLinkSheet).Visible = True
Sheets(strLinkSheet).Select
End If
End If
End If

Application.ScreenUpdating = True
End Sub


Public Sub Worksheet_Activate()
Dim shp As Shape
Dim strSheetName As String

' Parcourir toutes les formes nommées sur la feuille
For Each shp In Me.Shapes
' Vérifier si la forme est un rectangle et si son nom est numérique
If shp.Type = msoShapeRectangle And IsNumeric(shp.Name) Then
' Récupérer le nom de la feuille associée à la forme nommée
strSheetName = shp.Name

' Masquer la feuille correspondante
Sheets(strSheetName).Visible = False
End If
Next shp
End Sub

Merci de votre aide
 

Discussions similaires

Réponses
49
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…