[VBA] Fonction qui renvoie un type crée

Fermé

Utilisateur anonyme - 16 oct. 2007 à 10:56
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 16 oct. 2007 à 11:19

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

A voir également:

[VBA] Fonction qui renvoie un type crée
Fonction si et - Guide
Créer un compte gmail - Guide
Créer un compte google - Guide
Comment créer un groupe whatsapp - Guide
Créer un compte instagram - Guide

1 réponse

Réponse 1 / 1

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
16 oct. 2007 à 11:19

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Erreur d'exécution 13 Incompatibilité de type

Renvoie code ooredoo

créer une adresse gmail pour une autre personne

Discussions similaires

Newsletters