type en vba excel ?

**SpaceFrog** · 21/07/2006, 14h52

j'essaye de stocker des éléments dans un array de types ...
mais il ne me reconnait même pas au départ le type ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

il me reclame un objet rapportline ???

**SfJ5Rpw8** · 21/07/2006, 15h18

déjà tu ne peu pas utiliser un type comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox rapportline.cle

il faut à la limite créer une variable du dit type et alors tu peu afficher la donnée (mais bon je coris pas que ce soit ce que tu ve faire..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 Dim MonRapport as rapportline
 Mon Rapport.cle = 1
MsgBox MonRapport.cle

pour la déclaration de ton tableau utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Dim RapportLines()

que ve tu faire avec cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 RapportLines(i) = rapportline

**SpaceFrog** · 21/07/2006, 15h21

arf oui je crois que j'ai skippé la variable ...
je teste !

**SpaceFrog** · 21/07/2006, 15h30

Merci bbil!
c'était bien ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Public Type RLine
 cle As String
 ORDNO As String
 FOLDERNO As String
 Testcode As String
 METAL As String * 6
 FINAL  As String * 6
End Type
 
Private Sub rapport()
Dim NbrLignes As Integer
Dim RapportLine As RLine
 
 Dim RapportLines() As RLine
 
 
 
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(i + 1, 0).Value
    RapportLine.ORDNO = Sheets("Feuil3").Range("J1").Offset(i + 1, 0).Value
    RapportLine.FOLDERNO = Sheets("Feuil3").Range("K1").Offset(i + 1, 0).Value
    RapportLine.Testcode = Sheets("Feuil3").Range("L1").Offset(i + 1, 0).Value
    RapportLine.METAL = Sheets("Feuil3").Range("M1").Offset(i + 1, 0).Value
    RapportLine.FINAL = Sheets("Feuil3").Range("M1").Offset(i + 1, 0).Value
    RapportLines(i) = RapportLine
 Next
 
End Sub

**SfJ5Rpw8** · 21/07/2006, 15h35

à oui j'avais pas vu cette variable intermédiaire ... en fait elle n'est pas trop utile ... tu aurai pu écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  RapportLines(i).cle = Sheets("Feuil3").Range("F1").Offset(i + 1, 0).Value
....

**SpaceFrog** · 21/07/2006, 15h37

oui joli raccourci mais je trouve cela moins explicite ...
en fait dans l'idée de mon code je construis un tableau de lignes ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
 
Public Type RLine
 cle As String
 ORDNO As String
 FOLDERNO As String
 Testcode As String
 METAL As String * 6
 FINAL  As String * 6
End Type
 
Private Sub rapport()
Dim NbrLignes As Integer
Dim RapportLine As RLine
 
 Dim RapportLines() As RLine
 
 
 
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(i + 1, 0).Value
    RapportLine.ORDNO = Sheets("Feuil3").Range("J1").Offset(i + 1, 0).Value
    RapportLine.FOLDERNO = Sheets("Feuil3").Range("K1").Offset(i + 1, 0).Value
    RapportLine.Testcode = Sheets("Feuil3").Range("L1").Offset(i + 1, 0).Value
    RapportLine.METAL = Sheets("Feuil3").Range("M1").Offset(i + 1, 0).Value
    RapportLine.FINAL = Sheets("Feuil3").Range("M1").Offset(i + 1, 0).Value
    RapportLines(i) = RapportLine
 Next
 
 
 
Dim Analyse As String
Dim TabAnalyse
 
Entete = "cle,ORDNO,FOLDERNO,TESTCODE,Al,B,Ca,Cl-,Co,Cr,Cu,Fe,Four,Hf,Mg,Mn,Mo,N,Ni,O,P,Si,Ti,V"
TabENTETE = Split(Entete, ",")
 
For i = 0 To UBound(TabENTETE)
    Sheets("Feuil1").Range("A1").Offset(0, i).Value = TabENTETE(i)
Next
 
For i = 1 To UBound(RapportLines)
     Sheets("Feuil1").Range("A1").Offset(i + 1, 0).Value = RapportLines(i).cle
     Sheets("Feuil1").Range("B1").Offset(i + 1, 0).Value = RapportLines(i).ORDNO
     Sheets("Feuil1").Range("C1").Offset(i + 1, 0).Value = RapportLines(i).FOLDERNO
     Sheets("Feuil1").Range("D1").Offset(i + 1, 0).Value = RapportLines(i).Testcode
     For j = 0 To 19
      If RapportLines(i).METAL = Sheets("Feuil1").Range("E1").Offset(0, j).Value Then
          Sheets("Feuil1").Range("E1").Offset(i + 1, j).Value = RapportLines(i).FINAL
      End If
     Next j
  Next i
 
 
 Sheets("feuil1").range("A1").select
  Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
 Selection.Columns.AutoFit
 
 End Sub

type en vba excel ?

Macros et VBA Excel

Discussions similaires

Partager

Partager