XL 2016 VBA Tableau de Tableaux - Syntaxe

[Dudu2]

Bonjour,

Je n'y arrive pas, rien à faire.
Je veux créer un tableau de tabeaux de variants.

Sub a()
    Dim t1() As Variant
   
    ReDim t1(1 To 2)
    redim t1(1) (1 to 3, 1 to 1) <- Syntaxe en erreur !
End Sub

Edit: la seule manière que j'ai trouvée de le faire c'est d'affecter un Range:

t1(1) = ActiveSheet.Range("A1:A3").Value

Mais c'est un pis aller nullissime.
Merci pour l'aide.

 

[Efgé]

Bonjour à tous

Sujet sympa qui a été ouvert ici.
J'amène ma pierre à l'édifice en utilisant un dictionnaire de tableaux.

Sub DicoMultiTab()
Dim i&, J&
Dim D As Object, Sh As Worksheet

Set D = CreateObject("Scripting.dictionary")

For Each Sh In ThisWorkbook.Worksheets
    i = i + 1
    D(i) = Sh.UsedRange
Next Sh

Debug.Print D(1)(1, 2)

For i = LBound(D(2), 1) To UBound(D(2), 1)
    For J = LBound(D(2), 2) To UBound(D(2), 2)
        Debug.Print D(2)(i, J)
    Next J
Next i

End Sub

Cordialement

 

[Dudu2]

Bonjour @Efgé,
Intéressant, je ne savais pas qu'on pouvait placer un objet Range directement dans un item du dictionnaire et y faire référence avec les indices.
Edit: non fait c'est le tableau des valeurs qui s'y place, pas le Range.
En fait j'en sais rien !

 

[patricktoulon]

Bonjour
on peut quasiment tout mettre dans un dico

 

[Efgé]

Re
Dans le dico se sont les valeurs.
L'interet est de pouvoir générer des tableaux sans en connaitre le nombre ni leurs dimentions.
On peux en supprimer facilement.

patricktoulon à raison, on peux presque tout mettre dans les dicos.

Cordialement

 

[Dudu2]

En effet ce sont les valeurs. Que l'on mette:
D(i) = Sh.UsedRange
ou
D(i) = Sh.UsedRange.Value
Il ne stocke pas l'objet mais les valeurs. MsgBox TypeOf D(i) Is Range rend toujours Faux.

Cependant, on peut stocker un objet dans un dictionnaire. Et je sais comment faire . Enfin je crois .

 

[Efgé]

Re
Pour mettre le range dans le dico :

For Each Sh In ThisWorkbook.Worksheets
    i = i + 1
    Set D(i) = Sh.UsedRange
Next Sh

Mais on perd, évidemment, la notion de boucle LBound - UBound

Cordialement

 

[dysorthographie]

Bonjour,

Sub test()
Dim T() As Variant
ReDim T(1 To 2)
T(1) = Split(";;;", ";")
T(2) = Array(Split(";;;", ";"), Split(";", ";"))
ReDim Preserve T(1 To 3)
End Sub

 

[patricktoulon]

huuuummmmm!!!!!
attention Efgé au ".value" par defaut

 

[Efgé]

Re

attention Efgé au ".value" par defaut

Pourtant :

Cordialement

 

[Dudu2]

attention Efgé au ".value" par defau

Oui c'est un peu "confusing" comme disent les godons.
Moi j'ai:
D(i) = Sh.UsedRange
MsgBox TypeOf D(i) Is Range -> Faux !

 

[Efgé]

Re

Ok mais c'est pardce que ma feuille est vide.

Non, c'est parceque tu n'affectes pas un objet mais les valeurs :
Valeurs

D(i) = Sh.UsedRange

Objet ==> Set

Set D(i) = Sh.UsedRange

Cordialement

 

[Dudu2]

Perdu, j'ai refait et en effet, logiquement:

        D(i) = Sh.UsedRange
        MsgBox TypeOf D(i) Is Range & " " & TypeOf D(i) Is Object

        Set D(i) = Sh.UsedRange
        MsgBox TypeOf D(i) Is Range & " " & TypeOf D(i) Is Object

 

[Dudu2]

Et si tu devais faire un Dic.Add <ID>, <Objet> comment lui spécifier le 'Set' ?

 

[patricktoulon]

Et si tu devais faire un Dic.Add <ID>, <Objet> comment lui spécifier le 'Set' ?

re
pareil
set dic(dic.count+1)=unautresh.usedrange
ou dic .add dic.count+1,unautresh.usedrange.cells' a tester
pardon Efgé je n'avais pas fait attention au "Set"

 

[Dudu2]

ou dic .add dic.count+1,unautresh.usedrange.cells' a tester

Non ça il aime pas.
Mais ma question n'a pas d'intérêt car on peut ajouter un item au Dictionary sans passer par un Dic.Add et simplement en affectant Dic(ID) = ou Set Dic(ID).
Je n'ai pas une très bonne connaissance des Dictionaries.

Et je m'en sors comme ça:

Sub PutIntoDictionary(Dic As Object, ID As Variant, Chose As Variant)
    If TypeOf Chose Is Object  Then
        Set Dic(ID) = Chose
    Else
        Dic(ID) = Chose
    End If
End Sub

Sub GetFromDictionary(Dic As Object, ID As Variant, Chose As Variant)
    If TypeOf Dic(ID) Is Object  Then
        Set Chose = Dic(ID)
    Else
        Chose = Dic(ID)
    End If
End Sub