1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| Sub StartAndEnd()
Dim i As Long, k As Long, LastRow As Long, lastRow2 As Long, j As Long
With Sheets("WEC11")
LastRow = .Range("A65000").End(xlUp).Row
' Mettre le début dans les colonnes 9 à 11
For i = LastRow To 2 Step -1
For k = 1 To 3
If .Cells(i, 7).Value = .Cells(1, 2).Value Then .Cells(i, k + 8).Value = .Cells(i, k).Value
Next k
Next i
For i = LastRow To 2 Step -1
For k = 9 To 11
If .Cells(i, k).Value = "" Then .Cells(i, k).Delete xlShiftUp
Next k
Next i
For i = LastRow To 2 Step -1
For k = 1 To 7
If .Cells(i, 7).Value = .Cells(1, 2).Value Then .Cells(i, k).Delete xlShiftUp
Next k
Next i
LastRow = .Range("A65000").End(xlUp).Row
lastRow2 = .Range("I65000").End(xlUp).Row
'Mettre la fin dans les colonnes 12 à 14
For i = 2 To LastRow
For j = 2 To lastRow2
For k = 1 To 3
If .Cells(i, 7).Value = .Cells(1, 1).Value Then
Do While .Cells(i, 3).Value <> .Cells(j, 11).Value
i = i + 1
Loop
.Cells(j, k + 11).Value = .Cells(i, k).Value
End If
Next k
Next j
Next i
End With
End Sub |
Partager