explication ligne de code VBA

awa123

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

Code:
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
 

Discussions similaires

Réponses
12
Affichages
532
Réponses
5
Affichages
671

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal