Sub Bordures()
For i = Range("A65500").End(xlUp).Row To 1 Step -1
If Cells(i, "A").Borders.Count <> 0 Then Msgbox=("La cellule " & Cells(i,"A").address & " Contioent une bordure") : exit for
Next
End Sub
Sub Bordures()
For Each c In ActiveSheet.UsedRange
If c.Borders.LineStyle = xlNone Then
c.Interior.ColorIndex = xlNone
Else
c.Interior.ColorIndex = 3
End If
Next
End Sub
Sub Bordures3()
DerLig = Cells.SpecialCells(xlCellTypeLastCell).Row
DerCol = Cells.SpecialCells(xlCellTypeLastCell).Column
MaCol = 2
If MaCol > DerCol Then Exit Sub
For Each c In Range(Cells(1, MaCol), Cells(DerLig, MaCol))
If c.Borders.LineStyle = xlNone Then
c.Interior.ColorIndex = xlNone
Else
c.Interior.ColorIndex = 3
End If
Next
End Sub
DerLig = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each c In Range(Cells(1, MaCol), Cells(DerLig, MaCol))
If c.Borders.LineStyle = xlNone Then
c.Interior.ColorIndex = xlNone
Else
c.Interior.ColorIndex = 3
End If
Next
For i= derLig to 1 step-1
If cells(i,MaCol).Borders.LineStyle = xlNone Then
cells(i,MaCol).Interior.ColorIndex = xlNone
Else
cells(i,MaCol).Interior.ColorIndex = 3
exit for
End If
Next