Difficulté avec "for each" et tableau dynamique

Bonjour,
je fais tourner un for each et je voudrais recupérer les valeurs retourné ensuite les affecté à un tableau dynamique en fonction du nombre d'element retourner,mais j'ais du mal

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Command1_Click() Dim toto(?, 1) As String   End Sub     Private Sub Message1_Click() For Each elem In ELEMENT1 toto(?,?) = elem.Contenu Next   toto(?,?)= elem.Contenu (1) toto(?,?)= elem.Contenu (2)   Msgbox (toto(?,1)) end sub

---

Merci d'avance pour votre aide

Est-ce que tu sais ce que c'est que le scope de déclaration d'une variable ?

Merci pour ta rapidité
non je ne sais pas du tout, tu penses que je devrais chercher par la?

Oui =)

Visiblement tu es un peu pressé, il semble que tu essayes de mettre les murs d'une maison n'ayant même pas de sol.

En fait j'essais de recupérer des valeurs retournées par le "for each" dans un tablau dynamique et ensuite les affichées dans un Msgbox.
devrais-je utilisé autre chose qu"un tableau?
une listbox?

Non, ça me parait plausible ..

Mais il faut déclarer le tableau avant. (notamment)

je ne savais pas comment l'initialiser etant donné que le nombre de ligne dependrait du nomre d'element dans le for each,
en tout cas j'aurais besoin de 2 colonnes "Nom et reference"
c'est pour ca que j'ais placé des points d'interrogation

le for each ne te permettra pas d'avoir le numero d'element
mieux vaut utiliser un index pour boucler

Code:

---

1 2 3 4 5 6

Dim lPnt as Long ReDim Toto(Elemen1.Count,1) For lPnt=1 to Elemen1.Count toto(lPnt,0) = elem.Contenu(1) toto(lPnt,2) = elem.Contenu(2) Next

---

Merci Delbeke , ca à l'air de ressembler à ce que je recherche ,je travail
sur ce bout de code et je te tiens au courant
merci encors

décidement j'ais du mal,j'arrive pas a m'y faire aveec le vb

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Command1_Click()   Dim lPnt As Long   ReDim toto(ELEMENT1.Count, 1)   For Each elem In ELEMENT1 For lPnt = 1 To ELEMENT1.Count toto(lPnt, 0) = elem.contenu1 toto(lPnt, 2) = elem.contenu2 Next Next   MsgBox toto   End Sub   merci de ton aide

---

Bonjour,

N'ayant pas la réponse à ta question, je me demande tout de même si un "MsgBox" est le mieux pour afficher ton tableau...


~~ La Praline ~~
... un choco qui essai de faire avancer le Schmilblick...

je dis msgbox, mais ce que je veux c'est stoqué le contenu du tableau dans un label par exemple

mais comment faire pour retourner le contenu du tableau "toto" dans un label?

j'ais essayé ca

Code:

---

Label1.Caption = toto

---

ca marche pas

peut être qu'une grille est plus adaptée pour afficher un tableau à 2 éléments ? ;)

je vais essayé d'etre un peu plus clair.

ce que je voudrais faire c'est :

-initialiser un tableau (toto) vide

-faire un "for each" ou je rentrerais les valeurs au fur et à mesur dans le tableau (toto)

-ensuite afficher le resultat du tableau dans un label si possible
l'un en dessous de l'autre

pourriez vous m'aider svp , merci,

pour l'instant j'en suis à là:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Command1_Click() Dim elem As ELEMENT Dim lPnt As Long   ReDim toto(ELEM_COLLECTION.Count, 1) 'recup une collection For Each elem In ELEM_COLLECTION For lPnt = 1 To ELEM_COLLECTION.Count   toto(lPnt, 0) = elem1.nom toto(lPnt, 2) = elem2.prenom Next Next   For lPnt = 1 To ELEM_COLLECTION.Count Label1.Caption = toto(lPnt, 0) Next     End Sub

---

Mais il ya surement bcp d'erreur et je rame depuis deux jours, Merci

Citation:

---

Envoyé par OhMonBato

peut être qu'une grille est plus adaptée pour afficher un tableau à 2 éléments ? ;)

---

...

~~ La Praline ~~
... un choco "..."

Explique nous déjà que sont les variables ELEM et ELEM_COLLECTION, elles sont déclarées où, comment ?

Sais tu ce à quoi sert à For... Each ?

Comment entres tu les valeurs ? C'est l'utilisateur qui doit entrer les valeurs ?

Pourquoi s'obstiner sur un label qui est loin d'être le contrôle le plus adapté pour afficher un tableau de valeurs ?

Donc là pour moi, c'est un peu flou pour pouvoir commencer à t'aider, va falloir faire un peu le ménage la dedans ;)

salut,

Pour le "for each" => faq, tutos... c'est bien expliquer... au cas où ;)

~~ La Praline ~~
... un choco tutophile !!

J'ai peut etre mal compris ce qu'il veut faire mais le For Each ne me semble pas du tout adapté.

Tu ne peux pas faire une boucle For Each sur des éléments qui n'existent pas encore. Sauf, bien sur, si ton tableau est initialisé - même vide - avec des dimensions fixes. Pour un tableau dynamique, c'est pas possible.

For Each est bien expliqué dans l'aide MSDN. Si t'as pas les CD, c'est disponible sur DVP. Cherche dans Outils VB. T'auras pas à chercher longtemps, c'est le premier lien de la liste! ;)

Pour l'affichage du contenu, je suis d'accord avec les potes, une grille sera plus appropriée.

Merci de votre aide, en effet j'ais reussi à affiché le resultat dans une "listview" apres 2 jours de bataille, :)

C'est l'métier qui entre. Oublies pas de cliquer sur :resolu: