je sais qu'il y a ici des personnes fortiches avec Excel
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRange("M40").Value = Application.WorksheetFunction.Max(Range("G:G"))
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("M40").Value = Application.WorksheetFunction.Max(Range("G:G")) For i = 1 To ActiveSheet.Cells(ActiveSheet.Rows.Count, "G").End(xlUp).Row If Range("G" & i).Value = Range("M40").Value Then Range("G" & i & ":I" & i).Font.Color = vbRed Else Range("G" & i & ":I" & i).Font.Color = vbBlack End If Next i End Sub
Par ce que ça, on peut le faire avec la mise en forme conditionnelle de la cellule contenant NO.