Lien hypertexte vers feuille cachée

[matthieu2701]

Bonjour,

Je suis entrain de faire un fichier excel dans lequel je souhaite faire des liens hypertextes vers des fichiers words (procédures de mon boulot) mais aussi vers differentes feuilles excel.

Par exemple, dans la feuille OMEGA j'ai plusieurs procèdures. Comme je vais en avoir beaucoup, je veux qu'en cliquant sur MES (lien hypertexte) cela me renvoi vers la feuille MES. Jusqu'ici j'y arrive.

Par contre, je souhaite que la feuille MES soit cachée. Le lien hypertexte MES dans la feuille OMEGA servira à renvoyer vers la feuille cachée MES.

J'espère que j'ai été assez clair.

Merci par avance pour votre aide.

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Bonsoir.
Dans "Feuil1 (OMEGA)":

Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Target.SubAddress = "MES!A1" Then Feuil2.Visible = xlSheetVisible: Feuil2.Activate
End Sub

Dans "Feuil2 (MES)":

Option Explicit

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub

Remarque: personnellement je ne mettrait pas de lien hypertexte pour accéder aux feuilles du même classeur dont le nom apparaît dans la cellule.
Une Worksheet_SelectionChange peut activer la feuille tout aussi bien.
À +

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

Comment faire une "Worksheet_SelectionChange" ? Désolé je m'y connais pas en VBA.

J'aimerais aussi faire une section "RECHERCHE". On tape la procèdure recherchée sur la 1ere feuille et cela nous emmène directement sur la feuille qui contient le mot recherché.

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Aller dans un module de feuille (et non un module standard).
Regardez les deux listes déroulantes qui surmontent la fenêtre de code
Dans celle de gauche (infobulle "Objet"), où "(Général)" est souvent sélectionné au départ, sélectionnez Worksheet, ça suffit.
Sinon, ou s'il vous en faut une autre, allez la sélectionner dans la liste de droite (infobulle "Procédure").
Cordialement.

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

Aller dans un module de feuille (et non un module standard).
Regardez les deux listes déroulantes qui surmontent la fenêtre de code
Dans celle de gauche (infobulle "Objet"), où "(Général)" est souvent sélectionné au départ, sélectionnez Worksheet, ça suffit.
Sinon, ou s'il vous en faut une autre, allez la sélectionner dans la liste de droite (infobulle "Procédure").
Cordialement.

Ensuite comment faire pour me rendre sur la feuille MES lorsque je clique sur MES sur la feuille OMEGA ?

Avez-vous vu ma question pour la fonction "RECHERCHE" ?

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Ensuite comment faire pour me rendre sur la feuille MES lorsque je clique sur MES sur la feuille OMEGA ?

Je vous laisse chercher un peu pour apprendre. Vous avez les 3/4 de la solution en main, dont l'instruction qui le fait et que je vous ai indiquée. Target représente la plage (on dit l'objet Range) qui a été sélectionné. Trois instructions suivantes pourront vous être utiles:

On Error Resume Next
...
If Err Then
   ...
   End If

Oui j'ai vu pour RECHERCHE sauf Rien dans votre fourniture à quoi le raccrocher.

P.S. Vous pouvez utiliser la touche F1 quand le curseur texte est sur un mot clé du langage, voire une propriété ou une méthode de l'application hôte.
À +

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

Voilà le fichier avec une feuille Accueil. Je souhaite que la recherche se fasse à partir de cette feuille.

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Ca a l'air pas mal tout ça:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Rechercher Target.Value, "Modification d'une cellule"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Rechercher Target.Value, "Sélection d'une cellule"
End Sub

Private Sub Rechercher(ByVal Z As String, ByVal Titre As String)
Dim F As Long, Rés As Range
If Z = "" Then Exit Sub
If MsgBox("Voulez vous chercher """ & Z & """ ?", vbQuestion + vbYesNo, Titre) = vbNo Then Exit Sub
For F = 2 To Worksheets.Count
   Set Rés = Worksheets(F).Cells.Find(What:=Z, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not Rés Is Nothing Then Exit For
   Next F
If Rés Is Nothing Then MsgBox "Ipossible de trouver """ & Z & """ dans le reste du classeur", vbInformation, "Recherche": Exit Sub
Application.Goto Rés
End Sub

Avec ça vous pouvez taper n'importe quoi n'importe où dans votre feuille accueil, voire sélectionner un texte préexistant.
À +

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

Merci pour la fonction rechercher.
Je resterais demain.

Par contre, je n'y arrive pas pour le renvoi sur la feuille MES

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Oui, je n'ai pas retrouvé, dans les modules de feuilles de ce que vous avez renvoyé, les procédures que je vous avais indiquées. Ça m'a un peu étonné.
À +

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

J'ai essayé mais j'ai supprimé car ça ne fonctionnais pas.

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

Ca a l'air pas mal tout ça:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Rechercher Target.Value, "Modification d'une cellule"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Rechercher Target.Value, "Sélection d'une cellule"
End Sub

Private Sub Rechercher(ByVal Z As String, ByVal Titre As String)
Dim F As Long, Rés As Range
If Z = "" Then Exit Sub
If MsgBox("Voulez vous chercher """ & Z & """ ?", vbQuestion + vbYesNo, Titre) = vbNo Then Exit Sub
For F = 2 To Worksheets.Count
   Set Rés = Worksheets(F).Cells.Find(What:=Z, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not Rés Is Nothing Then Exit For
   Next F
If Rés Is Nothing Then MsgBox "Ipossible de trouver """ & Z & """ dans le reste du classeur", vbInformation, "Recherche": Exit Sub
Application.Goto Rés
End Sub

Avec ça vous pouvez taper n'importe quoi n'importe où dans votre feuille accueil, voire sélectionner un texte préexistant.
À +

Après avoir cliquer sur OUI pour répondre à la question "Voulez vous rechercher "MES" ?" j'ai ce message "Erreur d'éxécution "448". Argument nommé introuvable.

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Curieux, chez moi ça marche avec un range comme référence. Question de version d'Excel sans doute...
Si c'est bien Application.Goto qui pose problème ça peut se remplacer par:

Rés.Worksheet.Activate
Rés.Select

Avec une nuance infime dans les conséquences dont je ne parlerai pas.


À part ça, atteindre la feuille en sélectionnant une cellule contenant son nom. Hmmmm ! C'est une peau de banane vos cellules fusionnées ! Voici la procédure qui s'en accomode :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Feui As Worksheet
On Error Resume Next
Set Feui = ThisWorkbook.Worksheets(Target(1, 1).Value)
If Feui Is Nothing Then Exit Sub
Feui.Visible = xlSheetVisible: Feui.Activate
End Sub

Le Target(1, 1) évidemment vous ne pouviez pas le deviner !

P.S. Il est à remarquer que si le groupe fusionné valant "MES" n'est pas déjà sélectionnée dans la feuille OMEGA (auquel cas il ne se passe rien), le fait de chercher "MES" dans Acceuil aboutit, à cause de cette dernière procédure, à activer la feuille MES ! Faut-il empêcher cela ?
À +

 

[matthieu2701]

Re : Lien hypertexte vers feuille cachée

La feuille OMEGA je vais la supprimer.
La recherche MES sur la feuille accueil doit m'emmener sur la feuille MES.

 

[Dranreb]

Re : Lien hypertexte vers feuille cachée

Bonjour
S'il y aura écrit "MES" dans une cellule de cette feuille ça devrait aller
À +