macro

Bonjour,

Ci-dessous une petite macro. C'est pas très satisfaisant, mais ça marche.
Colle la dans un module pour la lancer.

Sub BordurageSurCritere()
Dim i

For i = 2 To 65536
If Cells(i, 1) <> "" Then
Range(Cells(i, 5), Cells(i, 7)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
Next i
End Sub

zOrg2net
7OuNet

Bonsoir

je recherche une macro qui me mette des bordures sur les cellules des
colonnes E,F,G mais que si sur la même ligne , la cellule A n'est pas vide:
en résumé , pour chaque ligne ou la cellule A contient une valeur
je veux que les cases E,F,G de la même ligne soient "bordurées"
merci pour votre aide