Manipulation variable tableau 3 dimensions

Version imprimable

19/03/2015, 11h57
PierrotMfff

Manipulation variable tableau 3 dimensions

Bonjour,

J'ai une variable tableau à 3 dimensions dans laquelle je fais pas mal de traitements.

Prenons la taille Tab(5,10,100) pour l'exemple:
1ère dimension: nombre de feuilles de calcul
2ème : Nombre de colonnes
3ème : Nombre de lignes

Pour visualiser c'est comme si ce tableau était 5 grilles de 10 * 100 superposées
(J'ai pris le Nombre de lignes en dernière dimension car seule la dernière dimension est redimensionnable)

A la fin de mon code je veux transfèrer dans mes 5 feuilles les données du tableau correspondantes.
Au lieu de boucler sur les éléments du tableau et faire du "point à point" je voudrais savoir si il est possible avec un tableau à 3 dimensions de dire en VBA:

Citation:

"Je veux que dans ma feuille 1 dans ma plage allant de Cell(1,1) à Cell(10,100) apparaisse ma grille 10*100 à l'étage 1 de mon tableau"

...De la même manière qu'avec un tableau à 2 dimensions!

Je n'ai trouvé nulle part, ni même réussi à deviner :aie:
Utiliser .Index? Ubound()?
Est-ce possible? Ou dois-je me contenter d'une boucle?

Celui qui trouve, aura un sandwich (à la fraise) :mrgreen:

Merci de votre considèration, et bonne journée ;)
19/03/2015, 12h09
Invité
Bonjour,
je sais pas si je me fourvoie ou pas comme je ne sais pas comment ton tableau es constitué!
d’abord il es possible de de connaitre le Ubound d'un sous dimension!
ubound(Tab,1) retourne la taille du premier niveau; ubound(Tab,2) retourne la taille du deuxième niveau; ubound(Tab,3) retourne la taille du troisième ect...;

ensuite tu peux affecter a un plage de cellule un tableau
Code:

1 2 sheets(1).range("A2:C10")=Tab(0) sheets(2).range("A2:C10")=Tab(1)
19/03/2015, 12h37
PMO2017
Citation:

J'ai une variable tableau à 3 dimensions dans laquelle je fais pas mal de traitements.

Prenons la taille Tab(5,10,100) pour l'exemple:
1ère dimension: nombre de feuilles de calcul
2ème : Nombre de colonnes
3ème : Nombre de lignes

Bonjour,

Je ne ferais pas comme cela.
Je passerai par un type défini comme par exemple
Code:

1 2 3 4 Type strucData NomFeuille As String SourceData As Variant End Type
et je déclarerai une variable tableau dynamique de ce type

Citation:

Dim mesData() As strucData

On pourrait renseigner les sources d'un seul coup et alimenter les destinations de la même manière.

Si cela vous convient, je peux construire un exemple. Dites le moi.
19/03/2015, 12h42
Invité

Bonjour PMO2017,
tout dépend comment est constitué son tableau et ou il en est de sont développement, car mois je passerait par une collection de classe!

la feuille est mise à jour automatiquement des lors qui rempli son tableau.
19/03/2015, 13h20
PierrotMfff

Merci pour vos réponses!

rdurupt : Je ne m'en sors pas avec ces méthodes que j'ai essayé à plusieurs sauces...

PMO2017 : Je ne connais pas les Types... j'ai trouvé ce tuto: http://fauconnier.developpez.com/art...neral/classes/

Je l'étudie et je reviens vers vous! ;)
19/03/2015, 13h23
Invité

dis nous au moins comment tu génère ton tableau!
19/03/2015, 13h54
Kimy_Ire

Bonjour à tous,

Citation:

Envoyé par rdurupt

dis nous au moins comment tu génère ton tableau!

Tout à fait d'accord ! :mrgreen:

En effet, les tableaux aux multiples dimensions peuvent être constitué de différentes façon.

Par exemple, il serait intéressant de savoir que contiennent les variables oTable(X, 0, Y) et oTable(X, Y, 0) quelque soit X ou Y.

Bref, je ne pense pas que la communauté puisse te fournir une réponse clair à ton problème tant que tu n'auras pas répondu à la question de Robert.

Cordialement,
Kimy
19/03/2015, 14h13
Igloobel

Bonjour,

donc :

- UBound retourne la limite supérieure
- LBound retourne la limite inférieure

Va voir ce Tuto il t'aidera surrement
http://didier-gonard.developpez.com/...s-tableau-vba/
A+

Re,

J'ai un tableau Source, à 2 dimensions que j'extrait d'une feuille dont je veux traiter les données, comptant beaucoup de lignes;
Je dimensionne un tableau Réponse (celui dont je parle) à trois dimensions.

Un code de traitement permet de ventiller les données du tableau à 2 dimensions dans le tableau à 3 dimensions.
La 3ème dimension me sert à différencier mes différentes feuilles réponses (il y en a 7)
Le code de traitement définit vers quelle feuille, donc élément de 1 à 7 de ma 1ère dimension (option base 1) , je vais envoyer mes données

Imaginons TabReponse(1,20,150) me renvoie donc ce que je dois écrire dans la feuille 1, dans la colonne 20, à la ligne 150 !
Cette case TabReponse(1,20,150) contient du texte, des nombres, ou les deux... (tableau déclaré en type Variant)

J'aurais voulu ici directement faire un code du genre:
Code:

1 2 3 4 5 6 Sheets(1).Range("A2:BA2000") = 'TabReponse(1,1,1) à TabReponse(1,TailleColones,TailleLignes) Sheets(2).Range("A2:BA2000") = 'TabReponse(2,1,1) à TabReponse(2,TailleColones,TailleLignes) . . . Sheets(7).Range("A2:BA2000") = 'TabReponse(7,1,1) à TabReponse(7,TailleColones,TailleLignes)
Y a-t-il encore des précisions à apporter? je réponds peut être à coté?

-----------------------------------

Sinon je peux créer 7 tableaux ça simplifierait le tout...
Ca reviendrait à la méthode de PMO2017 en passant par un type "feuille de données" et déclarer un tableau pour chaque...

D'ailleurs ça pourrait me libèrer un peu de mémoire sachant que le "volume" mémoire comparable visuellement à un pavé que je demande à l'ordinateur d'allouer pour le tableau de variable, comporte un nombre de de lignes égale au nombre de lignes de la feuille qui en comporte le plus...
Donc si j'ai TabReponse(1,20,700) et TabReponse(2,20,300) avec 300 dernière ligne , j'ai 400 cases inutiles dans le tableau 2...

J'ai l'impression de faire compliqué alors que je peux faire simple :aie:

19/03/2015, 14h35
Invité

mes pourquoi ne pas utiliser un filtre élaboré il ferait un copier collé de tes valeur en une foies pour chaque feuille!

http://www.developpez.net/forums/d13...s/#post7481714
19/03/2015, 15h18
PierrotMfff
Euh je ne l'ai peut être pas ou mal précisé, mais dans mon tableau de données réponses j'effectue un gros nombre de traitement de chaines de caractères, de tri, de gestion des doublons...

Imaginons dans ma source j'ai:
```
Nom / Quoi  / Heures / Num concerné
EEE / 51    / 4h     / 12
EEE / 51    / 4h     / 12
EEE / 51    / 3h     / 18
```
je dois pourvoir avoir dans la feuille 51:
Nom/ Total d'heures / 1 / 2 / 3 / .... / 12 / ... / 18 / ...
EEE /_____11______/__/ __/__/ .... / 8h / ... / 3h / ...

Mais il y a encore d'autres choses... Un filtre ne suffit pas je pense...
Je n'ai pas décrit exactement le cahier des charges, juste la partie des tableaux, niveau gestion des données tout est OK et le code plus rapide que ce que j'ai l'habitude de faire (grâce aux tableaux de données justement)
Et c'est à l'étape de recopie....... Que ça va pas :aie: :aie: :aie:

mais du coup je pense qu'un filtre actif n'est pas suffisant...

Je vais essayer de contruire 7 tableaux distincs, ça je sais m'en servir...
Par contre au niveau de la déclaration, pensez vous qu'utiliser le type feuille peut s'avèrer utile? ou je peux déclarer 7 tableaux indépendants? (sachant que ce nombre 7, est lui fixe)

Je devrais pouvoir contourner le problème du coup, je marque résolu, merci beaucoup pour votre réactivité et investissement toujours aussi inspirants ;)

1 pièce(s) jointe(s)

Citation:

Je passerai par un type défini comme par exemple

Type strucData
NomFeuille As String
SourceData As Variant
End Type

et je déclarerai une variable tableau dynamique de ce type

J'ai construit un exemple pour 3 feuilles de réponse.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Type StructData
  NomFeuille As String
  Tbl() As Variant
End Type
 
Sub aa()
Dim S As Worksheet
Dim var
Dim i&
Dim j&
Dim k&
Dim myData(1 To 3) As StructData
Dim Cpt&(1 To 3)
'---
'--- On monte toutes les données d'un seul coup ---
Set S = Sheets("Sources")
var = S.[a1].CurrentRegion
'--- On les attribue aux différents tableaux (Tbl) selon le cas ---
For i& = 1 To UBound(var, 1)
  Select Case var(i&, 3)
    Case "Dispatch1"
      myData(1).NomFeuille = "Reponse1"
      Cpt&(1) = Cpt&(1) + 1
      ReDim Preserve myData(1).Tbl(1 To UBound(var, 2), 1 To Cpt&(1))
      For j& = 1 To UBound(var, 2)
        myData(1).Tbl(j&, Cpt&(1)) = var(i&, j&)
      Next j&
    '---
    Case "Dispatch2"
      myData(2).NomFeuille = "Reponse2"
      Cpt&(2) = Cpt&(2) + 1
      ReDim Preserve myData(2).Tbl(1 To UBound(var, 2), 1 To Cpt&(2))
      For j& = 1 To UBound(var, 2)
        myData(2).Tbl(j&, Cpt&(2)) = var(i&, j&)
      Next j&
      '---
    Case "Dispatch3"
      myData(3).NomFeuille = "Reponse3"
      Cpt&(3) = Cpt&(3) + 1
      ReDim Preserve myData(3).Tbl(1 To UBound(var, 2), 1 To Cpt&(3))
      For j& = 1 To UBound(var, 2)
        myData(3).Tbl(j&, Cpt&(3)) = var(i&, j&)
      Next j&
  End Select
Next i&
 
 
'--------------------------------------------------------
'on peut faire des traitements sur chaque myData.Tbl
'ATTENTION : les lignes sont en colonnes et vice versa
'--------------------------------------------------------
 
'--- Inscription dans les feuilles de destination (ici à partir de A1 mais à vous de voir ) ---
For i& = 1 To UBound(myData)
  Set S = Sheets(myData(i&).NomFeuille)
  '--- On inscrit à partir de A1 ---
  S.Range(S.Cells(1, 1), S.Cells(UBound(myData(i&).Tbl, 2), UBound(myData(i&).Tbl, 1))) = _
      Application.WorksheetFunction.Transpose(myData(i&).Tbl)
Next i&
 
End Sub

19/03/2015, 17h00
Invité
Si tu sais faire un tableau, tu sais en faire deux; trois mille!
si tu sais faire un tableau selon critère j'imagine que le code pour les autre est un peut semblable?

dans un module standard je sais créer un table selon le critère A par exemple, et je sais renseigner la feuille qui va bien.
Code:

1 2 3 4 5 sub CrationTableau(A) end sub sub EcrirFeuill(A) end sub
imagions avec ce code je peux faire en plusieurs passe les 7 onglet A;B;C;D ect...

je bascule mon code dans un classe et je fais un table pour les 7 onglets!
Code:

1 2 3 4 5 Public sub CrationTableau(A) end sub Public sub EcrirFeuill(A) end sub
Code:

1 2 3 4 5 sub test() dim T(7) as new MyClass t(0).CrationTableau(A) t(0).CrationTableau(B) end sub
et là tout est automatique

Avec un module de classe tu n'as pas à gérer le code pour 7 tableaux mais juste pour 1 ce sont les critères qui disent sur quelle feuille!
23/03/2015, 14h50
PierrotMfff

Merci pour ces méthodes :D les deux fournissent le résultat souhaité!