Affecter une police à une colonne

[nak]

Bonjour
Je cherche à affecter un caractère spécial à la 5eme cellule de ma ligne active.
J'arrive à mettre le caractère sans problème. Par contre pour la police c'est plus compliqué, celle-ci s'applique non pas sur la 5eme cellule de ma ligne mais sur celle active.

Pouvez vous me donner la solution SVP

Merci

Sub Macro1()
Cells(ActiveCell.Row, 5) = "Ä"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

 

[Pierrot93]

Re : Affecter une police à une colonne

Bonjour Nak

essaye peut être ainsi :

With Cells(ActiveCell.Row, 5).Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

bonne journée
@+

 

[pierrejean]

Re : Affecter une police à une colonne

bonjour nak

Atester

Sub Macro1()
Cells(ActiveCell.Row, 5) = "Ä"
With [COLOR=blue]Cells(ActiveCell.Row, 5).[/COLOR]Characters(Start:=1, Length:=1).Font
.Name = "Wingdings"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Edit: Salut Pierrot 🙂 (toujours un plaisir de te croiser)

 

[nak]

Re : Affecter une police à une colonne

Merci pour votre aide ça fonctionne.
J'ai pas été très bon car j'avais essayé (*Row, 5) mais j'avais laissé ActiveCell...

Bonne journée