[XL-2016] Identifier les maximums d'une colone

Identifier les maximums d'une colone

Salut aux pros de Excel

Pour une colonne de données, je dois identifier un somme variables de maximums en fonction de différents facteurs et les surligner en jaune
Avec la fonction Application.WorksheetFunction.Max, j'arrive à identifier la plus élevé, mais je ne sais pas comment identifier le 2ième plus élevée et les suivantes
Voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub CommandButton4_Click() Dim rng As Range Dim dblMax As Double Dim i As Integer Dim A As Integer Set rng = Feuil4.Range("H3:H300") dblMax = Application.WorksheetFunction.Max(rng) A = 1 For i = 1 To 300 If Feuil4.Range("H" & A).Value = dblMax Then Feuil4.Range("H" & A).Interior.ColorIndex = 6 End If A = A + 1 Next i End Sub
Merci

Bonjour,

n'est il pas plus facile ici de passer par une mise en forme conditionnelle ?

Avec Excel 2016, tu peux aisément faire une nuance de couleur sur une plage de cellules.

Citation:

Envoyé par Jean-Philippe André

Bonjour,

n'est il pas plus facile ici de passer par une mise en forme conditionnelle ?

Avec Excel 2016, tu peux aisément faire une nuance de couleur sur une plage de cellules.

Merci Jean-Philippe pour la réponse

Sauf que la mise en forme conditionnelle ne fonctionne pas dans mon cas puisque le nombre de valeurs maximums à considérer fluctue en fonction de différentes conditions

Reste que l'enregistreur de macro me confirme que c'est bien une piste à étudier ici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
With Feuil4.Range("H3:H300")
.FormatConditions.AddTop10
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1)
        .TopBottom = xlTop10Top
        .Rank = 10 'ici tu mets ton nombre de maximums à conmsidérer
        .Percent = False
    End With
    With .FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    .FormatConditions(1).StopIfTrue = False
End With

WOW.... C'est majestueux!!!!
Un très très gros merci Jean-Philippe
Je te souhaite un joyeux temps des fêtes!!!!

Citation:
Envoyé par Jean-Philippe André
Reste que l'enregistreur de macro me confirme que c'est bien une piste à étudier ici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 With Feuil4.Range("H3:H300") .FormatConditions.AddTop10 .FormatConditions(.FormatConditions.Count).SetFirstPriority With .FormatConditions(1) .TopBottom = xlTop10Top .Rank = 10 'ici tu mets ton nombre de maximums à conmsidérer .Percent = False End With With .FormatConditions(1).Font .Color = -16383844 .TintAndShade = 0 End With With .FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13551615 .TintAndShade = 0 End With .FormatConditions(1).StopIfTrue = False End With
J'ai une autre question
Le programme fonctionne a merveille pour surligner la cellule avec de la couleur
Toutefois, bien que la cellule apparaisse d'une certaine couleur pour l'utilisateur, selon Excel cette cellule est toujours blanche
J'ai utilisé ce petit programme pour en avoir le coeur net

Code:

MsgBox Feuil1.Range("XX").Interior.ColorIndex

Systématiquement, autant pour le cellules blanche que coloré, j'obtient le code -4142
J'ai besoin que la case soit réellement de couleur, puisque, par la suite, je veux que mon programme puisse lire la couleur des cases et réaliser des opérations spécifique pour les cases de couleur.
Y'a-t-il un moyen?

Merci

Bonjour,

il y a moyen, mais tu vas trouver ca moins le fun...

Tu peux découper ton code
-une premiere boucle pour récupérer toutes les valeurs dans tes colonnes
- trier toutes les valeurs
- attribuer a chaque rang la couleur qui te plaira
- une seconde boucle pour passer en revue les valeurs et appliquer les couleurs selon le point précédent.

Bonjour,

Citation:

Envoyé par isrdum

par la suite, je veux que mon programme puisse lire la couleur des cases et réaliser des opérations spécifique pour les cases de couleur.

Ça a toujours été et ça restera toujours une mauvaise approche !
Il y a tellement de nuances possibles qui ne sont pas différentiables par nos piètres yeux !

Bonjour,

j'aurai plutôt opté pour un traitement avec la fonction RANG() sur une colonne à part par exemple, ou plus simplement en triant les valeurs

si tu veux interroger la couleur appliquée par une MEF, il faut passer par le DisplayFormat

Code:

MsgBox ActiveCell.DisplayFormat.Interior.ColorIndex

Merci joe.levrai ..... C'est parfait !