Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs

[Perceval973]

Bonjour à tous

J'ai un fichier contenant des valeurs sur trois colonnes

Je voudrais mettre en surbrillance les trois valeurs les plus élevées de la colonne "C"

Dans mon exemple ci-joint, il s'agirait donc des cellules C7, C8 et C9 que je voudrais "couleur de remplissage : jaune" de préférence dans une macro pour que je puisse l'intégrer a une macro déjà existante

Merci pour votre aide / Perceval

 

[sylvanu]

Bonjour Perceval,
Avec le mot de passe c'est mieux. 🙂
En PJ un essai, Feuil1 par MFC, feul2 pas VBA.
Pourquoi pas simplement une MFC avec :

=RANG(C2;$C$2:$C$10)<=3

ou ce code VBA :

Sub Macro1()
For L = 2 To 10
    If Application.Rank(Cells(L, "C"), [C2:C10]) <= 3 Then
        Cells(L, "C").Interior.Color = vbYellow
        Cells(L, "C").Font.Bold = True
    Else
        Cells(L, "C").Interior.Color = vbWhite
        Cells(L, "C").Font.Bold = False
    End If
Next L
End Sub

 

[Perceval973]

Bonjour Perceval,
Avec le mot de passe c'est mieux. 🙂
En PJ un essai, Feuil1 par MFC, feul2 pas VBA.
Pourquoi pas simplement une MFC avec :

=RANG(C2;$C$2:$C$10)<=3

ou ce code VBA :

Sub Macro1()
For L = 2 To 10
    If Application.Rank(Cells(L, "C"), [C2:C10]) <= 3 Then
        Cells(L, "C").Interior.Color = vbYellow
        Cells(L, "C").Font.Bold = True
    Else
        Cells(L, "C").Interior.Color = vbWhite
        Cells(L, "C").Font.Bold = False
    End If
Next L
End Sub

Bonjour Sylvanu

Le code VBA semble fonctionner mais pas a tous les coups
Parfois il bug à la ligne "If Application.Rank(Cells(L, "C"), [C:C]) <= 3 Then"

Désolé d'avoir oublié le mot de passe, je pensais l'avoir enlevé, c'est : 0369

Je préfère une macro plutôt qu'une MFC car une feuille se crée chaque jour, et le nombre de ligne n'est pas toujours le même

 

[sylvanu]

Re,
Voir PJ.
J'ai vu que le problème peut survenir lorsque la cellule demandée pour l'analyse est vide.

 

[Perceval973]

Re,
Voir PJ.
J'ai vu que le problème peut survenir lorsque la cellule demandée pour l'analyse est vide.

Ca fonctionne IMPECCABLE 🙂
Merci Sylvanu