XL 2016 VBA : Démasquer onglet suite au nom de l'onglet taper dans une cellule.

[Yücel]

Bonjour,

Ma demande est écrite dans le fichier Excel.

Vous en remerciant par avance !

 

[sylvanu]

Re Bonjour Yücel,
Ce que vous demandez est impossible puisque si l'on clique sur un N° comme 1,2,3,4 il y a déjà une gestion de macro de liens hypertextes qui vous renvoie sur la feuille.
Au dernier post, je vous avais dit de ne pas mélanger les liens hypertextes avec des macros. Tout devient très compliqué à gérer.

 

[Yücel]

Re bonjour Sylvanu,

C'est une erreur de ma part, j'ai oublié de supprimer les macro déjà existant dans le fichier.

Merci

 

[Yücel]

Voici le fichier sans lien et sans macro.

Merci

 

[sylvanu]

Re,
En PJ avec une macro Worksheet_Change :

Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B4:B26")) Is Nothing Then
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Sheets
        If Sh.Name <> "Biens" Then
            Sheets(Sh.Name).Visible = False
        End If
    Next Sh
    For N = 4 To 28
        If Cells(N, 2) <> "" And Cells(N, 2) <> 0 Then
            Sheets(CStr(Cells(N, 2))).Visible = True
        End If
    Next N
    End If
Fin:
End Sub

 

[Yücel]

Merci merci merci !

Vous êtes un génie !!

 

[Yücel]

Sylvanu,

Je peux vous demander un autre service SVP ??

Vous avez déjà résolu l'un de mes autres problèmes. Seulement un petit détail me manque.

Peut-on revenir dessus ??

Mille merci à vous.

 

[sylvanu]

Seulement un petit détail me manque.

Lequel ?

 

[Yücel]

merci Sylvanu

De nouveau le même fichier mais cette fois-ci avec l'onglet "biens" que j'ai ajouté.

Dans l'onglet "1" Lorsque je clique sur biens, il me revoie vers l'onglet "assurance" et non l'onglet "Biens".

C'est vous qui m'aviez solutionné pour la partie "assurance" il y a 2 jours.

En vous remerciant d'avance pour votre précieuse aide !

 

[sylvanu]

Dear Yücel,
OUPS !!!!
Je vous ai posté un message avec une PJ ( V5 ) ..... que je n'ai pas envoyé. Mille excuses :

Bonjour Yücel,
C'est devenu inextricable, il se mélange les pinceaux entre les liens hypertextes et les macros associées.
J'ai donc tout simplifié. J'ai supprimé tous les liens hypertextes.
Les macros utilisées sont Worksheet_SelectionChange, elles s'activent sur clic d'une cellule.
Le gros avantages est qu'on sait toujours quelle cellule de quelle feuille à été cliquée.
Je me suis débrouillé pour que toutes les macros des feuil soient identiques sans modifications :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("$B$2:$B$10")) Is Nothing Then
        If Target = "" Then Exit Sub
        Nom = Target
        Feuille = ActiveSheet.Name
        [A1].Select
        Sheets(Nom).Visible = True
        Sheets(Nom).Activate
        ActiveSheet.Range("$B$3:$E$1000").AutoFilter Field:=1, Criteria1:=Feuille ' Mettre en critère le nom de la feuille.
    End If
End Sub

Les macros dans les feuilles Biens et Assurance sont aussi identiques :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("$B$4:$B$100")) Is Nothing Then
        If Target = "" Then Exit Sub
        Nom = Target
        [A1].Select
        Sheets(Nom).Visible = True
        Sheets(Nom).Activate
        Sheets("Biens").Visible = False
        Sheets("Assurance").Visible = False
    End If
End Sub

De cette façon c'est totalement déterministe.
On peut ajouter autant de feuilles que désirées et autant de feuilles synthèse aussi.
Testez pour voir et remontez moi les problèmes.
Je pense sincèrement qu'il faut abandonner le mélange liens hypertextes et macros associées à celles ci.
Dans l'attente de vous lire.

Et la PJ non envoyée.
Encore mes excuses.

 

[Yücel]

Juste un petit soucis,

Dans l'onglet "biens" lorsque je clique sur :
- le "4" il me renvoie à l'onglet 2
- le "3", "2" et "1" il me renvoie sur l'onglet 1

Idem pour l'onglet Assurance.

Merci.

 

[sylvanu]

Un piège.
Comme vous avez appelez vos feuilles 1,2,3,4, le VBA fait la différence entre le nombre 1 et la chaine "1".
Il manquait un Cstr(Nom) pour transformer un nombre en chaine.

 

[Yücel]

Parfait !

Juste encore un petit point, je sais pas si c'est possible mais je tente, pouvez-vous faire en sorte que l'onglet concerné se masque uniquement et non l'onglet "biens" & "assurance" en même temps ?

Je m'explique, lorsque l'onglet "assurance" est déjà démasqué et que je suis dans l'onglet "biens" et que je clique sur le "1", il me masque les deux onglets et non uniquement l'onglet "biens" et vice-versa...

Merci encore et désolé pour ces petits détails.

Yücel.

 

[sylvanu]

Je ne suis pas sur de suivre votre cheminement.
Bref, un essai en PJ.

 

[Yücel]

Non ce n'est pas vraiment ce que je voulais dans la (V7).

Mais sur la (V6) j'ai retiré une petite ligne et ça fonction impec !!!!!

Je vous remercie du fond du cœur d'avoir pris le temps de vous être penché à mes problèmes, c'est super cool les solutions que vous apportez. J'avais tellement besoin de toutes ces demande.

Pour info, moi aussi je viens également de solutionner un problème d'un membre et je compte bien en résoudre d'autre.

Je vous souhaites une très bonne journée !!