Discussion :

[mathspountz]

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 ?

[pgz]

Bonsoir.

Tu ne peux affecter à une variable tableau que les données d'une plage mono-zone.

Mais tu veux faire quoi exactement avec ta fonction qui ne renvoie qu'une cellule?

Cordialement,

PGZ

[mathspountz]

Merci pour ta réponse,

Cette fonction ne sert strictement à rien à part à montrer qu'on ne peut pas assigner une plage multi zone dans un tableau.

C'est donc résolu!