XL 2016 Valeurs de Zones discontinues

[fanch55]

Bonjour à tous,
Il doit surement y avoir une solution mais je n'ai pas trouvé ou mal cherché ...

Je bloque pour récupérer facilement les valeurs d'un range de cellules discontinues .

Exemple, je sélectionne un range ainsi :

Range("A1:A8,J9,C8:C9,etc...")​

ou​

Union([Table1[Colonne1]],[Table2[Colonne6]],etc..)​

​

Via Excel, aucun problème, je sélectionne, je copie et je colle les valeurs dans d'autres cellules correctement .

Par contre, via le VBA, je suis incapable de récupérer facilement les valeurs des cellules sélectionnées,
le .value ou .value2 ne me renvoie les valeurs que de la première zone.
Sinon, il faut décliner les .Areas obtenus .

C'est pareil en passant par le selection.
Y a-t-il une autre solution (courte) pour récupérer ces valeurs dans un tableau ?

 

[fanch55]

@patricktoulon , @Staple1600

Bon, étant sur plusieurs sujets en même temps,
je suis en train de bloquer grave sur celui-ci (),
si on pouvait me débloquer pour que je ne débloque plus ()
un petit code fonctionnel serait le bienvenu ....

 

[Dranreb]

Mais … Le code que j'avais fourni poste #6, quelque peu amélioré d'ailleurs par d'autre intervenants, dont vous même, ne fonctionne-t-il pas ?

 

[fanch55]

@Dranreb
Si, si, merci beaucoup
Le mien fonctionne
Le votre fonctionne
je suis sûr que celui de Staple aussi et j'aimerai le voir en œuvre pour ma richesse personnelle ....

 

[Dranreb]

Apparemment non, il a plutôt donné une solution dans une autre discussion pour un problème différent :
regrouper dans un nouveau tableau certaines colonnes d'un tableau source (donc même nombre de lignes partout). Je me demande d'ailleurs si ça marcherait en remplaçant son ArrayCol par un ParamArray. À tester.

 

[patricktoulon]

le code de Dranreb est très bien y aussi c'est un peu la même idée que Staple1600
je vois pas trop ce qu'on peu chercher de mieux

 

[fanch55]

Oki, donc je mets en solution ce que j'ai pu vérifier : post#6 et post#8
Merci à tous .

 

[Regueiro]

Bonsoir le Forum
Ce Code charge tous les tableaux de la page active, Colonne 1

Private Sub ComboBox1_DropButtonClick()
Dim tableList As ListObjects
Dim Tbl()
Dim n
Dim i
Dim r
Set tableList = ActiveSheet.ListObjects

MsgBox tableList.Count
n = 0
For i = 1 To tableList.Count
    For r = 1 To tableList(i).ListColumns(1).DataBodyRange.Cells.Count
        n = n + 1
        ReDim Preserve Tbl(1 To n)
        Tbl(n) = tableList(i).ListColumns(1).DataBodyRange.Cells(r).Value
    Next r
Next i
Me.ComboBox1.List = Tbl
End Sub