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
| Sub Test() Dim i As Integer
Dim rng_Index_SuiviOS As Range
Dim rng_SuiviOS As Range
Dim LigFind As Long
Set rng_Index_SuiviOS = Worksheets("Index_SuiviOS").Range("M14")
LigFind = Worksheets("Index_SuiviOS").Columns(13).Find("*", , , , , xlPrevious).Row - 2
If LigFind = 0 Then
MsgBox "Problème pour trouver LigFind"
Exit Sub
End If
'
With Worksheets("SuiviOS")
Sheets("SuiviOS").Range("A14:K65500").ClearContents
Set rng_SuiviOS = .Range("A14")
For i = 0 To LigFind
If rng_Index_SuiviOS.Offset(i, 0) = 1 Then
rng_SuiviOS.Offset(0, 0) = rng_Index_SuiviOS.Offset(i, -12)
rng_SuiviOS.Offset(0, 1) = rng_Index_SuiviOS.Offset(i, -11)
rng_SuiviOS.Offset(0, 2) = rng_Index_SuiviOS.Offset(i, -10)
rng_SuiviOS.Offset(0, 3) = rng_Index_SuiviOS.Offset(i, -9)
rng_SuiviOS.Offset(0, 4) = rng_Index_SuiviOS.Offset(i, -8)
rng_SuiviOS.Offset(0, 5) = rng_Index_SuiviOS.Offset(i, -7)
rng_SuiviOS.Offset(0, 6) = rng_Index_SuiviOS.Offset(i, -6)
rng_SuiviOS.Offset(0, 7) = rng_Index_SuiviOS.Offset(i, -5)
rng_SuiviOS.Offset(0, 8) = rng_Index_SuiviOS.Offset(i, -4)
rng_SuiviOS.Offset(0, 9) = rng_Index_SuiviOS.Offset(i, -3)
rng_SuiviOS.Offset(0, 10) = rng_Index_SuiviOS.Offset(i, -2)
Set rng_SuiviOS = rng_SuiviOS.Offset(1, 0)
End If
Next i
End With
End Sub |
