Pour trouver la plus grande valeurs des 3 Cellules B4,B5,B6 :
Dim Max as integer
Max = Range("B4") If Range("B5")> Max Then Max=Range("B5") If Range("B6")> Max Then Max=Range("B6")
Ensuite :
If Max > Range("C8") ' Comparaison avec la cellule C8 Range("C9").Value = "" Ecrassement de la Cellule C9 End If
It@li@
|