traduction d'un code

[bobafric]

Bonjour à tous
j'ai un code vba que je voudrai comprendre et que j'aimerai qu'on me traduise.
existe-t'il un logiciel pour cet usage.
Je joins en attendant ce code pour traduction.

Private Sub T1_Change()
    Dim i&, aa, a&, bb, y&, sh, cc
    If T1 = "" Then L1.Clear: Label2 = "": Exit Sub
    y = 1
    ReDim bb(4, y)
    For Each sh In Worksheets
        With sh
            aa = .Range("A2:E" & .Range("A" & Rows.Count).End(xlUp).Row)
            For i = 1 To UBound(aa)
                If aa(i, 1) Like T1 & "*" Then
                    ReDim Preserve bb(4, y)
                    bb(1, y) = aa(i, 1): bb(2, y) = aa(i, 2): bb(3, y) = aa(i, 4): y = y + 1
                End If
            Next i
        End With
    Next sh
    If y = 1 Then Exit Sub
    If y = 2 Then
    ReDim cc(1, 3)
    cc(1, 1) = bb(1, 1): cc(1, 2) = bb(2, 1): cc(1, 3) = bb(3, 1)
        L1.List = cc
    Else
        L1.List = Application.Transpose(bb)
    End If
    If y = 2 Then
        Label2 = "Vous avez trouvé " & y - 1 & "  ligne avec la recherche " & T1
    Else
        Label2 = "Vous avez trouvé " & y - 1 & "  lignes avec la recherche " & T1
    End If
    L1.ColumnCount = 3
    L1.ColumnWidths = "280;280;80"
End Sub

Merci pour votre aide
Bob

 

[bobafric]

Re : traduction d'un code

OK pour que tu refasses et je te joins le fichier que j'ai arrangé
a plus
bob

 

[Paritec]

Re : traduction d'un code

Re Bobafric le forum
trop tard pour le fichier arrangé, voilà le fichier avec deux feuilles une feuille Liste SD (sans doublons) et une feuille Liste avec les doublons et la recherche sur la feuille Liste
a+
papou😱

 

[bobafric]

Re : traduction d'un code

Je vais me débrouiller pour le fichier sans doublon, mais si tu peux me donner la signification des lignes, je ne t'embêterai plus.
Ton fichier V5 me convient très bien.
àplus