Classement 1er 2eme ... Avec formule rang

Regueiro

XLDnaute Impliqué

• 20 Mai 2014

• #2

Re : Classement 1er 2eme ... Avec formule rang

Bonjour Le Forum, Aloish

Formule à tester

Code:

=SI(RANG(B11;B3:B26;0)=1;RANG(B11;B3:B26;0)&"er sur "&NB.SI(B3:B26;">0")&" villes";RANG(B11;B3:B26;0)&"ème sur "&NB.SI(B3:B26;">0")&" villes")

A+

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 20 Mai 2014

• #3

Re : Classement 1er 2eme ... Avec formule rang

Bonjour, Aloish.

Un format personnalisé, peut-être :

[<2]0" er";0" ème"

Cliquez pour agrandir...

 

Pièces jointes

• Aloish.xlsx

  12.2 KB · Affichages: 191

Dernière édition: 20 Mai 2014

Vote positif 0 Vote négatif

A

Aloish

Guest

• 21 Mai 2014

• #4

Re : Classement 1er 2eme ... Avec formule rang

Bonjour,
Excellent Regueiro celà fonctionne parfaitement !
un Grand merci !

 

Vote positif 0 Vote négatif

A

Aloish

Guest

• 21 Mai 2014

• #5

Re : Classement 1er 2eme ... Avec formule rang

Bonjour Victor21,
je n'avais pas du tout envisagé le format personnalisé simplicité, efficacité !!! parfait Merci !

 

Vote positif 0 Vote négatif

M

msjames

Guest

• 19 Juin 2019

• #6

Victor21 à dit:

Re : Classement 1er 2eme ... Avec formule rang

Bonjour, Aloish.

Un format personnalisé, peut-être :

Cliquez pour agrandir...

comment faire pour le 2ex avec cette astuce la [<2]0" er";0" ème"

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Juin 2019

• #7

On peut pas !

Au fait, bonsoir, msjames ! (ça, on peut !)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juin 2019

• #8

Bonsoir Patrick et les autres,

Victor21 à dit:

On peut pas !

Cliquez pour agrandir...

On peut avec un p'tit coup de VBA :

VB:

Private Sub Worksheet_Calculate()
Dim P As Range, c As Range, ex As Range
Set P = Columns("D").SpecialCells(xlCellTypeFormulas)
P.NumberFormat = "[=1]0"" er"";0"" ème"""
For Each c In P
    If Application.CountIf(P, c) > 1 Then Set ex = Union(IIf(ex Is Nothing, c, ex), c)
Next
If Not ex Is Nothing Then ex.NumberFormat = "[=1]0"" er ex"";0"" ème ex"""
End Sub

A+

 

Pièces jointes

• Rang(1).xlsm

  21 KB · Affichages: 23

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Juin 2019

• #9

Bonsoir, Gérard.

Promis, à ma prochaine réincarnation, je me mets sérieusement au VBA 😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Juin 2019

• #10

S'il y a beaucoup de lignes Application.Countif (NB.SI) prend trop de temps, on utilisera le Dictionary :

VB:

Private Sub Worksheet_Calculate()
Dim P As Range, d As Object, tablo, i&, ex As Range
Set P = Columns("D").SpecialCells(xlCellTypeFormulas)
Set d = CreateObject("Scripting.Dictionary")
tablo = P 'matrice, plus rapide
For i = 1 To UBound(tablo)
    d(tablo(i, 1)) = d(tablo(i, 1)) + 1
Next
P.NumberFormat = "[=1]0"" er"";0"" ème"""
For i = 1 To UBound(tablo)
    If d(tablo(i, 1)) > 1 Then Set ex = Union(IIf(ex Is Nothing, P(i), ex), P(i))
Next
If Not ex Is Nothing Then ex.NumberFormat = "[=1]0"" er ex"";0"" ème ex"""
End Sub

Fichier (2) avec seulement 2000 lignes.

 

Pièces jointes

• Rang(2).xlsm

  77 KB · Affichages: 20

Vote positif 0 Vote négatif

P

Potus

Guest

• 27 Août 2021

• #11

Victor21 à dit:

Re : Classement 1er 2eme ... Avec formule rang

Bonjour, Aloish.

Un format personnalisé, peut-être :

Cliquez pour agrandir...

Très pratique. Merci

 

Vote positif 0 Vote négatif

P

Potus

Guest

• 27 Août 2021

• #12

Victor21 à dit:

Re : Classement 1er 2eme ... Avec formule rang

Bonjour, Aloish.

Un format personnalisé, peut-être :

Cliquez pour agrandir...

Très pratique. Merci

 

Vote positif 0 Vote négatif