Traduction de code

[sébastien laugier]

Bonjour,

Quelqu'un pourrais me traduire ce code s'il vous plait :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim tabloG, tabloV
Dim i&, derln&, titre$, titreCol1$, titreCol2$, titreL$

tabloG = ActiveSheet.Range("A1:AN15")
Cancel = False

With Sheets("VPS")
If Not Intersect(Target, ActiveSheet.Range("A3:AN15")) Is Nothing Then
If WorksheetFunction.CountIf(Sheets("VPS").Range("D: D"), Cells(3, Target.Column)) _
+ WorksheetFunction.CountIf(Sheets("VPS").Range("D: D"), Cells(4, Target.Column)) > 0 Then
If Target.Row > 2 And Target.Row < 15 And Target.Row <> 13 _
And Target.Column > 2 And Target.Column < 41 Then

If .FilterMode Then .ShowAllData
derln = .Range("D" & Rows.Count).End(xlUp)(2).Row
If Target.Row = 3 Or Target.Row = 4 Then
titre = tabloG(Target.Row, Target.Column)
.Range("$A$1:$F$" & derln).AutoFilter Field:=4, Criteria1:=titre
ElseIf Target.Row <> 13 Then
titreCol1 = tabloG(3, Target.Column)
titreCol2 = tabloG(4, Target.Column)
titreL = tabloG(Target.Row, 2)
.Range("$A$1:$F$" & derln).AutoFilter Field:=4, Criteria1:=titreCol1, _
Operator:=xlOr, Criteria2:=titreCol2
If Target.Row = 14 Then
.Range("$A$1:$F$" & derln).AutoFilter Field:=3, Criteria1:=0
ElseIf Target.Row <> 5 Then
.Range("$A$1:$F$" & derln).AutoFilter Field:=1, Criteria1:=titreL
End If
End If
.Activate
End If
End If
End If

J'avoue être un peu perdu!

Merci par avance!

 

[job75]

Bonjour sébastien laugier, bienvenue sur XLD,

Qu'est-ce que vous ne comprenez pas ?

Ce code vient d'un endroit où l'auteur a résolu un problème donc on y trouve forcément des explications.

A+