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
| Sub test()
Worksheets("Result" ).Select
Range("A1:H1" ).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Worksheets("RDCD3" ).Activate
x = InputBox("quel courtier" )
y = InputBox("second courtier" )
For Each C In Range(Range("E1" ), Range("F1" ).End(xlDown))
If UCase(C.Value) = x Or UCase(C.Value) = y Then
Do
If Sheets("Result" ).Range("A1" ).Offset(i, 0).Value <> "" Then i = i + 1
Loop Until Sheets("Result" ).Range("A1" ).Offset(i, 0).Value = ""
Sheets("Result" ).Range("A1" ).Offset(i, 0).Value = C.Offset(0, -4).Value
Sheets("Result" ).Range("B1" ).Offset(i, 0).Value = C.Offset(0, -3).Value
Sheets("Result" ).Range("C1" ).Offset(i, 0).Value = C.Offset(0, -2).Value
Sheets("Result" ).Range("D1" ).Offset(i, 0).Value = C.Offset(0, -1).Value
Sheets("Result" ).Range("E1" ).Offset(i, 0).Value = C.Value
Sheets("Result" ).Range("F1" ).Offset(i, 0).Value = C.Offset(0, 1).Value
Sheets("Result" ).Range("G1" ).Offset(i, 0).Value = C.Offset(0, 2).Value
Sheets("Result" ).Range("H1" ).Offset(i, 0).Value = C.Offset(0, 3).Value
End If
Next
Sheets("Result" ).Activate
End Sub |
Partager