Bonjour,
Est-il possible d'avoir une traduction précise de cette macro s'il vous plaît?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range, F As Worksheet
Application.ScreenUpdating = False
With Me
Set Plg = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(3)(1, 2))
End With
If Not Intersect(Target, Plg) Is Nothing Then
On Error Resume Next
Sheets(Target.Value).Visible = Not Sheets(Target.Value).Visible
Me.Range("$A$1").Select
End If
If Target.Address = "$J$2" Then
For Each F In Worksheets
If F.Name <> Me.Name Then F.Visible = False
Next F
Me.Range("$A$1").Select
End If
If Target.Address = "$J$4" Then
For Each F In Worksheets
F.Visible = True
Next F
Me.Range("$A$1").Select
End If
End Sub
Merci d'avance
Est-il possible d'avoir une traduction précise de cette macro s'il vous plaît?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plg As Range, F As Worksheet
Application.ScreenUpdating = False
With Me
Set Plg = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(3)(1, 2))
End With
If Not Intersect(Target, Plg) Is Nothing Then
On Error Resume Next
Sheets(Target.Value).Visible = Not Sheets(Target.Value).Visible
Me.Range("$A$1").Select
End If
If Target.Address = "$J$2" Then
For Each F In Worksheets
If F.Name <> Me.Name Then F.Visible = False
Next F
Me.Range("$A$1").Select
End If
If Target.Address = "$J$4" Then
For Each F In Worksheets
F.Visible = True
Next F
Me.Range("$A$1").Select
End If
End Sub
Merci d'avance