XL 2016 VBA - Comment pouvoir traiter normalement une structure perso

dysorthographie

XLDnaute Accro

• 26 Août 2021

• #16

dans un module standard!

VB:

Type TabAreas
    TabValues() As Variant
End Type

dans ThisWorbook

Code:

Dim TabAreasVal() As TabAreas
Function test(V() As TabAreas, I As Integer) As TabAreas()
ReDim Preserve V(I)
ReDim Preserve V(I).TabValues(I)
test = V()
End Function

Sub Test1()
Dim A() As TabAreas, I As Integer
For I = 0 To 10
 A() = test(TabAreasVal(), I)
Next
End Sub

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #17

@Dranreb, je vais regarder ton exemple à tête reposée car à la première lecture je n'y comprends RIEN.
@dysorthographie, pareil

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 26 Août 2021

• #18

j'ai modifié ton code!

 

Pièces jointes

• KO.xlsm

  21.1 KB · Affichages: 4

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #19

De retour de ma sortie sport...
@dysorthographie, compris ! Bonne idée. Lu trop vite ton post précédent.

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #20

@Dranreb...
je ne sais pas exploiter la fonction AdrZonVal,
Je ne comprends pas ce que représente cet Array(R.Address(External:=True), ZonVal(R))
je ne comprends pas lé récursivité à l'infini dans la fonction ZonVal.
Bref, je ne comprends absolument pas ton code.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2021

• #21

Vous disiez bien que dans votre structure vous vouliez peut être l'adresse du Range en plus de ses valeurs, n'est-ce pas.
Et bien AdrZonVal renvoie dans un Array à 2 éléments, 0 et 1, la dite adresse puis les valeurs.
Il n'y a guère de récursivité la dedans mais c'est vrai que AdrZonVal(1) contient un ZonVal, qui lui même est un tableau des Areas dont chaque poste contient les valeur de la plage. C'est simple, pas besoin de Type ni de Classe pour ranger ça où vous voulez.

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Août 2021

• #22

Bonsoir @Dudu2, @Dranreb

Exemple :
Nom de fichier + Onglet + Address
"[KO.xlsm]Feuil1!$A$1:$B$2" Pour R.Address(External:=True)

Vous êtes vraiment très très fort @Dranreb Super votre code et encore Hyper efficace comme toujours



Laurent

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #23

Ok, si j'arrive maintenant à exploiter AdrZonVal() pour en extraire l'adresse et les valeurs des Areas, je ne comprends toujours pas ton code.
Question 1: Dans un Array on peut donc avoir des éléments de nature différente, des pommes et des carottes. Correct ?
Si la réponse est oui, je n'ai jamais deviner ça à la lecture de la doc.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2021

• #24

Dans la mesure où un Variant peut contenir beaucoup de choses différentes, un tableau de Variant peut en contenir énormément de différentes à la fois !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #25

OK.
Question 2: la fonction ZonVal ne retourne rien. Comment est alors populé l'élément 1 (valeurs) de l'Array ?

VB:

Function ZonVal(ByVal R As Range) As Variant()
   CréerZonVal ZonVal, R
   End Function

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Août 2021

• #26

Re,
C'est un exemple @Dranreb à fait un super code
AdrZonVal = Array(R.Address(External:=True), ZonVal(R))
C'est un tableau "AdrZonVal" 1 dimension qui contient 2 Cases la Case 0 et La case 1
Dans la Case 0 du tableau @Dranreb (Va chercher l'adresse et la stocke dans cette case 0)
soit mon exemple : "[KO.xlsm]Feuil1!$A$1:$B$2"
Dans la case 1 du tableau @Dranreb (Va chercher la plage de valeurs et la stock dans cette case 1)

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2021

• #27

Si, elle retourne l'argument 1 crée par la Sub CréerZonVal
Je fais souvent comme ça pour éviter un tableau interne qu'il faudrait affecter à la fonction à la fin, et ça peut toujours servir à créer le tableau différemment si on a besoin de le conserver, directement avec la Sub CréerZonVal

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 26 Août 2021

• #28

@laurent950,
J'ai compris comment exploiter ce qu'a fait @Dranreb.

VB:

Sub a()
    Dim t() As Variant
    Dim tt() As Variant
    Dim ttt() As Variant
    Dim i As Integer
    
    t = AdrRangeVal(Selection)
    MsgBox t(0)
    tt = t(1)
    'MsgBox UBound(tt, 1)
    For i = 1 To UBound(tt, 1)
        ttt = tt(i)
        MsgBox UBound(ttt, 1) & " " & UBound(ttt, 2)
    Next i
End Sub

Ce que je n'ai pas compris c'est son code.
Si toi tu l'as compris c'est parfait. Mais moi j'essaie sinon ça sert à rien d'avoir une réponse qu'on ne comprends pas. Maintenant je n'ai peut-être pas la capacité à le comprendre !

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 26 Août 2021

• #29

Re pour @Dudu2

R c'est le range
Dans la case 0 du tableau on Range l'adresse : R.Address(External:=True)
Dans la case 1 du tableau on Range les valeurs de la plage l'adresse : R.Value)
soit
MsgBox AdrZonVal(0) ' "[KO.xlsm]Feuil1!$C$7:$D$8"
MsgBox AdrZonVal(1)(1, 1) ' "C7"
MsgBox AdrZonVal(1)(2, 2) ' "D8"

VB:

Sub Test()
Dim AdrZonVal As Variant
Dim R As Range
 Set R = Range("C7:D8")
    AdrZonVal = Array(R.Address(External:=True), R.Value)
    MsgBox AdrZonVal(0)       ' "[KO.xlsm]Feuil1!$C$7:$D$8"
    MsgBox AdrZonVal(1)(1, 1) ' "C7"
    MsgBox AdrZonVal(1)(2, 2) ' "D8"
End Sub

@Dranreb est hyper fort et super efficace, c'est code son extra mais quand on a compris on comprend les autres codes avec une grande facilité

Félicitation @Dranreb

 

Dernière édition: 26 Août 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2021

• #30

Qu'est ce que vous n'avez pas compris d'autre ?

 

Vote positif 0 Vote négatif