Bonjour j'aimerai avoir une explication du code ci-dessous svp
merci beaucoup
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