Discussion :

[lemordore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vld44]

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

[lemordore]

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

[Vld44]

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.

[lemordore]

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?

[Vld44]

Non, ça me parait plausible ..

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

[lemordore]

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

[Delbeke]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lemordore]

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

[lemordore]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[La Praline]

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...

[lemordore]

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

[lemordore]

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

j'ais essayé ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Label1.Caption = toto

ca marche pas

[OhMonBato]

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

[lemordore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[La Praline]

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

...

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

[OhMonBato]

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

[La Praline]

salut,

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

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

[OhMonBato]

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

[zazaraignée]

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.