Changement de police

Question

Bonjour, 

Voici le script que j'ai écrit, mais pour une raison que j'ignore, il ne fonctionne pas.
Merci de votre aide.

Sub taille()

With selection.Font
.Size = 14
.Name = "elephant"
.Underline = xlUnderlineStyleSingle
.Bold = True

End With

End Sub

Configuration: Windows 7 / Firefox 43.0

Configuration: Toshiba satellite Windows seven pro

Jibehem · Answer

Voici le message qu'il me donne.

ccm81 · Answer

Bonjour

ton code fonctionne parfaitement
http://www.cjoint.com/c/FDCn0XMVZwQ 

La question est de savoir comment tu l'utilises

Cdlmnt

cs_Le Pivert · Answer

Bonjour,

Comme ceci:

Sub taille()
 Range("A6").Select
With Selection.Font
.Size = 14
.Name = "elephant"
.Underline = xlUnderlineStyleSingle
.Bold = True
End With
End Sub
 

il faut avoir sélectionné avant!
 
@+ Le Pivert

Changement de police

3 réponses

Votre réponse

Discussions similaires

Newsletters