Imbriquer des variables tableaux

Bonsoir a tous,
je cherche desesperement un moyen propre d'obtenir dans une variable (TABL as VARIANT) plusieurs RANGE selectionné.

un genre de bout de code ressemblant a cela :

Code:

---

1 2 3 4 5

dim Montab as VARIANT   MonTab=Feuil1.Range("A1:a9000,C1:C9000,E1:E9000")   msgbox(montab(1,3))

---

l'idée etant de prendre que les colonnes intéressantes pour en faire ma base de donnée.

j'ai bidouillé un truc, mais je pense que qu'on doit assez facilement obtenir mon souhait.
Merci par avance.
Thierry.

Bonjour.

Tu essaies de charger les valeurs d'une plage multizone. Dans ce cas, tu charges seulement les valeurs de la première zone (dans l'ordre de définition de la plage, ici A1: A9000).

Tu dois obtenir un tableau de 9000 lignes et 1 colonne.

Tu as 3 possibilités :

• charger dans 1 variant toutes les colonnes de A à E puis recopier dans un autre tableau A, C et E
• Charger séparément A, C et E dans 3 variants et recopier dans un tableau unique.
• charger séparément A, C et E dans 3 variants et travailler avec cela.

[/LIST]
Cordialement,

PGZ

Bonjour,

tu :

• fais une copie de ta feuille
• tu supprimes toutes les colonnes non voulues
• tu obtiens donc une plage continue que tu met dans un array en une fois
• tu delete la feuille de passage

cordialement,

Didier

Merci pour vos reponses,
Je voies que la manipulation pour arriver a mon resultat en un minimum de commande et en evitant de passer par une autre feuille tampon, l'affaire n'est pas simple.

Ma solution a été la suivante:
J'analyse le SET

Code:

---

1 2	set RANG=Feuil1.Range("A1:a9000,C1:C9000,E1:E9000")

---

afin de trouver le mini, le max des colonnes et des lignes de ce RANG, ici le range total de cette zone est range("A1:E9000") que je mets ds mon tableau

puis ds une variable, j'y stocke les colonnes souhaitées, ici colonne 1 pour A , 3 pour C et 5 pour E.

et pour finir, je balaye mon tableau a l'aide d'un jeton, et j'exploite les donnees des que ce jeton correspond a une colonne souhaitée.

Finalement, je reviens vers vous,
dans la continuité de mon investigation.

Un des exemples parlent d'additionner des tableaux entre eux, j'avoue ne pas y arriver.

Code:

---

1 2 3

tab1 = Feuil1.[A1:A5] tab2 = Feuil1.[B1:B5]

---

je voudrais un seul tableau de deux colonnes, 1e colonne TAB1 et 2e colonne TAB2

est il possible d'addtionner les deux tableaux en colonne et non un UNION ?

Bonjour,

Si tu tiens à avoir un tableau unique, tu peux faire

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

Sub Mennix() Dim vC, vE, v3 'variants Dim i As Long, nbLig As Long   nbLig = 9000   With ThisWorkbook.Worksheets("Feuil1") vC = .Range("C1:C" & nbLig).Value vE = .Range("E1:E" & nbLig).Value v3 = .Range("A1:C" & nbLig).Value End With   For i = 1 To nbLig v3(i, 2) = vC(i, 1) v3(i, 3) = vE(i, 1) Next i   vC = Empty vE = Empty   'suite ...     End Sub

---

Mais il y a bien des manières de faire.

Cordialement,

PGZ

Merci, je voies que tu refais un balayge des lignes pour les additionner. c'est une piste.
Venant du delphi, a l'aide des pointeurs j'aurais reglé ce souci.
bon je vais rester avec mon systeme de jeton
ou peut etre que le week porte conseil ehehe... bonne fin de journée.
t