Marquer en couleur la 2ème plus grande valeur

[JGW]

Bonjour à tous,

Voilà mon problème:
J'ai 4 valeurs dans un tableau, et j'aurai besoin de marquer la plus grande valeur en rouge, la 2ème plus grande en jaune et laisser les deux autres inchangées (en noir).

Je suis parvenu à colorer la plus grande en rouge (avec une boucle for each cell in selection if cell.value>maxi then maxi=cell.value où maxi est initialisé à zéro), mais je n'arrive pas à trouver de code VBA pour colorer la 2ème valeur en jaune.

Merci de bien vouloir m'aider, ce serait super de votre part... 😀😀

Bonne journée!

JGW

 

[Fred0o]

Re : Marquer en couleur la 2ème plus grande valeur

Bonjour JGW,

Sans fichier exemple ni code complet, difficile de te venir en aide. Au cas où, j'ai bricolé ceci :

Sub Col()
    Dim max1 As Double, Max2 As Double, cell As Range
    max1 = 0
    Max2 = 0
    For Each cell In Selection
        If cell.Value > max1 Then
            Max2 = max1
            max1 = cell.Value
        End If
    Next
    For Each cell In Selection
        If cell.Value = max1 Then cell.Interior.ColorIndex = 3
        If cell.Value = Max2 Then cell.Interior.ColorIndex = 6
    Next
End Sub

A+

 

[Theze]

Re : Marquer en couleur la 2ème plus grande valeur

Bonjour,

Regarde avec ceci. Adapte la plage, ici en colonne A :

Sub Reference()

    Dim Plage As Range
    
    With ActiveSheet
    
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
    
    End With
    
    With Application.WorksheetFunction
    
        Plage.Find(.Large(Plage, 1), , xlValues).Interior.ColorIndex = 3
        Plage.Find(.Large(Plage, 2), , xlValues).Interior.ColorIndex = 6
        
    End With
    
End Sub

Hervé.

 

[JGW]

Re : Marquer en couleur la 2ème plus grande valeur

Merci pour votre réactivité!
J'ai utilisé celle d'Hervé!

Bonne journée à vous!

JGW

 

[JGW]

Re : Marquer en couleur la 2ème plus grande valeur

Ah, en fait j'ai une petite question Hervé...

La macro ne semble pas fonctionner pour les nombres décimaux.
Que puis-je faire?

Merci🙂

 

[JGW]

Re : Marquer en couleur la 2ème plus grande valeur

Avez-vous des idées?
Merci 😱😱😱

 

[Theze]

Re : Marquer en couleur la 2ème plus grande valeur

Re,

Je viens de tester et la macro colore bien les deux plus grandes valeurs, décimale ou pas et positif ou négatif, dans la plage ???
Ici, je suis sous Excel 2003.

Hervé.

 

[Fred0o]

Re : Marquer en couleur la 2ème plus grande valeur

Bonjour à tous,

Dans le pire des cas (ou pas), tu peux toujours utiliser ma solution qui fonctionne quelque soit le type de valeur numérique concerné !

Voilà une idée !

A+

 

[Modeste geedee]

Re : Marquer en couleur la 2ème plus grande valeur

Bonsour®

Mise en forme conditionnelle ????
que faire si ex-aequo ?

4 valeurs pour 4 cellules ?
4 valeurs possibles pour XXX cellules ?

 

[JGW]

Re : Marquer en couleur la 2ème plus grande valeur

En fait, la macro ne marche pas avec des décimales très longues (type: 8,344555565566) 🙂
J'ai réduit la longueur du coup!
Merci!