Discussion :

[FRED.G]

Hello !

Dans un module standard, j'ai déclaré un type perso :

Code :

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

1
2
3
4
5
6
 Public Type ParamètreDeFacturation
    ContratDocId As Long
    ModeDeFacturationId As Long
    PUHT As Currency
    TauxTva As Double
 End Type

Dans ce même module, je définis un procédure dans laquelle j'instancie un type ParamètreDeFacturation et je voudrais ajouter cette instance à une collection VBA, mais j'obtiens une erreur de compilation !

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MaSub()
Dim p As ParamètreDeFacturation
Dim paramètres As New Collection
 
                    p.ContratDocId = 10
                    p.ModeDeFacturationId = 10
                    p.PUHT = 10
                    p.TauxTva = 0.196
                    paramètres.Add p, p.ModeDeFacturationId 
End Sub

Erreur de compilation :
Seuls les types définis par l'utilisateur et qui sont définis dans les modules d'objets publics peuvent être convertis depuis ou vers un variant, ou passés à des fonctions à liaison tardives.

Un module standard, c'est public !

Où est le problème ?

[Tofalu]

Sauf erreur de ma part, on ne peut pas mettre une variable de type Type dans une collection.

Pourquoi ne pas créer un module de classe ParamètreDeFacturation ?

Ou alors, il faudra affecter ton type à une propriété d'un objet ... pas grand intéret, autant avoir un objet et ses propriétés qui vont bien.


Enfin, si tu veux rester avec un TYPE, remplace la collection par un tableau

[Tofalu]

Genre :

Code :

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

1
2
3
4
5
6
7
8
9
Sub MaSub()
Dim p As clsParametreDeFacturation
Dim paramètres As New Collection
    Set p = New clsParametreDeFacturation
    p.Definir 10, 10, 10, 0.196
 
    paramètres.Add p, "v" & p.ModeDeFacturationId
    MsgBox paramètres(1).ModeDeFacturationId
End Sub

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
Option Compare Database
Option Explicit
 
 
Private vContratDocId As Long
Private vModeDeFacturationId As Long
Private vPUHT As Currency
Private vTauxTva As Double
 
Public Property Get ContratDocId() As Long
    ContratDocId = vContratDocId
End Property
Public Property Get ModeDeFacturationId() As Long
    ModeDeFacturationId = vModeDeFacturationId
End Property
Public Property Get PUHT() As Long
    PUHT = vPUHT
End Property
Public Property Get TauxTva() As Long
    TauxTva = vTauxTva
End Property
 
Public Sub Definir(pContratDocId As Long, pModeDeFacturationId As Long, pPUHT As Long, pTauxTVA As Long)
 vContratDocId = pContratDocId
 vModeDeFacturationId = pModeDeFacturationId
 vPUHT = pPUHT
 vTauxTva = pTauxTVA
End Sub

[FRED.G]

Salut Christophe !

Je vais créer une classe avec simplement des champs publics.

En effet, mon but n'est pas de faire un truc durable (sinon j'utiliserais pas Access mais .NET ) mais un truc rapide :
- écrire le moins de ligne de code rébarbative possible
- et profiter d'un "typage" fort pour bénéficier du peu d'intellisense dispo dans VBE.

Ecrire des Property Get me rend fou !