Discussion :

[paulselvan]

Bonjour,
Ces tableaux qui affectent à chaque élève d'une classe un nom et une note est nickel:
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 :

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

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:

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

une solution ?

[patricktoulon]

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 :

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

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

au plaisir

[paulselvan]

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 ?

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

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

pas saisi...

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

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 :

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

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

une alternative?

[mercatog]

Par boucle

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

[paulselvan]

merci ça me convient

[patricktoulon]

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

[mercatog]

Patric
Tu n'as pas vu?

Code :

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

Option Base 1

C'était l'approche initiale de paulselvan

[patricktoulon]

bonjour mercatog

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

au plaisir