[VBA] Fonction qui renvoie un type crée

Question

Bonjour,

J'ai déjà posté cette question dans un topic mais je préfère redétailler dans un nouveau

J'ai crée un nouveau type de variable (en C, on appelle cela une structure de donnée)
Ce nouveau type comporte deux variables définie à l'aide du code:


Type typedate
         repdate As Date
         testdate As Boolean
End Type


J'aimerai que la fonction que j'ai crée renvoie une variable de type typedate (donc en fait, la fonction doit renvoyer une variable de type Date et une autre de type Boolean)

Dans le genre: Function mafonction(adate1 As String) As typedate

Es-ce possible ?

Si oui, comment vais-t-on dans la fonction pour renvoyez le type ?

Merci d'avance

ShaBoo · Answer

Bonjour,


Essaye ceci :


Option Explicit

Type TypeRep
         EstRep As Boolean
         Chemin As String
End Type

Type TypeDate
         repdate As Date
         testdate As Boolean
End Type

Sub callTest()
Dim t1 As TypeRep
Dim t2 As TypeDate
    
    t1 = fTestRep()
    MsgBox t1.EstRep
    MsgBox t1.Chemin

    t2 = fTestDate()
    MsgBox t2.repdate
    MsgBox t2.testdate
End Sub

Function fTestRep() As TypeRep
    fTestRep.EstRep = True
    fTestRep.Chemin = "Chemin"
End Function

Function fTestDate() As TypeDate
    fTestDate.repdate = "16/10/2007"
    fTestDate.testdate = False
End Function

[VBA] Fonction qui renvoie un type crée

1 réponse

Discussions similaires

Newsletters