Bonjour à tous,

Je n'arrive pas à assigner une sélection multiple dans un tableau. Dans le code suivant le cas 1 fonctionne mais le cas 2 ne fonctionne pas (le tableau est alimenté par la première ligne uniquement).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
MsgBox myFunk(Me.Range("A1:C2")) 'cas 1
MsgBox myFunk(Me.Range("A1:C1,A3:C3")) 'cas 2
 
End Sub
 
Function myFunk(rng As Range)
Dim tbl() As Variant
 
tbl = rng
myFunk = tbl(2, 2)
End Function
Y a t'il un moyen d'obtenir la même chose rapidement ? (sans avoir besoin d'alimenter le tableau avec des boucles).

Je pose cette question car j'essaye de créer des tableaux via SpecialCells(xlCellTypeVisible) après application d'un autofiltre; ce qui donne le plus souvent des sélections multiples. Mais peut-être que là encore, je m'y prends mal ?