voila il se trouve que j'ai un exo de vb à faire ou l'on me demande (en partie) de remplir 2 listes,l'une appelée list_var et l'autre list_eff a l'aide de zones de texte zt_var et zt_eff.
on me demande aussi d'enregistrer les elements de chaque liste dans des tableaux (respectivement tab_var et tab_eff) j'ai défini les tableaux de telle sorte qu'ils commencent à 0 (d'apres la prof ca marche)donc voila ce que j'ai fais:
 
'initialisation
i = 0
somme_par_ligne = 0
somme_val_eff = 0
moyenne = 0
'remplissage du tableau et des listes
 
For i = 0 To (List_var.ListCount - 1)
    tab_var(i) = (Val(ZT_var.Text))
    List_var.AddItem (tab_var(i))
    tab_eff(i) = (Val(ZT_eff.Text))
    List_eff.AddItem (tab_eff(i))
     
'on calcule le produit des 2 éléments ayant le même indice
     
    somme_par_ligne = (tab_var(i)) * (tab_eff(i))
     
Next i
'pour calculer la somme totale
 
    somme_val_eff = somme_val_eff + somme
     
'remise des zones de texte à vide et le setfocus sur zt_var
 
ZT_var.Text = ""
ZT_eff.Text = ""
ZT_var.SetFocus
 
a ouais j'oublais je dois aussi calculer la somme du produit des éléments de chaque ligne (var 1 *eff 1 +var2* eff 2...)
 
le truc c'est que je ne sais pas si ca marche car les listes ne se remplissent pas et pourtant je n'ai pas de message d'erreur.
 
merci pour votre aide

up

 
   
là tu essaye de remplir une liste, en balayant le contenu de cette même liste!!
 
Pour remplir une liste (l'équivalent de plusieurs zones donc) à partir d'une seule zone, tu dois insérer dans la liste au fur et à mesure de la saisie dans la zone texte, via un bouton 'ajouter' par exemple.
 
Saisie d'une valeur --> 'ajouter' --> hop tu l'insères
et tu recommences tant que t'as des valeurs à saisir
 
Après pour le tableau, tu peux balayer la liste pour le remplir.