Bouton pour passer d'un onglet a l'autre

[angel09]

Bonsoir

j'aimerai lorsque je clique sur C6
Il me ramène sur l'onglet (phase de démarrage)

lorsque je clique sur C10
Il me ramène sur l'onglet (phase d'exploitation)

lorsque je clique sur C15
Il me ramène sur l'onglet (phase de prise de bénéfice)

merci pour votre aide

 

[mth]

Re : Bouton pour passer d'un onglet a l'autre

re bonsoir angel

Voici un exemple avec un lien hypertexte.
Pour le mettre en place, tu sélectionnes ta cellule, puis clic droit de la souris, choisis "Lien hypertexte".
Là, tu choisis "Dans ce document", puis dans la partie droite de la fenêtre tu sélectionnes l'onglet de ton choix.
Par défaut le lien se fait sur la cellule A1, mais tu peux modifier cette cellule (en haut de la fenêtre).

Bonne nuit,

mth

Edit: Hello Dull
Bises,
m

 

[angel09]

Re : Bouton pour passer d'un onglet a l'autre

merci pour ces conseilles
je voudrez masquer mes onglet et en cliquant
par exemple sur C6
il m'ouvre ma page esque c'est possible
j'ai masquer les onglets
encore merci pour votre aide

 

[Dull]

Re : Bouton pour passer d'un onglet a l'autre

Salut angel09, Mimi , le Forum

essaye ce code. je l'ai commenté pour que tu puisse éventuellement l'adapter

[COLOR=BLUE]Option Explicit[/COLOR] [COLOR=GREEN]'Oblige la déclaration des Variables[/COLOR]
[COLOR=BLUE]Private Sub[/COLOR] Worksheet_SelectionChange([COLOR=BLUE]ByVal[/COLOR] Target [COLOR=BLUE]As[/COLOR] Range)
[COLOR=BLUE]Dim[/COLOR] i [COLOR=BLUE]As Byte[/COLOR] [COLOR=GREEN]' Déclare la variable i[/COLOR]
[COLOR=BLUE]For[/COLOR] i = 2 [COLOR=BLUE]To[/COLOR] Sheets.Count [COLOR=GREEN]'compte le nb de feuille a partir de la 2ème[/COLOR]
    Sheets(i).Visible = xlSheetHidden [COLOR=GREEN]' cache les dites-feuilles[/COLOR]
[COLOR=BLUE]Next[/COLOR] i [COLOR=GREEN]'Prochaine Feuille[/COLOR]
[COLOR=BLUE]If Not[/COLOR] Application.Intersect(Target, Range("C6,C10,C15")) [COLOR=BLUE]Is Nothing Then[/COLOR] _
[COLOR=GREEN]' si les Cellules cibles sont C6, C10 ou C15[/COLOR]
[COLOR=BLUE]If[/COLOR] Target.Count > 1 [COLOR=BLUE]Then Exit Sub[/COLOR] [COLOR=GREEN]' Si plus d'une cellule sélectionné : sortir de la Sub[/COLOR]
[COLOR=BLUE]If Not[/COLOR] FeuilExist([COLOR=BLUE]CStr[/COLOR](Target)) [COLOR=BLUE]Then[/COLOR] _
MsgBox "Cet onglet n'existe pas", vbCritical: [COLOR=BLUE]Exit Sub[/COLOR] [COLOR=GREEN]'Message si la feuille n'existe pas[/COLOR]
    [COLOR=BLUE]With[/COLOR] Sheets([COLOR=BLUE]CStr[/COLOR](Target)) [COLOR=GREEN]' avec les Feuilles cibles[/COLOR]
        .Visible = xlSheetVisible [COLOR=GREEN]' rends la feuille visible[/COLOR]
        .Activate [COLOR=GREEN]'l'Active[/COLOR]
    [COLOR=BLUE]End With[/COLOR] [COLOR=GREEN]'fin de la condition "AVEC"[/COLOR]
[COLOR=BLUE]End If[/COLOR] [COLOR=GREEN]' fin de la condition "CELLULES CIBLES C6, C10, C15"[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

[COLOR=BLUE]Function[/COLOR] FeuilExist(Nom [COLOR=BLUE]As String[/COLOR]) [COLOR=BLUE]As Boolean[/COLOR]
[COLOR=GREEN]'myDearFriend![/COLOR]
    [COLOR=BLUE]On Error Resume Next[/COLOR]
    FeuilExist = [COLOR=BLUE]Not[/COLOR] Sheets(Nom) [COLOR=BLUE]Is Nothing[/COLOR]
[COLOR=BLUE]End Function[/COLOR]

Fait en sorte que le nom de tes liens soient rigoureusement identique au nom de tes onglet

Bises Mireille et Bonne Journée à tous
Bonne Journée

 

[angel09]

Re : Bouton pour passer d'un onglet a l'autre

merci mai comment et ou je met ce code ?
merci de m'aider

 

[Dull]

Re : Bouton pour passer d'un onglet a l'autre

Salut Angel09, [sourire] Mireille , le Forum


1/ Sélectionne et copie le Lien supprimé

2/ Click Droit sur l'onglet Feuil1 de ton fichier

3/ Double Click sur Feuil1 (Feuil1) à adapter selon ton fichier



4/ Colles-y le code

5/ Ferme le VBA

et cela devrait fonctionner à chaque click sur un lien Hypertexte

ou alors regarde le fichier joint

Bonne Journée

 

[angel09]

Re : Bouton pour passer d'un onglet a l'autre

Vous pourriez me le faire s'il vous plait
je n'y arrive pas merci pour votre aide

 

[Dull]

Re : Bouton pour passer d'un onglet a l'autre

re le Fil,

...ou alors regarde le fichier joint

Angel09

As-tu seulement ouvert le fichier que nous t'avons concocté Mth et moi?

essaye-le au moins ...ou alors envois nous ton Fichier réel pour qu'on puisse essayer de l'adapter

Bonne Journée

 

[angel09]

Re : Bouton pour passer d'un onglet a l'autre

merci regarder quand je clique sur (phase de prise de bénéfice)
il ne se passe rien

 

[Dull]

Re : Bouton pour passer d'un onglet a l'autre

Re le fil

Apparemment tu n'as pas la culture VBA et ce n'est pas un reproche

sauf que j'ai essayé de commenter mes codes et ajouté

Fait en sorte que le nom de tes liens soient rigoureusement identique au nom de tes onglets

"phase de prise de bénéfice" est différent de "phase de prise de bénéfices"

Ajoute un s à la fin du lien Hypertexte et tu n'auras plus le message.

Bonne Journée

 

[Robert]

Re : Bouton pour passer d'un onglet a l'autre

Bonjour le fil, bonjour le forum,

Bon Angel c'est pas vraiment un reproche... Mais là tu nous l'as bien énervé notre Dull.
Tu te rends pas compte mais il fait chaud chez lui, très chaud et ces "coups de calgon" c'est pas bon pour son coeur. Alors il faut le modérer cet homme... Bois un coup va Dull ça ira mieux ! Ha, tu en as déjà bu deux... Bon ça va je vois que tu te soignes...

 

[angel09]

Re : Bouton pour passer d'un onglet a l'autre

merci ça marche merci pour votre aide

 

[Dull]

Re : Bouton pour passer d'un onglet a l'autre

Re le Fil, Salut Robert

Heu...c'estsiévident... Non... pas l'agacement ...leCitronvert

Bonne Journée les amis

@++