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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

aurelio.ewane

XLDnaute Occasionnel
Bonjour les excellistes
je suis confronté à un petit soucis
jai une plage qui va de B2:Y201
je voudrais donc pour chacune des lignes de cette plage colorier les cellules qui contiennent les n valeurs les plus grandes valeurs

n dois etre mis dans la cellule AB1 par exemple

mais le rééel soucis cest que lorsque la dans une ligne il ya 02 valeurs identiques, je n'arrive pas à les colorier toutes
je joins mon fichier

cordialment
 

Pièces jointes

Trier par date Trier par votes
Bonjour,

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

Microsoft semble dire que ça n'existe qu'à partir de 2016.
Screenshot_20250724_114425_Chrome.jpg
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
AtTheOne à dit:
Sur ma version 2007 ça existe déjà
Cliquez pour agrandir...
OK. Merci 👍


AtTheOne à dit:
L’inconvénient de GRANDE.VALEUR c'est que quand il y a des doublons
Cliquez pour agrandir...
Oui. C'est aussi ce que j'avais signalé dans un autre fil de discussion il y a quelques jours/semaines. Et c'est pour ça que je cherchais une formule donnant la liste sans doublon des valeurs d'un tableau.
 
Vote positif 0 Vote négatif
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...
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
 
Vote positif 0 Vote négatif
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...
Non ce n'est pas limité à 100, mais je n'avais pas compris que c'était par lignes,
J'ai considéré l'ensemble du tableau ...
Le nombre est saisi dans la cellule en bleu foncé (AB1).
Je déjeune et je modifie pour que se soit par ligne.
À bientôt
 
Vote positif 0 Vote négatif
Merci mais jai du mal avec ces trois expressions
Rang = Sh1.[AB1]
Set Rg = Sh1.[A1].CurrentRegion

Set Dc = CreateObject("Scripting.Dictionary")

pourquoi mettre Set Rg = Sh1.[A1].CurrentRegion et non directement la plage qui est B2:Y201

et pourquoi ensuite revenir faire ceci Set Rg = Rg.Offset(1, 1).Resize(Rg.Rows.Count - 1, Rg.Columns.Count - 1)

parceque quand jadapte cela à mon fichier ca ne marche pas
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
986
arnomorize
A
KTM
  • Question Question
XL 2019 Arrondir les valeurs décimales d'une plage à l'entier supérieur.
2
Réponses
22
Affichages
884
Laurent78
L
D
  • Résolu(e)
XL 2016 remplir cellule avec plusieurs valeurs issues d'une plage selon critère
Réponses
12
Affichages
1 K
dav30029
D
R
  • Résolu(e)
Microsoft 365 Copier les valeurs d'une cellule après une RECHERCHEV si vide
2
Réponses
26
Affichages
2 K
r3vzone
R
A
  • Question Question
XL 2016 Retrouver les valeurs d'une plage de cellule avec des critères prédéfinis
2
Réponses
16
Affichages
2 K
album40
A
B
  • Résolu(e)
XL 2019 Diviser les valeurs des lignes d'une plage par un nombre à partir d'une cellule
Réponses
7
Affichages
1 K
Bidexcel
B
A
  • Question Question
XL 2016 Comparer les valeurs d'une plage de cellule à une ligne .
Réponses
8
Affichages
1 K
album40
A
R
  • Question Question
VBA ; recherche de valeurs mini sur une plage de façon dynamique
2 3
Réponses
30
Affichages
5 K
Raka
R
papillondelumiere
  • Résolu(e)
Microsoft 365 Supprimer les blancs se trouvant à la fin d'une liste en cascade
2
Réponses
17
Affichages
4 K
papillondelumiere
papillondelumiere
laurent950
  • Résolu(e)
XL 2013 Redim Preserve Variable Tableau Emboité = Erreur 9 (Indice hors plage)
2 3
Réponses
36
Affichages
5 K
patricktoulon
patricktoulon
A
  • Question Question
XL 2016 Remplir un tableau selon les valeurs de cellules dispersées sur une feuille Excel.
Réponses
7
Affichages
2 K
Astyanax
A
J
  • Question Question
MACRO QUI CHANGE AUTOMATIQUEMENT LES VALEURS D'UNE CELLULE ET RECOPIE LES RESULTATS AFFICHEES
Réponses
7
Affichages
1 K
chris
chris
I
  • Question Question
XL 2013 Utiliser feuil excel comme formulaire et copié les valeurs vers une autre
Réponses
1
Affichages
1 K
Bebere
B
F
  • Question Question
XL 2013 Lister valeurs d'une plage 1 associées aux valeurs d'une plage 2
Réponses
2
Affichages
956
florence33
F
J
  • Question Question
VBA pou archiver les valeurs d'une cellule à la fin de la journée
Réponses
1
Affichages
1 K
xylomyd
X
P
  • Question Question
Trouver les entêtes de colonne d'après les valeurs Max et Min d'une ligne
Réponses
5
Affichages
2 K
Pierredlv88
P
M
  • Question Question
VBA, Dans excel 2007 : Colorer cellules lorque 3 valeurs identiques succesives
Réponses
5
Affichages
1 K
Lolote83
L
paskikic
  • Question Question
rechercher les 5 plus grandes valeurs d'une colonne
Réponses
3
Affichages
2 K
jpb388
jpb388
P
  • Question Question
Utiliser la valeur des cellules d'une plage pour désigner une feuille précise
Réponses
2
Affichages
60 K
pericles
P
A
  • Question Question
ne pas montrer toutes les valeurs d'une colonne dans un combobox
Réponses
0
Affichages
1 K
avenir80
A
Retour