je cherche le code qui permet de mettre une bordure une cellule?
lorsque je clique sur un bouton il vide la cellule et je voudrais ensuite remettre en forme la cellule:
- fond blanc
- bordure double trait
pour le fond je sais faire avec interior.colorindex=2
mais pour la bordure le sais pas!?
oui je viens d'y penser mais j'obtiens le code suivant:
Code:
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
il faut mettre tout sa ou il y a des chose qui sont inutile???
Public Sub Bordure(Plage As Range, Position, TypeLigne, HauteurLigne)
' Mettre une bordure
With Plage.Borders(Position)
.LineStyle = TypeLigne
.Weight = HauteurLigne
.ColorIndex = xlAutomatic
End With
End Sub
Pour mettre des bordures à la cellule A2 (traits simples à droite, à gauche, en haut et en bas de la cellule) :
en ce qui concerne le code de la mise en forme pas de probleme j'ai reussi a faire par contre j'ai une erreur qui est : la méthode select de la classe range a échoué.