Assigner une selection multiple dans un tableau
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:
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 ?
