XL 2016 VBA - Comment pouvoir traiter normalement une structure perso

[Dudu2]

Bonjour,
Avec Excel VBA on ne peut pas passer une structure utilisateur en argument d'une fonction ni en faire un retour de fonction.
Y a-t-il un moyen ? En faire une classe ?

Private Type TabAreas
    TabValues() As Variant
End Type

Dim TabAreasVal() As TabAreas

 

[Dudu2]

@Dranreb,
Tu veux dire que l'instruction CréerZonVal ZonVal, R créé le retour de la fonction Zonval ?
Si c'est ça alors je suis sur le ***.
Pour moi CréerZonVal ZonVal, R c'est un appel récursif à la fonction elle-même. Bon ok ça ne l'est pas !
Et un retour de fonction c'est Nom-de-fonction = <Valeur>, Zonval = <Valeur>.

 

[Dranreb]

Oui, tout à fait. Peu importe comment on l'affecte, le nom de la Function sans argument y représente ce qu'elle retourne.

 

[Dudu2]

Ok, merci @Dranreb. J'ai compris.
Par contre ton idée de placer le retour de fonction ainsi, c'est un truc très original, efficace et économique.
Je ne sais pas si le réflexe m'en viendra à l'occasion mais j'essaierai d'y penser.
Merci encore pour tes explications.

 

[Dudu2]

Bonjour à tous,

Finalement, après quelque insomnie ruminatoire, cette superbe fonction ne faisant que retourner une valeur qui vient d'ailleurs peut être... supprimée au bénéfice de cet ailleurs.

Function AdrZonVal(ByVal R As Range) As Variant()
   AdrZonVal = Array(R.Address(External:=True), CréerZonVal(R))
   End Function

Function CréerZonVal(ByVal Rng As Range) As Variant
   Dim Zon As Range, A&, TV(1 To 1, 1 To 1), TZon
   ReDim TZon(1 To Rng.Areas.Count)
   For Each Zon In Rng.Areas
      A = A + 1
      If Zon.Cells.Count = 1 Then
         TV(1, 1) = Zon.Value
         TZon(A) = TV
      Else
        TZon(A) = Zon.Value
        End If
      Next Zon
      CréerZonVal = TZon
   End Function