[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]