Encadrer une cellule

[chrystelle]

Bonjour à tous,

Je souhaiterais avoir une aide au niveau des propriétés des cellules.

En fait, je voudrais que quand je clique sur un bouton d'option ou case à cocher, une cellule (A3 par exemple) s'encadre ou se mette en couleur.

J'ai essayé avec .Font.Underline mais il ne le reconnait pas. Je dois pas avoir la bonne syntaxe.

Merci de votre aide,
Chrystelle

 

[sylsyl]

Salut Chrystelle,

alors pour encadrer un cellule tu peux essayer:

Range("A3").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With

et pour mettre le font en couleur:

Range("A3").Interior.ColorIndex=10 '10=rouge

A++, Sylsyl.