Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Yann21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Yann21

XLDnaute Occasionnel
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.
 

Pièces jointes

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
 

Pièces jointes

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
 
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
 
Dernière édition:
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.
 
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.
 
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
 

Pièces jointes

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

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

Code:
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
 
Dernière édition:
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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Réponses
5
Affichages
1 K
L
Réponses
7
Affichages
1 K
LEWISBEGIN
L
S
Réponses
10
Affichages
4 K
Sylvain29
S
L
Réponses
5
Affichages
3 K
T
  • Question Question
Réponses
1
Affichages
807
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…