XL 2010 Reporter automatiquement des notes deja saisi dans une autre feuille de mon classeur

[ATHE RIOVELI]

BONSOIR le FORUM.

je souhaite que La feuille OdMerite de mon classeur recueille automatiquement les notes du dernier devoir saisi par l'utilisateur.
Je m'explique:
- Supposons que nous somme au premier trimestre, le premier devoir est effectué et l'utilisateur saisi les notes dans la dans la feuille trim1 dans la colonne E13. puisque après le devoir, les notes doivent etre affichées par OdMérite, je souhaite pour faciliter la tache à l'utilisateur, que ces notes soient automatiquement reporté dans la feuille OdMérite.

Après ce devoir, supposons qu'un deuxième devoir ait lieu. Alors ces notes sont saisies dans la feuille trim1. Je souhaite donc automatiquement que ces nouvelles notes saisie remplace les anciennes dans OdMerite

Ainsi de suite, chaque derniere notes saisie dans un trimestre quelconque doit prendre la place des notes qui existaient dans la feuille OdMerite.

J'espère avoir bien décrire ma préocupation.
Dans l'espoir d'une suite favorable, veuillez recevoir l'expression de ma très grande considération.

Pour le fichier ici joint : utilisateur et mot de passe : ADMIN

 

[job75]

Re : Reporter automatiquement des notes deja saisi dans une autre feuille de mon clas

Bonsoir ATHE RIOVELI,

Il faut abandonner la méthode utilisée précédemment pour alimenter le tableau de la feuille "OdMerite" .

Le tableau est maintenant alimenté uniquement quand on modifie une colonne de notes d'un trimestre.

Cela se passe ici :

'---transfert des notes dans OdMerite---
brrc = br.Rows.Count
Set P = br(-2, 5).Resize(brrc + 3, 8)
If Not Intersect(Target, P) Is Nothing Then
  Set P = Intersect(Target.EntireColumn, P)
  With Feuil15 'CodeName
    .[C23] = LCase([B7] & " " & [B8]) 'trimestre
    .[G23] = P(1) 'Coef Note
    With .ListObjects(1).DataBodyRange
      If .Rows.Count > 1 Then .Offset(1).Resize(.Rows.Count - 1).Delete
      If brrc > 1 Then [MOYENNE].EntireRow.Resize(brrc - 1).Insert
      .Cells(1, 2).Resize(brrc) = br.Columns(2).Value 'noms
      .Cells(1, 4).Resize(brrc, 2) = br.Columns(3).Resize(, 2).Value 'SEXE R/NR
      .Cells(1, 6).Resize(brrc) = P(4, 1).Resize(brrc).Value 'notes
    End With
  End With
End If

Fichier (5).

Nota : vous avez mis une tripotée d'objets (Zones de textes etc) dans la feuille, supprimez-les SVP.

Non seulement ils sont ridicules mais en plus ils sont nuisibles.

Edit : il y avait un bug quand on effaçait un nom.

Et vos formules des moyennes dans les trimestres étaient incorrectes.

Je les ai remplacées par les miennes, elles sont matricielles.

Bonne nuit.

 

[job75]

Bonjour ATHE RIOVELI, le forum,

J'ai modifié le fichier (5) précédent.

Avec ce fichier (6), dans "OdMerite", les dates de naissance sont mémorisées, c'est bien mieux.

A+

 

[ATHE RIOVELI]

BONSOIR job75,
j'ai vraiment eu du mal à acceder au nouveau forum.
J'avais oublié mon mot de pass. Maintenant tout vas bien. Je ne n'arrive pas pour l'heure à téléchargerr le fichier 6

 

[ATHE RIOVELI]

BONSOIR Job75,
Pour l'heure je n'arrive pas à télécharger la pièce jointe.
J'avais déja revu les formules des trim et autre.
Voici ci joint le fichier.
Au niveau de la zone d'impression, vous pouvez supprimer tout ce qui vous semble nuisible.
J'avais définir une zone d'impression parce que la partie STATISTIQUE n'affichait pas quand je faisait un aperçu avant impression.

MERCI A+

 

[job75]

Bonjour ATHE RIOVELI, le forum,

Oui quand j'ai déposé les fichiers (5) et (6) le forum ne devait pas être au point.

Je les remets ici.

Bonne journée.

 

[ATHE RIOVELI]

BONJOUR job75,
les fichiers sont bien. Mais je ne comprend pas trop bien vos formules au niveau des trimestres.
Par exemple sur trim 2;
note 1 qui est 10 avec coef 2 donne MOY 10
note qui est 5 avec coef 0,5 est noté sur 10 donc la moy devrai etre 10
si le coef est 2 alors la note en réalité est noté sur 40. donc mettre 40 pour avoir les 20 de moyenne.
Regarder encore mes formules dans ce fichier.

 

[ATHE RIOVELI]

BONJOUR job75,
je compte maintenant ouvrir une autre discussion.
Mais avant, Je vérifie encore toutes les formules du fichier. Pour éviter qu'il ne soit encore '' tripoter''
'' tripoter'', C'est votre mot que j'ai utilisé.
MERCI A PLUS.
Un grand merci au patron de ce forum, la présentation est nettement meilleure que la précédente. On peut facilement joindre un fichier. Le design est parfait.
ENCORE MERCI A VOUS : GRANDS MAITRES

 

[job75]

Re,

Toutes les notes doivent être notées sur 20, c'est classique.

Le coefficient appliqué par contre fait la différence.

A+

 

[ATHE RIOVELI]

OUI c'est justement ce que je voulais mais je ne comprend pas vos formules.
par exemple une note de coef 2 l'élève a eu 12. Pour nous cela veut dire 12/40 sa moyenne ne peut etre 12.

 

[ATHE RIOVELI]

les notes:
Coef 2 sont noté sur 40
Coef 1 sont noté sur 20
Coef 0,5 sont noté sur 10

 

[ATHE RIOVELI]

BONJOUR job75,
S'il vous plai je viens d'ouvrir une nouvelle discussion : CREER UN CLASSEUR A PARTIR D'UN AUTRE
Je crois qu'il faut rendre le classeur plus professionnel.
Je compte énormément sur vous.
MERCI A+