Discussion :

[yann_bd]

Bonjour, nouveau par ici
alors j'espère au moins que je ne me suis pas trompé
d'endroit


j'ai un souci avec la création d'une donnée tableau à partir du contenu d'un autre tableau....

Je récupère le nom des feuilles d'un classeur,
ces noms je les mets dans une donnée tableau1 de type string ou il y a autant de ligne que de feuille de mon classeur. (ça c'est fait )

Ensuite avec tous les éléments de ce tableau1 j'aimerais recréer des tableaux portant les noms des éléments de tableau1, ces tableaux seraient des integer et là soucis

si vous pouviez m'aider

merci

P.S: l'ébauche des lignes de codes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub recup_donnée()
    Workbooks("bulletin2.xls").Activate
    Nb_eleve = ActiveWorkbook.Sheets.Count
    ReDim tableau_eleve(1 To Nb_eleve)
    For i = 1 To Nb_eleve
        tableau_eleve(i) = ActiveWorkbook.Sheets(i).Name
        nom_temp = ActiveWorkbook.Sheets(i).Name
        note_eleve = "note_" & nom_temp
        'Dim note_eleve.value(12) as Integer
    Next i
End Sub

[patbou]

bonjour,

tu peux faire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim note_eleve() As String
    Workbooks("bulletin2.xls").Activate
    Nb_eleve = ActiveWorkbook.Sheets.Count
    ReDim tableau_eleve(1 To Nb_eleve)
    ReDim note_eleve(1 To Nb_eleve)
    For i = 1 To Nb_eleve
        tableau_eleve(i) = ActiveWorkbook.Sheets(i).Name
        nom_temp = ActiveWorkbook.Sheets(i).Name
        note_eleve(i) = "note_" & nom_temp
    Next i

[Gorfael]

Salut yann_bd et le forum
Pour un prof, j'attendais mieux comme descriptif du problème (basse vengeance )

Ensuite avec tous les éléments de ce tableau1 j'aimerais recréer des tableaux portant les noms des éléments de tableau1, ces tableaux seraient des integer et là soucis

Moi pas comprendre
Tu veux faire des tableaux à partir de tableaux et passant par un tableau, c'est bien ça ?
Je suppose que tes feuilles élèves sont construites de manière identique ?
Ce que tu veux c'est une synthèse de la classe à partir des feuilles individuelles ?
Comme je n'ai pas assez de données, je peux proposer une idée

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
Sub recup_donnée()
dim Nb_eleve as integer
dim i as integer
dim tableau_eleve() as variant
 
Workbooks("bulletin2.xls").Activate
Nb_eleve = ActiveWorkbook.Sheets.Count
ReDim tableau_eleve(1 to 2, 1 To Nb_eleve)
For i = 1 To Nb_eleve
     with ActiveWorkbook.Sheets(i)
          tableau_eleve(1,i) = .Name
          'en indice (1,i) le nom de l'élève
          tableau_eleve(2,i) = range("note_" & .name)
          'en (2,i) la valeur de la cellule appelée note_nom_eleve
     end with
Next i
End Sub

avec des dommées plus explicites, on pourrait sans doute faire mieux, mais ne les ayant pas...
A+
PS des notes sans décimales ?

[Gorfael]

Salut yann_bd, patbou et le forum
Comme je te le disais dans la réponse à ton MP, yann_bd, (déjà tu frstre patbou) des infos supplémentaires seraient les bienvenue :
le plus simple serait à mon sens de mettre un fichier avec 2 fiches d'élève (ne pas oublier de remplacer les noms par AAA et BBB par exemple, ou toutes données confidentielles permettant de les identifier) en les choisissant de sorte qu'elles sient le plus différentes possible (nombre de notes, ùatières ou options, etc.)
Le but étant de voir les problèmes qu'on peut recontrer pour ne pas partir sur une idée qui marcherait avec l'un et pas avec l'autre
A+