Double click sheet hide

Version imprimable

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:

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.

13/01/2010, 11h48
erohares
(Si j'ai bien compris) un petit :
Code:

1 2 3 4 If ActiveSheet.Name = "Working" Then If Not Intersect(Target, Range("B2:B22")) Is Nothing Then '...
encadrant ton code devrait suffire non ?
(Si tu souhaites que ça ne se lance que sur la feuille/onglet "Working")
13/01/2010, 12h40
Djromé

Merci pour ta réponse Erohares,

Malheureusement, ça n'a pas l'air de marcher!

En double-cliquant sur les cellules d'un autre onglet celà créé quand même une nouvelle feuille! Il me créé une "Working2"

Salutations

Je ne comprends pas pourquoi... (chez moi ça marche)

Le code donne ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim WSname As String
    Dim WScheck As Worksheet
    Dim WScheckname As String
 
    If ActiveSheet.Name = "Working" Then
 
        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 If

Avant cette macro il n'y a rien qui fait changer le classeur de feuille courante ? L'ajout dans ma macro vérifie que la feuille courante est bien "Working" sinon on sort du if et il ne fait rien.
Je ne vois pas pourquoi ça ne fonctionne pas...

Où est-ce que tu as placés ces macros dans le projet VBA ? (je n'arrive même pas à la lancer comme tu l'as écrite (!). C'est bien avec un double-clic qu'elle est censée se lancer ?)

13/01/2010, 16h58
Djromé

Re-bonjour erohares,

Effectivement, lorsque je le fais sur un nouveau workbook, le code marche trés bien!

Cependant, dans mon fichier, le même code sur n'importe qu'elles autres feuilles me créé autant de nouvel onglet qu'excel le permet...!

Il faut savoir que c'est un fichier assez complexe comprenant une feuille de contrôle permettant de tracer tout les changements faits dans le classeur, cela doit sans doute prendre la main à un certain moment que je n'arrive pas trouver (j'ai essayé de marquer la macro par le "point" en faisant le pas-à-pas, mais sans résultat!

Ca m'était déjà arrivé pour une autre macro et je crois que j'ai du mettre cette dernière en stand by pendant le run de l'autre!

En tous cas, merci beaucoup pour ton aide!

Au plaisir!
14/01/2010, 20h01
Djromé

Salut Erohares,

Je viens de voir pourquoi celà bugger chez moi, tout simplement car le code était installé sur tous les onglets!8O
Si je le laisse uniquement sur "Working" tout fonctionne trés bien, et d'ailleurs je t'en remercie!:ccool:

Salutations