Marquer en couleur la 2ème plus grande valeur

Fred0o

XLDnaute Barbatruc

• 3 Septembre 2012

• #2

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 :

VB:

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+

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 3 Septembre 2012

• #3

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

Bonjour,

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

Code:

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é.

 

Vote positif 0 Vote négatif

J

JGW

Guest

• 3 Septembre 2012

• #4

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

 

Vote positif 0 Vote négatif

J

JGW

Guest

• 3 Septembre 2012

• #5

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🙂

 

Vote positif 0 Vote négatif

J

JGW

Guest

• 3 Septembre 2012

• #6

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

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

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 3 Septembre 2012

• #7

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é.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Septembre 2012

• #8

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+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 3 Septembre 2012

• #9

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 ?

 

Vote positif 0 Vote négatif

J

JGW

Guest

• 3 Septembre 2012

• #10

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!

 

Vote positif 0 Vote négatif