Discussion :

[isrdum]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[isrdum]

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[isrdum]

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

[isrdum]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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.

[Patrice740]

Bonjour,

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 !

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveCell.DisplayFormat.Interior.ColorIndex

[isrdum]

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