Discussion :

[stdonat]

Bonjour
Je souhaiterai remplir, rapidement, un tableau avec des colonnes discontinues
Avec des colonnes continue je le fais ainsi:

Code :

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

1
2
3
4
Sub test()
    ReDim HD(1000, 5)
    HD = F1.Range("A1:B1000").Value
End Sub

et je pensais faire ainsi avec des colonnes discontinues

Code :

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

1
2
3
4
Sub test()
    ReDim HD(1000, 5)
    HD = F1.Range("A1:B1000,E1:F1000").Value
End Sub

mais visblement ça ne marche pas...

Auriez vous une solution ?

Merci

[pgz]

Bonjour.

Je crois en effet qu'on ne peut pas lire dans une variable tableau le contenu d'une plage multizone.
Le plus efficace me semble être :
1. lire dans un variant le contenu de chaque zone
2. concaténer les différents variants dans une variable tableau.

Cordialement,

PGZ

[patricktoulon]

Bonjour
une solution hyper simple sans redim de tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Base 1
Sub merge_tableau()
    Dim tablo1, tablo2
    'ici on prend en compte 4 colonne même si la c et la d seront re rempli par la suite
    tablo1 = F1.Range("A1:D1000")
    ' ici on récupère le tableau de la colonne E et F
    tablo2 = F1.Range("E1:F1000")
    'maintenant on va merger les tableaux
    For i = 1 To UBound(tablo1)
        tablo1(i, 3) = tablo2(i, 1)    ' la case du tableau qui avait la valeur de la colonne C va recevoir la valeur de la colonne E
        tablo1(i, 4) = tablo2(i, 2)    ' la case du tableau qui avait la valeur de la colonne D va recevoir la valeur de la colonne F
    Next
End Sub

Au plaisir

[stdonat]

Jolie travail, et très bien documenté.
Merci.

[SfJ5Rpw8]

bonjour,

ne manquerait'il pas des guillemets sur le premier code :

Code :

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

1
2
3
4
Sub test()
    ReDim HD(1000, 5)
    HD = Feuil1.Range("A1:B1000", "E1:F1000").Value
End Sub

[patricktoulon]

salut bill
de toute façon c'était faux depuis le début
en effet
un redim su 2 dimension au départ
et en ligne en dessous un redim par un range
ensuite le range utilisé donnerait un tableaux a 3 dimension de part la virgule représentant normalement la séparation de colonne d'un tableau
hors il désir un tablo a 1000 ligne sur 4 colonne s
ca reviendrait a faire dim tablo(1000,2,2,) du moins il me semble mais je n'en suis pas sur
tu crois pas ??

[stdonat]

Je vois que mon sujet vous interesse,
mais désolé de contredire un expert comme bbil mais avec le code proposé

Code :

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

1
2
3
4
Sub test()
    ReDim HD(1000, 5)
    HD = Feuil1.Range("A1:B1000", "E1:F1000").Value
End Sub

j'ai le meme résultat que si j'ecris:

Code :

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

1
2
3
4
Sub test()
    ReDim HD(1000, 5)
    HD = Feuil1.Range("A1:F1000").Value
End Sub

Les colonnes C et D sont également chargées dans la matrice, or je ne les veux pas!

[patricktoulon]

absolument pas stdonat
Avec

Code :

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

HD = Feuil1.Range("A1:F1000").Value

tu aurais un tableau a 6 colonnes sur 1000 lignes

[Capitaine Kirk]

Bonjour à tous

D'après ce que j'ai compris de la demande je pense que j'aurais codé la chose comme ceci :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub MyBigArray()
    Dim MyArray, MyBigRange As Range
    Set MyBigRange = Application.Union(Range("A1:B1000"), Range("E1:F1000"))
    MyArray = MyBigRange.Value
End Sub

[patricktoulon]

Bonjour à tous

D'après ce que j'ai compris de la demande je pense que j'aurais codé la chose comme ceci :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub MyBigArray()
    Dim MyArray, MyBigRange As Range
    Set MyBigRange = Application.Union(Range("A1:B1000"), Range("E1:F1000"))
    MyArray = MyBigRange.Value
End Sub

un array n'a qu'une dimension du moins je crois ???????
1ligne et plusieurs colonne
la il nous faut 1000 lignes et 4 colonnes

[Stef999]

Bonjour,

Code :

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

HD = Feuil1.Range("A1:B1000", "E1:F1000").Value

ou

Code :

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

HD = Feuil1.Range("A1:F1000").Value

renvoient toutes deux un tableau à 2 dim qui contient les 6 colonnes

Code :

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

HD = Application.Union(Range("A1:B1000"), Range("E1:F1000"))

renvoie un tableau à 2 dim qui contient les 2 premières colonnes uniquement

Le message de Patrick à 12h50 donne une solution performante (0.004 s sur mon très vieux pc) pour n'avoir que 4 colonnes ...

Stéphane

[Capitaine Kirk]

Bonsoir,

HD = Application.Union(Range("A1:B1000"), Range("E1:F1000"))
renvoie un tableau à 2 dim qui contient les 2 premières colonnes uniquement
Stéphane

arf lol effectivement, j'aurais peut être dû tester avant, m'enfin le demandeur à trouvé satisfaction avec le code de Patrick c'est bien là le principal .