Microsoft 365 Code VBA "Tableau gestionnaire"

Rosario. à dit:

Re, je pense que c'est une erreur car j'ai juste cliqué sur le rond à droite pour dire que la solution était la bonne, je suis désolé alors qu'est ce que j'ai bien pu faire ? #13

Cliquez pour agrandir...

sylvanu à dit:

Re,
Post modifié, j'avais oublié le "violet" !

Peut être plus simple avec juste un clic sur la cellule :

VB:

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim F
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C1:O2]) Is Nothing Then
        For Each F In Worksheets
            If F.Name <> Target And F.Name <> "Sommaire" Then
                Sheets(F.Name).Visible = xlSheetVeryHidden
            Else
                With Sheets(F.Name)
                    Application.EnableEvents = False
                    .Visible = True
                    .Select
                    .Range(Target.Address).Interior.Color = RGB(220, 140, 255)
                    .Range("A1").Select
                End With
                Sheets("Sommaire").Range(Target.Address).Interior.Color = xlNone
            End If
        Next F
    End If
    Application.EnableEvents = True
End Sub

A noter que la plage A..Z soit toujours au même endroit, donc j'ai modifié sa place dans Sommaire en C1:O2.

Cliquez pour agrandir...

Rosario. à dit:

Bonsoir,
Je reviens vers vous concernant ce code VBA qui fonctionne parfaitement mais j'aimerai rajouté une ligne pour pouvoir avoir l'onglet sommaire et en plus l'onglet Récap. qui reste toujours affiché. Merci

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir,
De quelle PJ parlez vous ?
Je ne trouve pas de feuille Recap.

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir,
Il suffit d'exclure la feuille en modifiant cette ligne :

VB:

If F.Name <> Target And F.Name <> "Sommaire" And F.Name <> "Recap" Then

Cliquez pour agrandir...