Insérer un "record" dans une collection.

[midgard30]

Bonjour,

J'essaie d'insérer une variable de type "record" dans une collection, mais j'obtiens l'erreur suivante:

Seuls les types publics définis par l'utilisateur dans les modules objet publics peuvent être utilisés comme paramètres ou types renvoyés pour les procédures publiques des modules de classe ou comme champs des types publics définis par l'utilisateur

Voici le bout de code. Est-ce que l'opération est possible?

Option Base 1
Option Explicit
 
Private Type TestType
    NomId As String
    PolyId As String
    Info As String
End Type
 
Private Sub CommandButton1_Click()
 
  Dim TestRec As TestType
  Dim TestCol As New Collection
 
  TestRec.NomId = "test"
  TestRec.PolyId = "001"
  TestRec.Info = "10-jan-08"
  TestCol.Add TestRec
    
End Sub

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums.

Tu peux t'en sortir en créant un module de classe.
Dans VBA, menu Insertion/Module de classe
Dans la fenêtre de propriétés de ce module, tu donnes TestType comme propriété Name et tu colles ce code

Option Explicit
 
Public NomID As String
Public PolyID As String
Public Info As String
 

Tu vires le bloc Type...End Type et tu remplaces la ligne

  Dim TestRec As TestType
 

par

  Dim TestRec As New TestType
 

Voir mon tuto sur les classes pour plus de détails.

[midgard30]

Ça fonctionne, sauf que j'ai besoin de mettre le résultat de l'instruction Input à l'intérieur des variables (propriétés) de la classe et VB me donne l'erreur suivante:

Variable required - can't assign to this expression

Voici le code complet:

 
Const g_TempFolder As String = "C:\temp"
Dim TestCol As New Collection
Dim TestRec As New clsTest
 
Open g_TempFolder & "\" & "test.csv" For Input As #1
 
Do While Not EOF(1)
  With TestRec
    Input #1, .NFIPlot, .PolyId, .SampleDate  '--> Input ne semble pas compatible avec les propriétés d'une classe.
    TestCol.Add TestRec, .PolyId
  End With
Loop
 
Close #1
 

Code du module de classe:

Option Explicit
 
Public NFIPlot As String
Public PolyId As String
Public SampleDate As String