Rapport de message :*
 

Re: Suite de cellules colorées

Titre du sujet : Re: Suite de cellules colorées
par JCGL le 27/05/2007 16:59:33

Re,

Confiance oui mais pas absolue (donc je teste arf)


Case 1 'itineraire 1
Range("G8:X8,Y9:Z9,Z10:Z20,R20:Y20,P19:R19,P16:P18,J16:O16").Select
Selection.Interior.Color = vbGreen
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With



Ca marche

A+