Tri automatique

[koadima]

Bonjour cher tous
Bonne année nouvelle 2019. Puisse vos désirs même les plus dingues voir leur accomplissent au cours de cette année
j'ai un soucis que j'aimerais m'en débarrasser: Après les compositions il me faut ranger les élèves par ordre de mérite. je souhait que lorsque je saisis les notes que le rangement se face automatiquement sans je touche a la touche de TRI
Avez vous une astuce pour moi?
Merci pour votre réaction

 

[job75]

Bonjour koadima,

Vous avez entendu parler de macro VBA ? Si non faites une recherche sur le forum.

Pourquoi avoir joint 3 fichiers ???

A+

 

[koadima]

Bonsoir Job75, en fait, je ne m'y connais pas beaucoup en excel. Je pensais qu'une formule existante permet de résoudre mon problème. macro VBA, je vais tenter. merci

 

[Modeste geedee]

Bonsour®

Bonsoir Job75, en fait, je ne m'y connais pas beaucoup en excel. Je pensais qu'une formule existante permet de résoudre mon problème. macro VBA, je vais tenter. merci

Une formule renvoie une valeur et n'a pas d'action sur l'aspect de la feuille de calcul...
avec une plage complementaire :
attention la saisie d'une note 0 est significative (sinon effecer le contenu de la cellule)
Je

 

[JHA]

Bonjour à tous,

Un essai par formules dans un autre onglet.

JHA

 

[job75]

Bonsoir Modeste geedee, JHA,

JHA ta solution ne va pas si 2 élèves ont la même moyenne.

Puisque j'ai parlé de VBA voyez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With UsedRange
    If .Rows.Count < 3 Then Exit Sub
    With .Offset(2).Resize(.Rows.Count - 2, 6)
        .Sort .Columns(5), xlAscending, Header:=xlNo 'tri croissant
        If IsNumeric(.Cells(1, 5)) Then .Resize(Application.Count(.Columns(5))).Sort .Columns(5), xlDescending 'tri décroissant
    End With
End With
End Sub

Notez que les formules en colonnes E et F ont été revues.

A+

 

[koadima]

[Merci beaucoup Job75, maintenant comment faire appaitre 1er, 1er ex., 2ième, 2ième ex.,...s'il ya?

 

[job75]

maintenant comment faire appaitre 1er, 1er ex., 2ième, 2ième ex.,...s'il ya?

Formule en F3 : =SIERREUR(RANG(E3;E$3:E$26)&REPT("ex";E2=E3);"")

ou aussi :

=SIERREUR(RANG(E3;$E$3:$E$26)&SI(RANG(E3;$E$3:$E$26)=1;"er";"ème")&REPT(" ex.";E2=E3);"")

 

[koadima]

merci nombreux. je vais m'atteler a faire un bon travail, je vous le ferai voir. Dieu vous bénisse abondamment. A l'occasion, pourrais vous contacter particulièrement?

 

[David Aubert]

Bonjour,
J’ai supprimé toutes les pièces jointes et images : données personnelles
Bonne journée