Valeur max VBA

Bonjour, j'ai une colonne de valeur (par exemple 10 valeur dans la première colonne), et j'aimerais mettre en couleur (rouge) la valeur la plus élevée à l'aide de VBA. Merci pour votre aide.

Salut treerrttyt,

une façon de faire, directement lors de l'encodage en [A:A].

Quel est le contexte exact ?

Code à coller dans le module VBA de la feuille concernée.

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Columns(1).Interior.Color = xlNone
    Range("A" & Range("A:A").Find(what:=WorksheetFunction.Max(Range("A:A")), lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Row).Interior.ColorIndex = 3
End If
'
End Sub

A+

Bonsoir,

Une MfC ? Ci-joint.