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
|
Public Type rapportline
cle As Integer
ORDNO As Integer
FOLERNO As Integer
Testcode As Integer
METAL As String * 6
FINAL As String * 6
End Type
Private Sub rapport()
Dim NbrLignes As Integer
MsgBox rapportline.cle
Dim RapportLines()
Sheets("feuil3").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("J2") _
, Order2:=xlAscending, Key3:=Range("K2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
NbrLignes = Selection.Rows.Count
For i = 0 To NbrLignes
ReDim Preserve RapportLines(i + 1)
rapportline.cle = Sheets("feuil3").Range("F1").Offset(0, i + 1).Value
rapportline.ORDNO = Sheets("feuil3").Range("J1").Offset(0, i + 1).Value
rapportline.FOLDERNO = Sheets("feuil3").Range("K1").Offset(0, i + 1).Value
rapportline.Testcode = Sheets("feuil3").Range("L1").Offset(0, i + 1).Value
rapportline.METAL = Sheets("feuil3").Range("M1").Offset(0, i + 1).Value
rapportline.FINAL = Sheets("feuil3").Range("M1").Offset(0, i + 1).Value
RapportLines(i) = rapportline
Next
End Sub |
Partager