Discussion :

[mennix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pgz]

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

[Didier Gonard]

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

[mennix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pgz]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mennix]

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