explication ligne de code VBA

[awa123]

Bonjour j'aimerai avoir une explication du code ci-dessous svp

Sub test()
    Dim Plage As Range, Plagec As Range
    Dim Cel As Range, Celc As Range
    Dim Adr As String, DL As Integer, ColAct As String
    Dim Pl As Integer
With Worksheets("Feuil1")
        'en colonne C à partir de C5
 
        Set Plage = .Range(.Cells(5, 3), .Cells(5, .Columns.Count).End(xlToRight))
 
End With
 
'Recherche les valeurs qui ont un 1 à la fin sur la ligne 5 (a partir de la cellule C5)
For Each Cel In Plage
    If Right(Cel, 1) = 1 Then
    'Nombre de valeurs à recopier
    Adr = Cel.Address
 
'A partir d'ici je ne comprend pas, surtout la ligne suivante...

    [B]ColAct = Mid(Adr, 2, WorksheetFunction.Search("$", Adr, 2) - 2)[/B]
    Pl = 6
    DL = Range(ColAct & "65536").End(xlUp).Row
    Set Plagec = Range(Cells(Pl, Cel.Column), Cells(DL, Cel.Column))
    For Each Celc In Plagec
        Celc.Offset(7, 0) = Celc
    Next Celc
    End If
Next Cel

End Sub

merci beaucoup

 

[job75]

Re : explication ligne de code VBA

Bonsoir awa123,

Donnez suite svp aux fils que vous ouvrez :

https://www.excel-downloads.com/threads/toutes-les-cellule-finissant-par-un-1.213746/

Vous croyez que XLD est un supermarché ?

A+