Mettre un Range dans un Array

Le
Xavier powaga
bonjour à tous,
dans mon tableau sur la Feuille 1 et en colonne A j'ai une liste de Fruits .
J'ai donné un nom "Fruits" à cette liste que j'ai définit ainsi :
ÞCALER(Feuil1!$A$2;0;0;NBVAL(Feuil1!$A$A))

Dans mon VBA j'ai une variable Array Fruit que j'aurais aimé charger avec
les données contenues dans le nom "Fruits"

Avant je faisais
Fruit = Array(, "Banane", "Orange", "Tomate", "Fraise")

Maintenant j'aimerais faire
Fruit = le contenu de Application.Range("Fruits")

est ce possible ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #5238311
T devient un tableau (array) à 2 dimensions, et pour en extraire
chaque élément, tu peux créer ce type de boucle.
'---------------------------------
Sub test()
Dim T
T = [fruits].Value
For a = 1 To UBound(T, 1)
For b = 1 To UBound(T, 2)
Msgbox T(a, b)
Next b, a
End Sub
'---------------------------------


"Xavier powaga" 47c6b8d5$0$29811$
bonjour à tous,
dans mon tableau sur la Feuille 1 et en colonne A j'ai une liste de Fruits .
J'ai donné un nom "Fruits" à cette liste que j'ai définit ainsi :
ÞCALER(Feuil1!$A$2;0;0;NBVAL(Feuil1!$A$A))

Dans mon VBA j'ai une variable Array Fruit que j'aurais aimé charger avec
les données contenues dans le nom "Fruits"

Avant je faisais
Fruit = Array(, "Banane", "Orange", "Tomate", "Fraise")

Maintenant j'aimerais faire
Fruit = le contenu de Application.Range("Fruits")

est ce possible ?
JB
Le #5237501
ReBonjour,

Fruit= [fruits] ' Fruit tableau nx1
x = Fruit(1, 1)
y= Fruit(2, 1)
z= Fruit(3, 1)

JB

On 28 fév, 14:36, "Xavier powaga"
bonjour à tous,
dans mon tableau sur la Feuille 1 et en colonne A j'ai une liste de Fruits .
J'ai donné un nom "Fruits" à cette liste que j'ai définit ainsi :
ÞCALER(Feuil1!$A$2;0;0;NBVAL(Feuil1!$A$A))

Dans mon VBA j'ai une variable Array Fruit que j'aurais aimé charger ave c
les données contenues dans le nom "Fruits"

Avant je faisais
Fruit = Array(, "Banane", "Orange", "Tomate", "Fraise")

Maintenant j'aimerais faire
Fruit =  le contenu de   Application.Range("Fruits")

est ce possible ?


JB
Le #5237491
http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB

On 28 fév, 15:29, JB
ReBonjour,

  Fruit= [fruits]    ' Fruit tableau nx1
  x = Fruit(1, 1)
  y=  Fruit(2, 1)
  z=  Fruit(3, 1)

JB

On 28 fév, 14:36, "Xavier powaga"


bonjour à tous,
dans mon tableau sur la Feuille 1 et en colonne A j'ai une liste de Frui ts .
J'ai donné un nom "Fruits" à cette liste que j'ai définit ainsi :
ÞCALER(Feuil1!$A$2;0;0;NBVAL(Feuil1!$A$A))

Dans mon VBA j'ai une variable Array Fruit que j'aurais aimé charger a vec
les données contenues dans le nom "Fruits"

Avant je faisais
Fruit = Array(, "Banane", "Orange", "Tomate", "Fraise")

Maintenant j'aimerais faire
Fruit =  le contenu de   Application.Range("Fruits")

est ce possible ?- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Xavier powaga
Le #5237181
Merci JB et Mich grace à vous je m'en suis sortit

PS: Fantastique le travail de Jacques sur les tableaux. Que du bonheur

"JB"
http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB

On 28 fév, 15:29, JB
ReBonjour,

Fruit= [fruits] ' Fruit tableau nx1
x = Fruit(1, 1)
y= Fruit(2, 1)
z= Fruit(3, 1)

JB

On 28 fév, 14:36, "Xavier powaga"


bonjour à tous,
dans mon tableau sur la Feuille 1 et en colonne A j'ai une liste de
Fruits .
J'ai donné un nom "Fruits" à cette liste que j'ai définit ainsi :
ÞCALER(Feuil1!$A$2;0;0;NBVAL(Feuil1!$A$A))

Dans mon VBA j'ai une variable Array Fruit que j'aurais aimé charger
avec
les données contenues dans le nom "Fruits"

Avant je faisais
Fruit = Array(, "Banane", "Orange", "Tomate", "Fraise")

Maintenant j'aimerais faire
Fruit = le contenu de Application.Range("Fruits")

est ce possible ?- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme