Discussion :

[Ellimac]

Bonjour,

J'essaye de charger une variable tableau à partir d'une plage multiple mais cela ne me prend que la 1ère plage.
Le code :

Code :

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

1
2
3
4
5
6
 
    der = Range("a1000000").End(xlUp).Row - 3
    Application.Union(Range("a4:b" & der + 3), Range("f4:f" & der + 3)).Copy
    plage = Application.Union(Range("a4:a" & der + 3), Range("e4:e" & der + 3)).Address
    ReDim tablox(der, 3)
    tablox = Range(plage).Value

La copie avec Union fonctionne, mais le chargement du tableau ne prend que la colonne A.

Que manque t-il ? Est-ce possible de charger dans une variable tableau une plage multiple en une opération ?

Merci

[helas]

Bonjour,
avec les plages directement

Code :

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

1
2
 
tablox = Range("a4:a" & der + 3, "e4:e" & der + 3).Value

a tester

[PMO2017]

Est-ce possible de charger dans une variable tableau une plage multiple en une opération ?

Bonjour,

A ma connaissance, ce n'est pas possible.
En revanche, on peut utiliser 2 astuces.

1) On monte toute la plage dans un Variant sans se préoccuper des colonnes qui ne nous intéressent pas. Ces dernières sont filtrées dans le code

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
Sub PlageUnSeulTenant()
Dim Plage As Range
Dim var As Variant
Dim i&
Dim j&
Dim der&
'---
der = Range("a1000000").End(xlUp).Row - 3
Set Plage = Range("a4:e" & der + 3)
var = Plage 'om monte tout dans un Variant qui se comporte comme un tableau à 2 dimension
 
For i& = 1 To UBound(var, 1)
  For j& = 1 To UBound(var, 2)
    '--- on ne veut pas des colonnes C et D ---
    If j& <> 3 And j& <> 4 Then
    '------------------------------------------
      MsgBox var(i&, j&)
    End If
  Next j&
Next i&
End Sub

2) On fait de multiples sélections (comportant le même nombre de lignes) et on utilise les Areas de la plage obtenue

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub PlageMultiplesTenants()
Dim Plage As Range
Dim T()
Dim i&
Dim j&
Dim k&
Dim nbCol&
Dim Col&
Dim der&
'---
der = Range("a1000000").End(xlUp).Row - 3
Set Plage = Application.Union(Range("a4:b" & der + 3), Range("e4:e" & der + 3))
 
    '°°° Essai pour une plage plus étendue °°°
Set Plage = Application.Union(Plage, Range("g4:h" & der + 3)) 'à flaguer dans votre réalité
    '°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 
'--- On compte le nombre de colonnes des Areas dans la plage ---
For k& = 1 To Plage.Areas.Count
  nbCol& = nbCol& + Plage.Areas(k&).Columns.Count
Next k&
 
'--- On dimensione le tableau de sortie avec le bon nombre de colonnes ---
ReDim T(1 To Plage.Rows.Count, 1 To nbCol&)
 
'--- Populer le tableau des éléments des Areas ---
Col& = 0
For k& = 1 To Plage.Areas.Count
  For j& = 1 To Plage.Areas(k&).Columns.Count
    For i& = 1 To UBound(T, 1)
      T(i&, j& + Col&) = Plage.Areas(k&)(i&, j&)
    Next i&
  Next j&
  Col& = Col& + Plage.Areas(k&).Columns.Count
Next k&
 
'--- Visualiser la population du tableau ---
For i& = 1 To UBound(T, 1)
  For j& = 1 To UBound(T, 2)
    MsgBox T(i&, j&)
  Next j&
Next i&
End Sub

Cela fonctionne chez moi avec Excel 2007.

[Ellimac]

Bonjour,

Merci pour cette réponse que je regarderai demain.

Cordialement

Camille

[boisgontierjacques]

Bonsoir,

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
 
Sub FiltreColonnes()
  a = [A2:F10]          ' tableau a()
  b = FiltreArrayCol(a, Array(1, 2, 6)) ' on prend les colonnes 1, 2,  6
  [m1].Resize(UBound(b), UBound(b, 2)) = b
End Sub
 
Function FiltreArrayCol(tableau, ColResult)
  Dim b()
  ReDim b(LBound(tableau) To UBound(tableau), 1 To UBound(ColResult) + 1 - LBound(ColResult))
  For i = LBound(tableau, 1) To UBound(tableau, 1)
    For c = LBound(ColResult) To UBound(ColResult)
      col = ColResult(c)
      b(i, c + 1) = tableau(i, col)
    Next c
  Next i
  FiltreArrayCol = b
End Function

Boisgontier

[Marc-L]

Bonjour, bonjour !

Voici une méthode directe sans boucle pour affecter une plage discontinue dans une variable tableau :

Code :

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

1
2
3
    With Range("A4:F" & Application.Max(Cells(Rows.Count, 1).End(xlUp).Row, 4))
        VA = Application.Index(.Value, Evaluate("ROW(1:" & .Rows.Count & ")"), [{1,2,6}])
    End With

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse