Remplissage automatique d'un livret scolaire

Bonjour à tous,

J'essaie d'industrialiser le remplissage des livrets scolaires pour une classe.

Je vous joins le tableau que je souhaiterais automatiser.

• j'ai une liste d'élèves
• j'ai un onglet par trimestre qui reprend en ligne la liste des élèves et en colonnes les compétences évaluées. Je rentre la note (c'est un pourcentage donc de 0 à 100) à l'intersection élève/compétence qui se transforme sous forme de lettre dans l'onglet par élève ( voir onglet référentiel notes)
• onglet élève : c'est là que ça se corse. Il reprend donc les compétences (cette fois en ligne) et j'ai une colonne par trimestre. L'objectif est donc d'avoir à l'intersection cette fois la lettre correspondante à la note que j'ai rentrée dans chacun des onglet "trimestre". Vous verrez que dans l'onglet de l'élève GARCIA Antoine, j'ai commencé à faire une formule (dite usine à gaz) qui fonctionne bien mais qui est impossible à industrialiser puisqu'il faut que je fasse des modifications manuelles dans chacune des cellules pour qu'elle renvoie au bon onglet, à la bonne ligne et à la bonne colonne. Et ça à reproduire pour chaque élève.

Avez-vous des conseils à me donner pour industrialiser mon tableau ?

Merci d'avance.

A bientôt.

Patrick

Bonjour,

Je me lance sur le sujet.

Je prepare un document à vous présenter.

Cdt,

Bonjour,

L'automatisation est possible et se présente sous forme de bataille navale géant...

Voici une parcelle, je ne me suis que amusé à réaliser les notes pour un élève pour le semestre 1. Voir le document que je vous ai joint. La colonne qui se met a jour automatiquement a été mise en jaune. Il suffit de cliquer sur le bouton présent sur la même page.

A vous lire,

Voici pour la gestion des feuilles par éléve

Je recherche tous les eleves etant present dans la liste_eleve

Je regarde si une feuille ayant ce nom existe deja

Si non il l'a crée sur la base d'une feuille modèle.

Il faut donc prendre la fiche d'un eleve et de la renommer Fiche_Modele_Eleve

Sub Maj_Feuille_Releves()

' **************  Partie Création de fiches   **************

'recherche derniere ligne
derlig = Sheets("Liste élève").Cells(Cells.Rows.Count, "A").End(xlUp).Row
'je recherche toutes les lignes non vides qui contienent un nom d'eleve
For Each c In Sheets("Liste élève").Range("A3:A" & derlig)
If c <> "" Then
nom = c.Value
'je verfie si une feuille existe deja
If Not FeuilleExiste(ThisWorkbook, nom) Then
'si n'existe pas je la crée
Sheets("Fiche_Modele_Eleve").Copy Before:=Sheets("Fiche_Modele_Eleve")
ActiveSheet.Name = nom
End If
End If
Next c

MsgBox "MAJ Terminée"
End Sub

Function FeuilleExiste(wk As Workbook, nom) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(nom) Is Nothing)
End Function

Merci beaucoup pour vos retours.

J'essaie de comprendre un peu le code mais c'est pas facile facile.

Merci encore.

Patrick