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
 

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@james60 :

Voir la charte § 1.3 et § 2.5

De plus mettre le code entre balise permet d'avoir un code plus digeste

1707249633564.png
 

Discussions similaires

Réponses
6
Affichages
272

Statistiques des forums

Discussions
312 535
Messages
2 089 387
Membres
104 154
dernier inscrit
Patou