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