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
Partager