Salut les Kracks,

Je reviens vers vous avec une macro qui fonctionne, mais que je souhaite améliorer pour notre utilisation quotidienne.
Cette macro me permet en un double-click sur les cellules situées entre B2:B22 d'ouvrir l'onglet portant le même nom ou de le créer et de copier le contenu de la sheet (Working).
Cependant, si je double click sur tous les autres cellules B2:B22 de chacun des onglets, la macro run!
Je souhaiterai donc obtenir une restriction à la sheet(Working) qui seule elle contient les bonnes valeurs!
Donc seule un double-click sur les cellules de B2:B22 de la sheet (working) doivent fonctionner!
Pouvez-vous m'aider à résoudre se trouble?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim WSname As String
    Dim WScheck As Worksheet
    Dim WScheckname As String
 
    If Not Intersect(Target, Range("B2:B22")) Is Nothing Then
        WSname = Range("B" & Target.Row)
        On Error Resume Next
        Set WScheck = Sheets(WSname)
        If WScheck Is Nothing Then 'Doesn't exist so create it
            Sheets("Example").Copy Before:=Sheets(Worksheets.Count)
            ActiveSheet.Name = WSname
            ActiveSheet.Visible = True
            Set WScheck = Nothing
            On Error GoTo 0
        Else 'Does exist so activate it           
Sheets(WSname).Visible=True
Sheets(WSname).Activate
            Set WScheck = Nothing
            On Error GoTo 0
        End If
    End If
End Sub
D'avance merci.