problème de classement

nolich

XLDnaute Occasionnel

• 7 Mars 2009

• #2

Re : problème de classement

Bonjour Anne Fred, bonjour à toutes et à tous 🙂

Madame, Monsieur, 🙂 je pense qu'un petit fichier serait le bienvenu car pour des non-spécialistes (j'en fais partie), je ne comprends pas bien ce que tu souhaites.

@+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 7 Mars 2009

• #3

Re : problème de classement

Hello Forum, Anne, Nolich,

Vois le fichier joint si c'est ce que tu veux 🙄

Cdt, Hulk.

 

Pièces jointes

• fichier annefred classement.xls

  36.5 KB · Affichages: 86
• fichier annefred classement.xls

  36.5 KB · Affichages: 87
• fichier annefred classement.xls

  36.5 KB · Affichages: 87

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 7 Mars 2009

• #4

Re : problème de classement

Bonjour,

Une solution en VBA avec le code ci-dessous

Code:

'### A adapter (cellule de destination) ###
Const DEST As String = "I3"
'##########################################
Sub Classement()
Dim var
Dim R As Range
Dim T()
Dim i&
Dim j&
Dim cpt&
Dim rang&
ActiveSheet.Range("a3:f19").Copy
With Range(DEST)
  .PasteSpecial xlPasteValues
  .PasteSpecial xlPasteFormats
End With
Set R = Selection
R.Sort Key1:=R.Range("c1"), Order1:=xlDescending, _
     Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
     Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
var = R
ReDim T(1 To UBound(var, 1), 1 To UBound(var, 2))
cpt& = 1
For j& = 1 To UBound(var, 2)
  T(1, j&) = var(1, j&)
Next j&
For i& = 2 To UBound(var, 1)
  If IsNumeric(var(i&, 3)) And (var(i&, 3) <> 0 Or var(i&, 3) = "") Then
    cpt& = cpt& + 1
      If var(i&, 3) <> var(i& - 1, 3) Then
        rang& = rang& + 1
        var(i&, 1) = rang&
      Else
        var(i&, 1) = rang&
      End If
    For j& = 1 To UBound(var, 2)
      T(cpt&, j&) = var(i&, j&)
    Next j&
  End If
Next i&
For i& = 2 To UBound(var, 1)
  If Not IsNumeric(var(i&, 3)) And (var(i&, 3) <> 0 Or var(i&, 3) = "") Then
    cpt& = cpt& + 1
    For j& = 1 To UBound(var, 2)
      T(cpt&, j&) = var(i&, j&)
    Next j&
  End If
Next i&
For i& = 2 To UBound(var, 1)
  If var(i&, 3) = 0 Or var(i&, 3) = "" Then
    cpt& = cpt& + 1
    For j& = 1 To UBound(var, 2)
      T(cpt&, j&) = var(i&, j&)
    Next j&
  End If
Next i&
R = T
End Sub

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 7 Mars 2009

• #5

Re : problème de classement

Re,

Wouhaa baaalaise ta macro m'sieur !

Cdt, Hulk.

 

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #6

Re : problème de classement

Merci, Hulk
Ta proposition répond bien à ce que je recherche, mais un problème reste, c'est les équipes ex aequos, qui devraient avoir le même classement.

 

Dernière modification par un modérateur: 8 Mars 2009

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #7

Re : problème de classement

Merci Hulk,

Tu réponds bien à ma demande, seulement il reste un point irrésolu: les exaequo qui devraient avoir le même classement

merci encore

 

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #8

Re : problème de classement

Hulk à dit:

Hello Forum, Anne, Nolich,

Vois le fichier joint si c'est ce que tu veux 🙄

Cdt, Hulk.

Cliquez pour agrandir...

Merci Hulk,
tu réponds à ma demande, mais il y a un point qui n'est pas résolu, c'est que les équipes exaequos doivent avoir la même place

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 8 Mars 2009

• #9

Re : problème de classement

A tester ... fichier joint ...

A +

 

Pièces jointes

• Testannefredclassement.xls

  42 KB · Affichages: 80

Dernière édition: 8 Mars 2009

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #10

Re : problème de classement

Merci James 007, mais ça bug

Même Excel ne s'en remet pas!!!!
Problème de macro

 

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #11

Re : problème de classement

Merci pour cette macro PMO2
C'est compliqué pour moi, novice en macros !!!

Je vais essayer d'utiliser cette macro mais il faut que je fasse une modif, car en réalité su mon fichier, les données sont sur une page protégée et le palmares sur une autre page aussi protégée.
Je ne sais pas si je vais être à la hauteur de cette modif , mais en tout les cas merci beaucoup

 

Dernière modification par un modérateur: 8 Mars 2009

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 8 Mars 2009

• #12

Re : problème de classement

Bonjour le forum,Anne Fred,le fil
Voici un fichier qui gre les ex aequo
A+

 

Pièces jointes

• fichier annefred classement.zip

  8.6 KB · Affichages: 29

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 8 Mars 2009

• #13

Re : problème de classement

Hello tout le monde,

Ben voilà Lynyrd, que je salue, t'as trouvé une solution !

Au fait dans ma version (qui n'est pas la mienne, mais une parmi tant d'autres)
lorsque les équipes sont à parfaite égalité, il les classe par ordre alphabétique.

Question esthétique je préfère comme ça, mais il est vrai que 6è, 6è et 6è pour trois équipes à égalité en 6è position, est plus juste !

Lynyrd, je peux donc dire que les équipes qui suivent sont 7è, 8è, etc. et là juste en ouvrant ton fichier, je m'aperçois que l'équipe suivante est... 9è !? 😀 j'pinaille 😀

Bref, moi je pense qu'il y a pleins de possibilités, c'est une question de goût, et avant tout de pratique suivant ce qu'on veut faire.

Cdt, Hulk.

 

Vote positif 0 Vote négatif

A

Anne Fred

Guest

• 8 Mars 2009

• #14

Re : problème de classement

Merci Lynyrd, merci Hulk

je vais arbitrer!!!!
Si les équipes sont à égalité, il faut qu'elles aient la même place, par ordre alphabétique c'est mieux, mais c'est un détail.
PAr contre si j'ai 3 équipes 6èmes, la suivante est 9ème, Hulk ne pinaille plus la dessus !!

Par contre, encore, Lynyrd, une équipe qui n'a pas de note , n'est pas passée, donc n'est pas classée;elle n'est même pas inscrite dans le tableau, donc elle ne doit pas avoir de classement, comme dans la version de Hulk

C'est super sympa ce que vous faites pour moi
merci

 

Vote positif 0 Vote négatif