Bonjour à tous,
Je viens de faire ce petit bout de code qui me permet de séparer mes données par un trait rouge à chaque changement de date dans la colonne A.
9a marche bien mais je ne parviens pas à faire un trait plus épais (xlThick 'xlMedium ne marchent pas...)
quelqu'un connait-il la solution ?
Merci ;o)
Sub formatage_cond_dates()
With Range("BASE_data")
.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A6<>$A5"
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Color = -16776961
.TintAndShade = 0
.Weight = xlThin 'xlThick 'xlMedium '
End With
Selection.FormatConditions(1).StopIfTrue = False
End With
End Sub