Propriété des cellules

[chrystelle]

Bonjour à tous !

Je fais des macros sous excel et il m'arrive de vider et de remplir le contenu des cellules.
Je souhaiterai lorsque j'affecte une valeur à une cellule, que celle-ci soit soulignée, ou d'une police particulière.

J'aimerai que quelqu'un me dise comment utiliser ces propriétés.

Merci de votre aide

 

[michel]

bonjour Chrystelle

tu peux insérer la procédure ci dessous au niveau de la feuille :
dès que tu modifies une valeur dans cette feuille , la cellule change de couleur ,ainsi que la couleur des caractères...


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range(Target.Address)
.Interior.ColorIndex = 4 ' couleur cellule (vert)
.Font.ColorIndex = 3 'chgt couleur caracteres (rouge)
.Font.Bold = True ' ecriture gras
.Font.Underline = xlUnderlineStyleSingle 'valeurs soulignées
End With
End Sub

Dans l'exemple ,si tu supprimes une valeur dans une cellule déjà colorisée , la couleur de fond reste identique dans la cellule .Je te proposes donc en option ( un peu au hasard car tu n'a pas donné beaucoup d'infos sur ton fichier ) quand tu supprimes la valeur d'une cellule "colorisée" , la cellule reprend les paramètres sans colorisation .

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next ' pour gerer suppression plage de cellule
If Range(Target.Address) = "" Then
With Range(Target.Address)
.Interior.ColorIndex = xlNone
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
End With
Else
With Range(Target.Address)
.Interior.ColorIndex = 4 ' coloriage cellule (vert)
.Font.ColorIndex = 3 'chgt couleur caracteres (rouge)
.Font.Bold = True ' ecriture gras
.Font.Underline = xlUnderlineStyleSingle 'valeurs soulignées
End With
End If
End Sub

Il faudra sans doute que tu adaptes tout ça à ton projet

bonne soirée
Michel

 

[chrystelle]

En fait, je souhaiterais que quand je clique sur un bouton d'option ou case à cocher, une cellule s'encadre ou se mette en couleur.

 

[michel]

Bonjour Chrystelle

La macro ci dessous est à rattacher au bouton de ton choix
quand tu cliqueras sur le bouton , la cellule active sera colorisée en vert


sub Coloriser()
ActiveCell.Interior.ColorIndex = 4 ' couleur cellule (vert)
End Sub


J'espère que cela pourra t'aider....

Bonne soirée
Michel