Macro VBA associée à un lien hypertexte

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

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

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.

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

---

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.

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

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 ?

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 ^^

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

---

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.

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.

Citation:

---

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

---

explique svp ?? affichage et masquage de quoi??

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"

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

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

---

et

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

---

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

Bonjour Marcel,

Le code ne fonctionne pas.

Pour BennaSR,
Je retrouve plus le code que tu as mis pour l'affichage de la page BASE uniquement quand tu ouvres le fichier Excel, car celui que tu avais mis ne fonctionnais pas.

Pour les autres codes c'est presque ça sauf que je veux pas que la page BASE disparaisse quand je double click pour aller à "etape", je veux qu'elle reste affiché.
Par contre quand je dble click sur la page "ETAPE" et que je reviens sur la page "BASE" je veux que cette page "ETAPE" disparaisse.

Bonjour,

Citation:

---

Le code ne fonctionne pas.

---

Ma remarque avait pour objet le code de Benassr reporté au post #7.
Notre ami était ouvert à quelques remarques.
Je ne suis pas allé plus loin.

re
voir fichier joint et dire si c'est ce que tu cherches

Super merciii !!
C'est ce que je recherche !

Bravo BennaSR.

Et pour Marcel, pour répondre à ton post au début, je ne suis pas issu de formation informatique et je n'en ai jamais fait et je n'en ferai jamais...
Donc c'est vrai que je demande une solution clé en main mais si j'avais ne serais-ce qu'un temps soit peu le temps de me plonger à chercher et à comprendre le code VBA je le ferai avec toute la volonté du monde sauf que pour le moment ce n'est pas le cas...

Alors désolé de pas comprendre le "For" ou le "With" ou autre, et de mettre des codes qui correspondent à rien mais pour info j'ai cherché pendant plus de 3H sur internet ce que je souhaitais et je n'ai rien trouvé.

Donc maintenant je vais étudier ce qu'a fait BennaSR qui s'est donné beaucoup de mal et à qui je remercie vraiment beaucoup !!!

Merci à vous tout de même et je peux clotûrer le sujet :)

Salut,

Citation:

---

Donc c'est vrai que je demande une solution clé en main

---

Je suis désolé. Ce n'est pas l'objet du Forum.

Citation:

---

Alors désolé de pas comprendre le "For" ou le "With" ou autre, et de mettre des codes qui correspondent à rien mais pour info j'ai cherché pendant plus de 3H sur internet ce que je souhaitais et je n'ai rien trouvé

---

.

Alors là...!!!

Avec

Citation:

---

VBA EXCEL BLOC FOR NEXT

---

sur un moteur de recherche que je ne nommerai pas.
Ce lien en 1 seconde
la gestion des boucles par Silkyroad

Sans polémique.
L'objet du Forum est d'aider les participants à résoudre leur problématique et à progresser.
Cela suppose, bien entendu, un minimum d'investissement de leur part.
(Consultation de tutoriels, Développement personnel...)

Bonne continuation.

Ce que je déteste par dessus tout c'est qu'on prenne les gens pour des débiles...

Citation:

---

Alors désolé de pas comprendre le "For" ou le "With" ou autre, et de mettre des codes qui correspondent à rien mais pour info j'ai cherché pendant plus de 3H sur internet ce que je souhaitais et je n'ai rien trouvé
.

Alors là...!!!

Avec
VBA EXCEL BLOC FOR NEXT
sur un moteur de recherche que je ne nommerai pas.
Ce lien en 1 seconde
la gestion des boucles par Silkyroad

---

Quand je te parle que j'ai cherché c'est de mon sujet, pour le "For" je n'ai pas cherché car je m’intéresse plutôt au personne qui aide et pas ceux qui sont la pour critiquer...

Citation:

---

L'objet du Forum est d'aider les participants à résoudre leur problématique et à progresser.
Cela suppose, bien entendu, un minimum d'investissement de leur part.
(Consultation de tutoriels, Développement personnel...)

---

Ce que j'ai fais mais pour mon sujet...

Bref on va pas épiloguer sur le sujet 10 ans... Parce que de toute façon vous avez l'air d'avoir toujours raison :)

Bonne continuation

Citation:

---

Quand je te parle que j'ai cherché c'est de mon sujet, pour le "For" je n'ai pas cherché car je m’intéresse plutôt au personne qui aide et pas ceux qui sont la pour critiquer...

---

Tout est dit.