Affecter un tableau avec une variable créée avec Type

Bonjour,
Ces tableaux qui affectent à chaque élève d'une classe un nom et une note est nickel::P
Nom = array("Paul","Rebecca",etc...)
Note = array(3,6,etc...)

Encore débutant en vba excel j'ai essayé de réécrire ces deux tableaux en utilisant Type ,sachant que la variable Nom d'indice i est associée avec la variable Note de même indice, ex : Paul a 3 ,Rebecca a 6 ,etc...

Code:

---

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

Option base 1 Type TEleve Nom as String Note as Byte End Type   Dim Eleve(100) as TEleve   Voici la méthode correcte mais ardue pour affecter le tableau Eleve   Eleve(1).Nom = "Paul Eleve(1).Note = 3 Eleve(2).Nom = "Rebecca" Eleve(2).Note = 6 etc...

---

Mais c'est un boulet que d'écrire 100 fois ainsi.

Donc j'ai essayé ceci pour simplifier l'écriture mais ça ne marche pas::cry:

Eleve.Nom = Array("Paul,"Rebecca",...)
Eleve.Note = Array(3,6,2....)

une solution ?

bonjour

tel que tu le presente ca ne fonctionne que pour une situation demain les notes ou les noms changent que fait tu?tu refait le code ?

les nom devrais etre dans un sheets et les notes auss
ainsi tu pourrais utiliser simplement des variable tableaux

n'en sachant pas plus sur ton projet je ne peux t'en dire plus

en tout cas ton dernier exemple ne peux pas fonctionner puisque eleve sont des variables tableau "type"et non pas des variant ou autres il te manque les index

Code:

---

eleve(x).nom="toto"'ici tu ne peut pas mettre le array complet

---

au plaisir

Bonjour,

Citation:

---

tel que tu le presente ca ne fonctionne que pour une situation demain les notes ou les noms changent que fait tu?tu refait le code ?

---

oui en effet c'es pour une situation bien fixée et il n'y a pas de changement prévue dans le futur

Citation:

---

les nom devrais etre dans un sheets et les notes auss
ainsi tu pourrais utiliser simplement des variable tableaux

---

pas saisi...

Citation:

---

n'en sachant pas plus sur ton projet je ne peux t'en dire plus

---

Mon projet est ceci : comment rendre moins ardue l'affectation d'un tableau ,ici Elelve(100), sachant que la variable Eleve est construit à partir d'une structure Type

Citation:

---

en tout cas ton dernier exemple ne peux pas fonctionner puisque eleve sont des variables tableau "type"et non pas des variant ou autres il te manque les index

---

oui justement c'est ça le problème les indices ne marchent pas sur Type comme sur un simple tableau

Code:

---

eleve(x).nom="toto"'ici tu ne peut pas mettre le array complet

---

une alternative?

Par boucle

Code:

---

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

Option Explicit Option Base 1 Type TEleve Nom As String Note As Byte End Type   Sub Test() Dim Eleve(100) As TEleve Dim LesNoms, LesNotes Dim i As Byte   LesNoms = Array("Paul", "Rebeca") LesNotes = Array(3, 6) For i = 1 To UBound(LesNoms) Eleve(i).Nom = LesNoms(i) Eleve(i).Note = LesNotes(i) Next i End Sub

---

merci ça me convient:ccool:

bonjour a tous les deux
mercato
les éléments d'un array commence t il pas pas "0" ,ne va t il pas en manquer un ?
1 étant le deuxième élément de l'array

au plaisir

Patric
Tu n'as pas vu?

Code:

---

Option Base 1

---

:calim2:
C'était l'approche initiale de paulselvan

bonjour mercatog

oui tu a raison je navais pas vu le "option base 1"
autant pour moi :oops:

au plaisir