Trie décroissant ! Chiffres et Texte

[Flop]

Bonjour à tous,

J'ai un souci lorsque je veux faire un tri sur mon tableau, je veux classer les personnes selon leur taux, le meilleur étant celui qui a le taux le plux élevés, mais dans certains cas il se peut qu'il y ai indiqué "CONGES" au lieu du taux, dans ce cas excel me positionne le nom de la personne en congé en premier alors que je voudrais qu'il soit en dernier, voir fichier joint. merci de votre aide.

PS : je fais le trie en VBA.

 

[CB60]

Re : Trie décroissant ! Chiffres et Texte

Bonjour
Peu etre avec une colonne supplémentaire qui a une formule de ce type

=SI(ESTNUM(D3);1;0)

Bonjour Jocelyn, même pas mal!!!
Même idée

 

[Jocelyn]

Re : Trie décroissant ! Chiffres et Texte

Bonjour le Forum,
Bonjour Flop,

en ajoutant une colonne supp dans laquelle tu mets une formule de type :

=SI(ESTNUM(H4);H4;0)

ensuite tu peux masquer cette colonne et effectuer ton tri dessus

Jocelyn

Oup's Bonjour CB60 désolé pour la collision

 

[JCGL]

Re : Trie décroissant ! Chiffres et Texte

Bonjour à tous,

Un essai avec la fonction RANG()

Option Explicit

Sub Trie()
Application.ScreenUpdating = 0

Range("F4:F14").Formula = "=IF(ISNUMBER(RC[-2]),RANK(RC[-2],R4C4:R14C4),"""")"
Range("C4:F14").Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=2, MatchCase:=True, Orientation:=xlTopToBottom
Range("F4:F14").ClearContents
Range("C2:E2").Select

Application.ScreenUpdating = 1
End Sub

A+

Edition : Salut Bruno et Jocelyn. J'ai cru comprendre que notre ami souhaitait un code ?

 

[Flop]

Re : Trie décroissant ! Chiffres et Texte

@ JCGL

Génial ca je dois pouvoir réussir à le faire marcher.

juste tu mets :

Range("F4:F14")

comment faire pour que ce soit :

Range("F4:fin du tableau")

 

[pierrejean]

Re : Trie décroissant ! Chiffres et Texte

En l'absence de mon ami JC que je salue

Teste

Range("F4:F" & range("C65536").end(xlup).row)

 

[JCGL]

Re : Trie décroissant ! Chiffres et Texte

Bonjour à tous,

Peux-tu essayer avec ce code :

Option Explicit

Sub Trie()
Application.ScreenUpdating = 0

Range("F4:F" & Range("C65536").End(3).Row).Formula = "=IF(ISNUMBER(RC[-2]),RANK(RC[-2],R4C4:R100C4),"""")"
Range("C4:F" & Range("F65536").End(3).Row).Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=2, MatchCase:=True, Orientation:=xlTopToBottom
Range("F4:F" & Range("C65536").End(3).Row).ClearContents
Range("C2:E2").Select

Application.ScreenUpdating = 1
End Sub

La plage se détermine avec les valeurs en C4 à C... si renseignées

A+

Edition : Salut mon ami PJ. Tu aurais une idée pour faire différemment

 

[pierrejean]

Re : Trie décroissant ! Chiffres et Texte

Re
Apres test:

Option Explicit
Sub Trie()
Application.ScreenUpdating = 0
Range("F4:F" & Range("C65536").End(xlUp).Row).Formula = "=IF(ISNUMBER(RC[-2]),RANK(RC[-2],R4C4:R14C4),"""")"
Range("C4:F" & Range("C65536").End(xlUp).Row).Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=[COLOR=blue]xlNo[/COLOR], _
        OrderCustom:=2, MatchCase:=True, Orientation:=xlTopToBottom
Range("F4:F" & Range("C65536").End(xlUp).Row).ClearContents
Range("C2:E2").Select
Application.ScreenUpdating = 1
End Sub

 

[pierrejean]

Re : Trie décroissant ! Chiffres et Texte

Re

Version avec formulalocal pour assurer la formule en cas d'allongement du tableau

Option Explicit
Sub Trie()
Application.ScreenUpdating = 0
Range("F4:F" & Range("C65536").End(xlUp).Row).FormulaLocal = "=SI(ESTNUM(D4);RANG(D4;$D$4:$D$" & Range("C65536").End(xlUp).Row & ");"""")"
Range("C4:F" & Range("C65536").End(xlUp).Row).Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=2, MatchCase:=True, Orientation:=xlTopToBottom
Range("F4:F" & Range("C65536").End(xlUp).Row).ClearContents
Range("C2:E2").Select
Application.ScreenUpdating = 1
End Sub

 

[Flop]

Re : Trie décroissant ! Chiffres et Texte

ca marche super bien, merci à vous tous, j'ai réussi à l'adapter à mon "vrai tableau" en plus j'ai découvert la formule "Formulalocal".. c'est génial ca depuis le temps que je galere avec les RC... cool !!

Quel inconvénient à utiliser cette formule ?

 

[JCGL]

Re : Trie décroissant ! Chiffres et Texte

Re,

Pas d'inconvénient à craindre si tu restes sur un système en FR

A+