Encadrer une cellule

C

chrystelle

Guest
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
 
S

sylsyl

Guest
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.
 

Discussions similaires

Réponses
5
Affichages
334

Statistiques des forums

Discussions
312 584
Messages
2 089 976
Membres
104 323
dernier inscrit
NabBEn