une variable tableau public dans une instance de classe

Version imprimable

Bonjour, une question :

Code:

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
 
    'dictionnaire de forme et de Contenu des perimetres
Function DicoPeriContents() As Dictionary
        'variables
    Dim AllRange As Range
    Dim MyRange As Range
    Dim MyDico As New Dictionary
    Dim My_Perimetre As Perimetres
    Dim xlsheet As Worksheet
    Dim NbC As Long, Line As Long
    Dim i As Long
 
        'definition sheet
    Set xlsheet = ThisWorkbook.Worksheets("Parametrages")
 
       'Definition du ranges
    With xlsheet
 
            'NbC et NbL
        Line = .UsedRange.Find("PnL").Row
        NbC = .Cells(Line, .Columns.Count).End(xlToLeft).Column
        Set AllRange = .Range(.Range("NomPerimetre").Offset(, 1), .Range("NomPerimetre").Offset(, NbC - 1))
        For Each MyRange In AllRange
            If Not MyDico.Exists(MyRange.Value) Then
                Set My_Perimetre = New Perimetres
                My_Perimetre.CadreName = MyRange.Offset(-1, 0).Value
                My_Perimetre.Name = MyRange.Value
                My_Perimetre.Format = MyRange.Offset(-2).Value
                My_Perimetre.TabContents = Application.Transpose(.Range(MyRange.Offset(1), MyRange.End(xlDown)).Value)
                MyDico.Add MyRange.Value, My_Perimetre
            End If
        Next MyRange
    End With
    Set DicoPeriContents = MyDico
    Set MyDico = Nothing
End Function

Pourquoi est il impossible de creer une variable public de type tableau dans une instance de classe .

J'ai declaré la variable contents dans ma classe Perimetres, mais je suis obligé de la declarer en variant, résultat quand contents est constitué que d'un element ce n'est pas un tableau , de plus si je veux le parcourir je ne peux pas il me dis qu'il y a un probleme au niveau du get et du let non instancié et ceci , que je crais la lecture ou l'ecriture ou non.

J'ai trouvé une solution en transferant dans un autre tableau et en metant une condition si la dimension est de 1 mais bon , je trouve bisard , si quelqu'un a une reponse je suis preneur merci

06/06/2015, 21h33
Invité

Bonsoir,
Le problème n'est pas de savoir pourquoi,car ce n'est pas possible!
Déclares ton tableau en privé et utilises une propriété (property) public type Object, pour renseigné ton tableau!

Bonjour,

Je ne comprend pas bien ce que tu veux mais ce qui est au module de classe est au module de classe. Si tu utilise une classe, tu peux accéder à son tableau ou ses tableaux. Exemple très simple, tu crée une Sub de stockage :
Code:

1 2 3 4 5 6 7 8 Sub StockerTableau(Valeur As String) I = I + 1 ReDim Preserve Tbl(1 To I) Tbl(I) = Valeur End Sub
tu crée une fonction de récup :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function RecupTableau(pos As Integer) As String If pos > UBound(Tbl) Then RecupTableau = "Indice en dehors de la plage !" Exit Function End If RecupTableau = Tbl(pos) End Function
tu déclares tes deux variables, même avec Dim, elles ne seront pas accessible en dehors de la classe :
Code:

1 2 3 Dim Tbl() As String Dim I As Integer
et dans un module standard (ou ailleurs) tu utilises comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim Cls As New Classe1 Sub Ajouter() Cls.StockerTableau "Paris" Cls.StockerTableau "Lyon" Cls.StockerTableau "Marseille" Cls.StockerTableau "Strasbourg" End Sub Sub Recup() MsgBox Cls.RecupTableau(2) End Sub
de cette façon, tu as accès à son tableau.
Tu peu créer différentes propriétés afin de connaître l'état de ton ou tes tableaux. Ici une propriété en lecture seule pour connaître le nombre max d'enregistrements (dans le module de classe):
Code:

1 2 3 4 5 6 7 8 9 Property Get TblMax() On Error Resume Next TblMax = UBound(Tbl) If Err.Number <> 0 Then TblMax = "Erreur d'exécution : " & Err.Number & vbCrLf & vbCrLf & "Tableau non initialisé !" End Property
que tu peux lire de cette façon :
Code:

1 2 3 4 5 6 Sub Test() MsgBox Cls.TblMax End Sub
Hervé.

Petite rectification, remplace la fonction que je viens de poster pas celle ci (j'ai ajouté une petite gestion d'erreur) :
Code:

1 2 3 4 5 6 7 8 9 Function RecupTableau(pos As Integer) As String On Error Resume Next RecupTableau = Tbl(pos) If Err.Number <> 0 Then RecupTableau = "Indice en dehors de la plage !" End Function
Hervé.

06/06/2015, 21h47
Invité
Bonsoir Hervé,
De ce que j'ai compris c'est le tableau qu'il veut passer.
Mais comme tu le montre pour TblMax, il peut utiliser Property.
Code:

1 2 3 Property let montableau(value) Tableau =value End property

Dsl mais ca ne marche pas j'avais essayé en faisant proprement par contre , la methode et le code de theze j'avais plus ou moins fait ca avec une methode qui ajoute des valeurs
Code:

1 2 3 Property let montableau(value) Tableau =value End property
Bien evidement il ya des alternatives mais je ne comprenais pas pourquoi , mais c'est comme ca :)

Merci en tt cas de votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim NbSPerimetre As Integer, NomSPerimetre() Dim NomPerimetre As String Public Property Get Nom_SPerimetre() As Variant Nom_SPerimetre = NomSPerimetre End Property Public Property Get Nb_SPerimetre() As Integer Nb_SPerimetre = NbSPerimetre End Property Public Sub AjoutS_Perimetre(Nom As String) NbSPerimetre = NbSPerimetre + 1 ReDim Preserve NomSPerimetre(NbSPerimetre) NomSPerimetre(NbSPerimetre) = Nom End Sub
voila qui marche aussi

Code:

1
2
3
4
5
6
7
8
 
Public Property let Nom_SPerimetre(value as variant)
    NomSPerimetre = value
 
End Property
Public Property Get Nom_SPerimetre() As Variant
Nom_SPerimetre = NomSPerimetre
End Property

ça ça fonctionne!

Code:

instance_classe.Nom_SPerimetre=array("toto","titi")

Bonjour,

Bonjour Robert, j'avais donc mal compris d'où le doute que j'ai émis ;) Je pensais que tamtam64 voulait avoir accès directement à une fonction du module de classe.
Effectivement, une propriété peu stocker un tableau :

Code:

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
 
Dim Cls As New Classe1
 
Sub Inscrire()
 
    Dim Tbl(1 To 5)
 
    Tbl(1) = "A"
    Tbl(2) = "B"
    Tbl(3) = "C"
    Tbl(4) = "D"
    Tbl(5) = "E"
 
    Cls.Nom_SPerimetre = Tbl
 
End Sub
 
Sub Recuperer()
 
    Dim Tbl()
    Dim I As Integer
 
    Tbl = Cls.Nom_SPerimetre
 
    For I = 1 To UBound(Tbl)
 
        Debug.Print Tbl(I)
 
    Next I
 
    'ou tout simplement
    MsgBox Cls.Nom_SPerimetre(3)
 
End Sub

dans le module de classe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim NomSPerimetre()
 
Property Let Nom_SPerimetre(value)
 
    NomSPerimetre = value
 
End Property
 
Property Get Nom_SPerimetre()
 
    Nom_SPerimetre = NomSPerimetre
 
End Property

Hervé.