D
Djamel
Guest
Salut,
Voila je voudrais que lorsque il un dimanche sur la ligne 6
que ca me fasse une bordure a droite sur la linge 9
quand je met ce code "madate.Borders(xlEdgeRight).Weight = xlThick"
il me met une bordure mai juste sur la ligne 6 alors que je la voudrais sur la ligne 9.
Merci d'avance a tous
Sub SamDimanche()
Set plagederecherche = Range("B6:AF6")
For Each madate In plagederecherche
If Weekday(madate) = 8 Or Weekday(madate) = 1 Then
madate.Font.ColorIndex = 3
' madate.Borders(xlEdgeRight).Weight = xlThick
End If
Next madate
End Sub
Voila je voudrais que lorsque il un dimanche sur la ligne 6
que ca me fasse une bordure a droite sur la linge 9
quand je met ce code "madate.Borders(xlEdgeRight).Weight = xlThick"
il me met une bordure mai juste sur la ligne 6 alors que je la voudrais sur la ligne 9.
Merci d'avance a tous
Sub SamDimanche()
Set plagederecherche = Range("B6:AF6")
For Each madate In plagederecherche
If Weekday(madate) = 8 Or Weekday(madate) = 1 Then
madate.Font.ColorIndex = 3
' madate.Borders(xlEdgeRight).Weight = xlThick
End If
Next madate
End Sub