1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Dim WsC As Worksheet
Dim Derlig As Long, i As Long
Dim Cel As Range, CelInit As Range
Dim c As Long
Colonne = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)
c = ActiveCell.Column
Set WsC = ThisWorkbook.Worksheets("Liste opérateurs")
Set CelInit = WsC.Range("B8")
FeuilleOpérateurs
With Worksheets("Polyvalence uap Multi")
Derlig = .Range("A" & Rows.Count).End(xlUp).Row
For Each Cel In .Range("A6:A" & Derlig)
If Cel.Offset(0, c) = "U" Or Cel.Offset(0, c) = "L" Then
Cel.Copy CelInit.Offset(i, 0)
i = i + 1
End If
Next Cel
End With
end sub |
