Macro VBA associée à un lien hypertexte

**laeti6919** · 21/11/2018, 13h14

Bonjour,

Je vais tenter d'être le plus clair possible pour vous expliquer mon problème

J'ai un fichier Excel avec plusieurs onglets (ou feuilles), dans une des feuilles de calcul j'ai un tableau avec des différents titre imaginons dans les cellules, A1,A2, A3 etc ...voir ci dessous : (Colonne A, Colonne B, Colonne C avec 3 lignes)

Feuille n°1 nom : List action

Titre de l'étape	statut du doc en Phase 1	Statut du doc en Phase 2
Ameliorer la rentabilité	P	I
vendre des pieces	P	V
Valider des heures	D	V

....

Dans ma deuxième feuille j'ai un tableau explicatif de chaque étapes structurer un peu de la même manière, comme ci dessous : (Ce qu'il y a à l'intérieur n'a pas vraiment d'importance)

Feuille n°2 : Details

Titre de l'étape	Phase	Explication de l'étape et l'attendu	donnée d'entrée	donnée de sortie
Ameliorer la rentabilité	Phase 1	expliquer l'amélioration de la rentabilité avec un fichier	Le doc H rempli	Le doc Z rempli
vendre des pieces	Phase 1	faire un tableau avec les prix de ventes	Prix de vente des pièces	Le doc H rempli

......

L'idée c'est donc de faire un lien hypertexte (sur la cellule ou il y a le P de la feuille 1) qui me renvoi à la feuille n°2 (oublie de précision : cette deuxième feuille devra être masqué à l'ouverture du fichier excel), soit :
- une Macro avec le lien hypertexte de la cellule A2 vers la feuille n°2 dans ma cellule "P" de la feuille 1
- une Macro qui permet de démasquer la feuille 2
- une Macro qui permet de masquer les autres lignes et d'afficher uniquement dans le deuxième tableau les explications de "amélioration de la rentabilité"

Ensuite Sur la feuille 2 il y aura un click bouton en haut qui permettra de retourner a la feuille n°1 en remasquant la feuille n°2

J'ai trouvé des trucs sur internet mais je sais pas comment assembler en même temps ses trois macros.

Je sais pas si c'est clair lol

**BENNASR** · 21/11/2018, 13h32

bonjour
ça te convient si :
1/ Le choix de l'étape sur la feuille 1 se fait via une liste déroulante (la liste des étapes figurant dans la feuille2)
2/ Lors du choix vous aurez un message qui décrit cette étape

**MarcelG** · 21/11/2018, 13h35

Bonjour et bienvenu sur ce forum,

Pourrais-tu retourner ton code, s'il te plaît.

Sinon,

FAQ liens hypertexte

Dans cette discussion, tu trouveras au post #20 des liens vers les objets qui t'intéressent.

**laeti6919** · 21/11/2018, 13h38

hello,

Non, les étapes de la feuille 1 doit rester visible dans son ensemble, la c'est un extrait ce que j'ai présenté, l'idée est de voir l'ensemble des documents à fournir en phase 1, l'ensemble des doc a fournir en phase 2 et leur niveau de maturité (représenté par les P(préliminaire), D(définitif), V(validé)...etc)

le message je pense pas que ça soit une bonne idée car dans cette même ligne de la feuille 2 en colonne F par exemple (non représenté ici) je vais mettre un lien hypertexte simple pour renvoyer au document à remplir.

**laeti6919** · 21/11/2018, 14h08

Macro pour le masquage des lignes en fonction du titre de l'étape et de la phase

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub amelioration()
    Sheets("Details").Select
    Selection.AutoFilter
    Range("A2:G2").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="PHASE 1", VisibleDropDown:=False
    Selection.AutoFilter Field:=2, Criteria1:=Sheets("List Action").Range("A2").Text, VisibleDropDown:=False
    Selection.AutoFilter Field:=3, VisibleDropDown:=False
End Sub

Après j'avais trouvé ça pour l'affichage et masquage des feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub affichefeuille()
Dim sh As Worksheet
For Each sh In Worksheets
    Sheets("Details").Visible = xlSheetVisible
Next sh
End Sub
 
Sub masquage()
Dim sh As Worksheet
For Each sh In Worksheets
    Sheets("Details").Visible = xlSheetHidden
Next sh
End Sub

Enfin pour la partie lien hypertexte, je crois que j'ai navigué sur le lien que tu as envoyé, mais j'ai pas compris comment ça fonctionnait...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim objLink As Hyperlink
 
Set objLink = ActiveSheet.Hyperlinks.Add(Range("F2"), "d:\user\tuto.xls")
With objLink
    .SubAddress = "A1:C10"
    .Follow NewWindow:=True
End With

**MarcelG** · 21/11/2018, 14h17

Salut,

S'il te plaît, balise tes codes avec #

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub affichefeuille()
 Dim sh As Worksheet
 For Each sh In Worksheets
 Sheets("Details").Visible = xlSheetVisible
 Next sh
 End Sub

Cela ne correspond à rien!

Tu utilises une méthode, en l'occurrence "For", sans regarder le code inclus dans ce bloc.

Il te faut adapter le code concernant le lien hypertexte comme tous les autres.
Ce qui suggère une compréhension, bien entendu.

**BENNASR** · 21/11/2018, 15h02

Bonsoir laeti6919, MarcelG, la forum
Si j'ai bien compris ta demande tu peux faire avec ce code bricolé par un autodidacte qui mérite beaucoup d'amélioration
le principe :
La feuille 1 nommée "BASE" serve pour la saisie des données et je recommande que la colonne A soit une liste inspirée de la feuille ETAPE pour éviter tous risque d'erreur
La feuille 2 nommée "ETAPE" pour saisir les étape
double clic n'importe ou sur la ligne de saisie sur la feuille BASE t'oriente vers la description de l'étape on masquant les autres étape
double clic n'importe ou sur la feuille ETAPE t'oriente vers la feuille BASE
à améliorer et à tester et nous indiquer les remarques
Bonne continuation
Pour aller chercher l'Etape approprié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range
Sheets("ETAPE").Rows("1:1000").Hidden = False
CodeRech = Sheets("BASE").Cells(ActiveCell.Row, 1)
Set plage = Sheets("ETAPE").Range("A2:A" & [A65536].End(xlUp).Row)
With Sheets("ETAPE")
For Each cell In plage
 If cell.Value = CodeRech Then
 c = cell.Row
.Activate
For ligne = 1 To 1000
    If Sheets("ETAPE").Cells(ligne, 1) <> "" Then
        Sheets("ETAPE").Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next
Sheets("ETAPE").Cells(c, 1).Activate
ActiveCell.EntireRow.Hidden = False
 End If
Next cell
End With
ActiveCell.Select
End Sub

Pour revenir à la feuille BASE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Sheets("BASE").Select
End Sub

ci joint un esemple

**laeti6919** · 21/11/2018, 15h16

Oui c'est vraiment bien, mais est ce qu'on peut le faire en simple clique ? ou en double click obligatoire ?
Je peux éventuellement mettre en place une procédure d'explication d'utilisation si on peut pas c'est pas un problème

Est ce qu'on peut ajouter ce fameux truc d'affichage et masquage de la feuille ETAPE ?
Soit dès qu'on double click sur le P la page ETAPE s'affiche, et quand on dble click sur une autre cellule de ETAPE dans laquelle c'est écrit "retour page BASE" ça masque la page "ETAPE" et affiche la feuille "BASE"

Par contre du coup est ce qu'on peut garder l'affichage des titres dans la feuille ETAPE ?

**laeti6919** · 21/11/2018, 15h18

MarcelG,

Mes connaissances en macro sont pas forcément très élaborer c'est pour ça que je demande de l'aide ^^

J'ai trouvé ce code sur un forum, je ne sais pas ce qu'est un code en For je n'ai pas fini de lire le livre VBA pour les nuls ^^

**BENNASR** · 21/11/2018, 15h23

Pour garder les entêtes de ligne :

modifier la ligne 11 du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For ligne = 1 To 1000

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For ligne = 2 To 1000

**BENNASR** · 21/11/2018, 15h30

re
tu peux afficher toutes les lignes de la feuille ETAPE par un clic droite sur le souris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Sheets("ETAPE").Rows("1:1000").Hidden = False
End Sub

**MarcelG** · 21/11/2018, 15h34

Mes connaissances en macro sont pas forcément très élaborer c'est pour ça que je demande de l'aide ^^

Pas de problème, mais à quelques conditions
- Un minimum de recherche et de formation sur le Forum et peut-être ailleurs
- Expliciter clairement sa problématique
- Suivre les indications données
- Adapter le code proposé en le comprenant ligne par ligne, voire mot à mot, et revenir en cas de besoin.

Si tu ne connais pas la méthode "For", ce qui dur este est légitime, pourquoi ne pas chercher ce à quoi elle correspond avant de retourner un code la comprenant?

Dans un post précédent, le t'ai indiqué quelques liens.
Tu peux t'y référer.

**laeti6919** · 21/11/2018, 15h37

C'est génial BENNASR je viens de changer le code c'est plutôt cool

Maintenant il faut que je trouve l'histoire de l'affichage et masquage.

**BENNASR** · 21/11/2018, 15h41

Maintenant il faut que je trouve l'histoire de l'affichage et masquage.

explique svp ?? affichage et masquage de quoi??

**laeti6919** · 21/11/2018, 17h45

En faite je voudrai quand tu ouvres le document Excel (je pars du nom que tu m'as envoyé) "Evenement double clic entre feuilles"

il n'y ai que l'onglet "BASE" qui s'affiche et quand tu double click sur le P tu ailles sur la fiche "etape" (Qui est du coup par défaut masqué), c'est à dire que l'onglet "Etape" réapparait en bas des onglets et quand tu reviens vers l'onglet "BASE" ça remasque l'onglet "ETAPE" et retour sur le tableau de l'onglet "BASE"

**BENNASR** · 21/11/2018, 18h35

Bonsoir
sans VBA déja Excel prévoit cette option
allez à
Fichier / options / options avancées / afficher les options pour ce classeur / décocher afficher les onglets du classer

**laeti6919** · 22/11/2018, 10h15

Hello bennasr,

C'est un fichier que je met à disposition pour plusieurs personne, les gens ne doivent pas faire d'action de masquage et démasquage de la feuille, cela doit se faire en automatique car je vais verouillé le classeur

**BENNASR** · 22/11/2018, 10h30

bonjour
adaptez et essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
 Dim sh As Worksheet
 For Each sh In ThisWorkbook.Worksheets
  With sh
   If Not .Name = "MENU" Then .Visible = true
  End With
 Next
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets("BASE").Visible = True
Sheets("BASE").Select
 Sheets("ETAPE").Visible = False
End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Sheets("ETAPE").Rows("1:1000").Hidden = False
End Sub

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage As Range
 
Sheets("ETAPE").Rows("1:1000").Hidden = False
 
CodeRech = Sheets("BASE").Cells(ActiveCell.Row, 1)
Set plage = Sheets("ETAPE").Range("A2:A" & [A65536].End(xlUp).Row)
With Sheets("ETAPE")
For Each cell In plage
 If cell.Value = CodeRech Then
 c = cell.Row
.Activate
For ligne = 2 To 1000
    If Sheets("ETAPE").Cells(ligne, 1) <> "" Then
        Sheets("ETAPE").Rows(ligne & ":" & ligne).EntireRow.Hidden = True
    End If
Next
Sheets("ETAPE").Cells(c, 1).Activate
ActiveCell.EntireRow.Hidden = False
 End If
Next cell
End With
Sheets("ETAPE").Visible = True
Sheets("BASE").Visible = False
ActiveCell.Select
End Sub

**MarcelG** · 22/11/2018, 11h04

Bonjour à vous,

Benassr, dans le post #7

à améliorer et à tester et nous indiquer les remarques

Si je peux me permettre.
Ce code me semble assez lourd car affecté de redondances.

De plus, il faut rester prudent avec ActiveCell
Celle-ci pouvant être modifiée, il me semble oprtun de lui affecter une variable.

ma proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Private Sub trouve_étape()
 
Dim larange As Range
Dim coderech As String
Dim ligne As Integer
Dim plage As Range
Dim cell As Range
 
Set larange = ActiveCell
coderech = Worksheets("BASE").Cells(larange.Row, 1)
 
With Worksheets("ETAPE")
        .Cells.EntireRow.Hidden = False
        ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set plage = .Range("A1:A" & ligne)
        For Each cell In plage
                With cell
                        .EntireRow.Hidden = (.Value <> coderech)
                End With
        Next cell
        Set plage = Nothing
        Application.Goto larange
        Set larange = Nothing
End With
 
End Sub