FORMULES EXCEL

[Yann21]

Bonjour,

Je suis professeur.
J'utilise un tableau excel pour suivre mes élèves dans leur comportement en cours.
Ils ont tous 10 sur 20.
Il y a des évènements malus et bons qui va faire évoluer leur note.

J'adresse mon doc excel en pièce jointe.

J'utilise la feuille PLAN.

Par contre, j'aimerai bien qu'il y ait un report des points sur la feuille LISTE.

Pouvez-vous m'aider ?

Merci bien.

 

[phlaurent55]

Bonjour Yann

voir fichier joint
il est nécessaire d'accepter les macros à l'ouverture du fichier

Petit problème, je ne retrouve pas le TS dans les grilles individuelles. J'ai donc pris la cellule qui se trouve dans le coin sup. droit ( en dessous de TP )
Remarque: TP existe 2 fois dans la grille individuelle, ça risquait de foutre le B.....

à+
Philippe

 

[Yann21]

Bonjour Philippe,

Magnifique travail.
Oui j'ai mis TP au lieu de TS. Je vais rectifier.

Dernière chose qui serait le must du must. Imaginons que je change un élève de place sur le plan de classe. Par exemple, je permute Albert et Rodolph. Serait-il possible que ce changement s'effectue aussi la feuille LISTE.

Encore merci très beau boulot.

Yann

 

[phlaurent55]

Re,

Fais un essai de permutation de noms dans la feuille LISTE, normalement les résultats suivront

Même chose dans l'autre feuille.

Remarque importante, il ne peut pas y avoir des doublons dans les noms.

Si tu as deux "Yann" il est nécessaire de les nommer "Yann-1" et "Yann-2"

À+
Philippe

 

[Yann21]

Généralement je permute sur la feuille PLAN.
J'ai fait un essai, mais ca n'emmène pas ses résultats sur la feuille LISTE.

 

[phlaurent55]

Re,

Reviens sur la feuille LISTE et presse F9

À+
Philippe

 

[Yann21]

Je ne comprends pas.
J'ai refait un essai sur la feuille PLAN, j'ai ajouté quelques bonus et malus et la modification des notes sur la feuille LISTE ne s'est pas réalisée.

 

[phlaurent55]

Re,

As -tu activité les macros à l'ouverture du classeur ?

La fonction écrite dans la cellule contient-elle les deux arguments entre les parenthèses
1- l'adresse de la cellule contenant le nom.

2- l'adresse de la cellule de la même colonne en ligne 1.

À+
Philippe

Edit: Je suis actuellement sur mon Smartphone et je ne sais pas tester le fichier

Je ne serai plus disponible avant demain vers 17h.

 

[Yann21]

Oui j'ai bien activé les macros. Quand je rajoute 3 en PO (participation orale) à Albert ca ne se remet pas sur la feuille LISTE.
Pour la fonction écrite dans la cellule, oui c'est bien cela.
Toutefois, de souvenir, je crois que cette fonction était saisie dans des accolades la première fois que j'avais ouvert le fichier, ce qui n'est plus le cas, même quand je retélécharge à nouveau le fichier sur le forum. C'est bizarre.
Ok pour demain.

 

[phlaurent55]

Re-Bonjour

Oui j'ai bien activé les macros. Quand je rajoute 3 en PO (participation orale) à Albert ca ne se remet pas sur la feuille LISTE

Ce petit problème est réglé

Toutefois, de souvenir, je crois que cette fonction était saisie dans des accolades la première fois que j'avais ouvert le fichier, ce qui n'est plus le cas

Non, il n'y a jamais eu d'accolades
Pour info, j'ai travaillé sur ce fichier avec la version Excel 2007

J'ai fait des modifs dans les formules qui appellent la fonction pour éviter les erreurs si le nom de l'élève n'existe pas dans la seconde feuille et également pour éviter l'affichage des "0"
Les noms peuvent être saisis en minuscules, en MAJUSCULES ou MéLanGéS
En bonus, une MFC dans la dernière colonne

à+
Philippe

 

[Yann21]

Bonjour,
De mon côté cela ne fonctionne pas.
J'ai par exemple mis 3 de malus à ALbert sur la feuille PLAN. Le recalcule de la note se fait sur la feuille plan, mais pas sur la feuille liste.

 

[phlaurent55]

Re,

Remplace le code de la feuille PLAN 2DE1 par celui-ci:
C'est pour forcer le recalcul dans la feuille PLAN lorsqu'une modif est faite dans l'autre feuille

Private Sub Worksheet_Change(ByVal Target As Range)
' Recalcule automatique dans la feuille LISTE
' lorsqu'une modification est faite dans la feuille PLAN 2DE1
Sheets("PLAN").Calculate
End Sub

et pour accélérer un peu la fonction, remplace la fonction existante par celle-ci
La Modif concerne l'ajout de la seconde et de l'avant-dernière ligne

Function chercher(nom As Range, XXX As Range)
Application.ScreenUpdating = False
For Each cellule In Sheets(2).Range("A1:BF56")
If UCase(cellule.Value) = UCase(nom) Then
Select Case XXX.Text
Case "OM"
l = cellule.Row
C = cellule.Column - 2
Case "CP"
l = cellule.Row
C = cellule.Column - 1
Case "TP"
l = cellule.Row + 7
C = cellule.Column - 2
Case "CI"
l = cellule.Row + 7
C = cellule.Column - 1
Case "DM"
l = cellule.Row
C = cellule.Column + 1
Case "PO"
l = cellule.Row + 7
C = cellule.Column + 1
Case "IC"
l = cellule.Row + 7
C = cellule.Column + 2
Case "TS"
l = cellule.Row
C = cellule.Column + 2
End Select
Exit For
End If
Next cellule
chercher = Sheets(2).Cells(l, C)
Application.ScreenUpdating = True
End Function

à+
Philippe

 

[Yann21]

Je ne maîtrise pas trop les outils développeur sur Excel.
Mes compétences s'arrêtent au tableur.
J'ai essayé les modifs sans succès ...

 

[phlaurent55]

Re,

voici le fichier après modif
pourrais-tu tester

à+
Philippe
Edit: Nouveau fichier joint à 20h10

 

[Yann21]

Impeccable.
J'ai réalisé quelques ajustements, cela fonctionne bien.
Je t'adresse le fichier en pièce jointe.
Par contre, ce qui m'inquiète, c'est que je vais avoir plusieurs feuilles PLAN (autant de feuilles que de classes).
Est-ce que cela va marcher en fonction de tes programmations ?
Cdlt.