XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL

TooFatBoy à dit:

Bonjour,

Y a-t-il vraiment Grande.Valeur sous 2010 ?

Cliquez pour agrandir...

AtTheOne à dit:

Sur ma version 2007 ça existe déjà

Cliquez pour agrandir...

AtTheOne à dit:

L’inconvénient de GRANDE.VALEUR c'est que quand il y a des doublons

Cliquez pour agrandir...

AtTheOne à dit:

Bonjour à toutes & à tous, bonjour @job75, @JHA, @aurelio.ewane

L’inconvénient de GRANDE.VALEUR c'est que quand il y a des doublons (comme c'est le cas ici) ce n'est pas vraiment la nième valeur qui est renvoyée (mais c'est peut-être ce que désire @aurelio.ewane )
Pour palier le problème j'ai cette proposition :

VB:

Sub ValN()
  
     Dim WSh As Worksheet, Dc As Object, Rg As Range, CellRang As Range
  
     Set WSh = Feuil1
     Set CellRang = WSh.[AB1]
     Set Rg = WSh.[A1].CurrentRegion
     Set Rg = Rg.Offset(1, 1).Resize(Rg.Rows.Count - 1, Rg.Columns.Count - 1)
  
     tb = Rg
     Set Dc = CreateObject("Scripting.Dictionary")
     For i = 1 To UBound(tb, 1): For j = 1 To UBound(tb, 2): Dc(tb(i, j)) = CDbl("0" & tb(i, j)): Next j: Next i
     tb = Dc.items
     Call tri(tb, 0, UBound(tb))
     CellRang.Offset(0, 2).Value = "(>=" & tb(CellRang) & ")"
  
     Rg.FormatConditions.Delete
     With Rg.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=" & tb(CellRang))
          .Font.Bold = True
          .Interior.Color = 13408767
     End With
End Sub

Sub tri(a, gauc, droi)          ' Quick sort de J. Boisgontier adapté
     ref = a((gauc + droi) \ 2)
     g = gauc: d = droi
     Do
          Do While a(g) > ref: g = g + 1: Loop
          Do While ref > a(d): d = d - 1: Loop
          If g <= d Then
               Temp = a(g): a(g) = a(d): a(d) = Temp
          g = g + 1: d = d - 1
          End If
     Loop While g <= d
     If g < droi Then Call tri(a, g, droi)
     If gauc < d Then Call tri(a, gauc, d)
End Sub

L'événement Worksheet_Change de la Feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = Me.[AB1].Address Then ValN
End Sub

Voir la pièce jointe
À bientôt

Cliquez pour agrandir...

aurelio.ewane à dit:

Ouii cest vraiment interessant Merci

mais le probleme ce'st que vous avez limité la recherche au nombre de valeurs superieure à 100
moi ce que je veux cest ca colorie toutes les n plus grandes valeurs de chaque ligne.
le nombre de valeur peut etre entré comme un parametre ou mis dans une cellule peut importe

Cliquez pour agrandir...

TooFatBoy à dit:

Et c'est pour ça que je cherchais une formule donnant la liste sans doublon des valeurs d'un tableau.

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

En ajoutant des MFC

JHA

Cliquez pour agrandir...