Macro VBA associée à un lien hypertexte

Version imprimable

Voir 40 message(s) de cette discussion en une page

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 :)

21/11/2018, 13h32
BENNASR

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
21/11/2018, 13h35
MarcelG

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.
21/11/2018, 13h38
laeti6919

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.

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

Code:

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:

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:

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

21/11/2018, 14h17
MarcelG
Salut,

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

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!:calim2: 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.

1 pièce(s) jointe(s)

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:

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:

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

21/11/2018, 15h16
laeti6919

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 ?
21/11/2018, 15h18
laeti6919

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 ^^
21/11/2018, 15h23
BENNASR

Pour garder les entêtes de ligne :

modifier la ligne 11 du code

Code:

For ligne = 1 To 1000

par

Code:

For ligne = 2 To 1000

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

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

21/11/2018, 15h34
MarcelG

Citation:

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.
21/11/2018, 15h37
laeti6919

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.
21/11/2018, 15h41
BENNASR

Citation:

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

explique svp ?? affichage et masquage de quoi??
21/11/2018, 17h45
laeti6919

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"
21/11/2018, 18h35
BENNASR

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
22/11/2018, 10h15
laeti6919

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 :)

bonjour
adaptez et essayez avec :

Code:

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

Code:

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:

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

Bonjour à vous,

Benassr, dans le post #7

Citation:

à 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:

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

22/11/2018, 11h16
BENNASR

Bonjour MARCEL

Citation:

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

avec grand plaisir je note tes remarques toujours pertinentes
BONNE JOURNÉE

Voir 40 message(s) de cette discussion en une page

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

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