Discussion :

[NEC14]

Bonjour,

Actuellement j'utilise ce code que j'ai copié dans chacune des feuilles de calcul. J'aimerai avoir un seul code, sous la forme d'un module, qui me sert pour toutes les feuilles. Les feuilles commençant par un "L" sont activées à partir d'un UF (UFEngt) et d'un Combo (CmbListCred).
Pouvez-vous m'apporter votre aide s'il vous plait ? Merci par avance

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'On Error GoTo fin
 
If Not Intersect([A12:A39], Target) Is Nothing Then
    Dim FNew As Worksheet, Wb As Workbook, Sh As Worksheet
    Const Cible As String = "F24"
    Set Wb = ThisWorkbook
 
On Error Resume Next
    Set FNew = Wb.Worksheets(Cible)
On Error GoTo fin
    If Not FNew Is Nothing Then
        FNew.Activate
        FNew.Visible = True
    Else
        GoTo fin
    End If
 
' on masque les feuilles
    For Each Sh In Wb.Worksheets
        If FNew.name <> Cible Then
        If FNew.name <> "L24" Then
           FNew.Visible = xlSheetVeryHidden
        End If
    End If
    Next Sh
 
    FNew.Cells((Target.Value - 1) * 41 + 2, 3).Select
    'Application.GoTo reference:=
    End If
 
    FNew.Rows("1:1185").Hidden = True
        FNew.Range(FNew.Cells((Target.Value - 1) * 41 + 2, 3), FNew.Cells((Target.Value - 1) * 41 + 1 + 38, 3)).EntireRow.Hidden = False
        FNew.Cells((Target.Value - 1) * 41 + 2, 3).Select
fin:
    Set FNew = Nothing: Set Wb = Nothing: Set Sh = Nothing
 
 
End Sub

[Marc-L]

Bonjour.

Il aurait fallu commencer directement dans le module ThisWorkbook …

Ouvrir donc le code de ce module puis au dessus à la place de General sélectionner par la flèche WorkBook
ce qui donne pour code l'évènement Workbook_Open() (si pas déjà créé)
puis à droite à la place d'Open sélectionner SheetBeforeDoubleClick
qui a juste comme paramètre supplémentaire Sh concernant la feuille …

Ensuite restera à y recopier le code puis à effacer l'évènement dans chacune des feuilles …
(Effacer aussi l'Open si pas déjà utilisé)



_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[NEC14]

Bonjour Marc-L et merci pour votre réponse. Mais j'ai du mal à comprendre comment le code pourra faire le lien entre la feuille choisie et la fiche qui y est liée.
Par exemple : Je choisis la feuille L343, comment se fait le lien avec la fiche F343, au moment du double-click ?

[Marc-L]

Justement via Sh représentant donc la feuille déclenchant l'évènement … (Sh.Name par exemple)


________________________________________________________
A celle qui dit que les hommes sont tous pareils, lui répondre qu'il ne fallait pas tous les essayer !

[NEC14]

Ah ok, je n'avais pas compris.
Merci

J'ai fait ce code mais ça ne fonctionne pas. Pouvez-vous me dire ce que j'ai mal fait ? Merci par avance

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'On Error GoTo fin
 
If Not Intersect([A12:A39], Target) Is Nothing Then
    Dim FNew As Worksheet, Wb As Workbook
    Dim NumLig As String
    NumLig = Cells("D5").Value
    Const Cible As String = ("F" & NumLig)
    Set Wb = ThisWorkbook
Set Sh = ThisWorkbook.Sheets("L" & NumLig)
Sh.Activate
 
On Error Resume Next
    Set FNew = Wb.Worksheets(Cible)
On Error GoTo fin
    If Not FNew Is Nothing Then
        FNew.Activate
        FNew.Visible = True
    Else
        GoTo fin
    End If
 
' on masque les feuilles
    For Each Sh In Wb.Worksheets
        If FNew.name <> Cible Then
        If FNew.name <> ("L" & NumLig) Then
           FNew.Visible = xlSheetVeryHidden
        End If
    End If
    Next Sh
 
    FNew.Cells((Target.Value - 1) * 41 + 2, 3).Select
    'Application.GoTo reference:=
    End If
 
    FNew.Rows("1:1185").Hidden = True
        FNew.Range(FNew.Cells((Target.Value - 1) * 41 + 2, 3), FNew.Cells((Target.Value - 1) * 41 + 1 + 38, 3)).EntireRow.Hidden = False
        FNew.Cells((Target.Value - 1) * 41 + 2, 3).Select
fin:
    Set FNew = Nothing: Set Wb = Nothing: Set Sh = Nothing
 
 
End Sub

[patricktoulon]

Bonjour nec14

tu travaille pas a l'economie toi

regarde ca

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
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Intersect([A12:A39], Target) Is Nothing Then
        Dim FNew As Object, Wb As Workbook, NumLig As Variant
        Dim cible As String    'je change la constante en variable string
        NumLig = Sheets(1).Range("D5")
        cible = ("F" & NumLig)
        Set Wb = ThisWorkbook
 
        'ici tu active le sheets "L" et numlig pourquoi puisque tu va ensuite avtiver l'autre
        Set Sh = Wb.Sheets("L" & NumLig)
        Sh.Activate
        'et ici maintenant tu active le sheets "F" et numlig
        'heu..... a quoi ca sert??????
 
        ' on masque les feuilles
        For Each Sh In Wb.Worksheets
            If Sh.Name <> cible And Sh.Name <> ("L" & NumLig) Then Sh.Visible = xlSheetVeryHidden
            If Sh.Name = cible Then
                Set FNew = Wb.Sheets(cible): FNew.Activate: FNew.Visible = True
            Else: Exit Sub
            End If
        Next Sh

Tu vois ce que je veux dire ??,
Au plaisir