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

sylvanu à dit:

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 :

VB:

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

ou ce code VBA :

Code:

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

Cliquez pour agrandir...

sylvanu à dit:

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

Cliquez pour agrandir...