conditional formatting

Re : conditional formatting

pourquoi passer par le VBA pour ça

faire directement dans la cellule G6
dans la MEFC mettre en formule
ceci =$G6=$D$2
et ensuite copier le format sur les suivantes

ça le fait aussi bien

Re : conditional formatting

c est parce qu'en fait, je souhaite que tous passe par VBA, apprendre a le coder et par la suite je souhaite afficher un msgbox d alerte

Re : conditional formatting

avec ce code, la macro fonctionne quand range ("G6:G23") mais quand je retouche la range a ("G6:G100"), ce la sort :

run-time error "1004"
application-defined or object-defined error + souligne en jaune
.Color = -16383844

une idee du pourquoi ?

Sub alert_MD()
Range("G6:G100").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$D$2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
MsgBox " Alert, Expiry of Options.", vbOKOnly
End Sub