Forcer une liste en Range ?

[Pijay]

Bonjour a tous,

J'ai une liste de 24 paramètres (de type liste(1 To 24)) et je souhaiterais la transformé ou la mettre sous la forme d'une "plage" (type Range), pour la passer a une fonction qu_i prend seulement un range en argument.

Si quelqu'un connait la solution.... merci d'avance

Pijay.

 

[Bebere]

Re : Forcer une liste en Range ?

bonjour Pijay
ce qui suit devrait arranger ton affaire
sub Change()
dim Liste1 as variant,i as integer
redim liste1(1 to ubound(liste),1 to 1)
for i= 1 to ubound(liste)
liste1(i,1)=liste(i)
next i
end sub
à bientôt

 

[porcinet82]

Re : Forcer une liste en Range ?

Salut Pijay, Bebere,

Est-ce qu'un simple Set ne suffirait pas ?
Dim ma_plage as Range
Set ma_plage=Range("A1:A24")

@+

 

[Hervé]

Re : Forcer une liste en Range ?

bonjour pijay, bebere, porcinet

personnellement je n'ai jamais trouvé de reponse à cette question, mais je ne desespere pas.

la seule solution que j'ai trouvé c'est d'utiliser une feuille comme intermediaire, renvoyer les données, puis appliquer la fonction sur la plage de cellule.

mais il doit exister une méthode, l'avenir nous le dira.

code test :

Dim liste(1 To 24)
Dim i As Byte
Dim valeur As Integer
Dim plage As Range

For i = 1 To 24
    liste(i) = i
Next i

liste(12) = "" 'pour test

Set plage = Range("a1:a24")

plage = Application.Transpose(liste)
valeur = Application.CountBlank(plage) 'nb.vide n'accepte que des range
plage = ""

MsgBox valeur

salut