Changement de police

Fermé
Profil bloqué - 28 avril 2016 à 15:14
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 28 avril 2016 à 16:00
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



A voir également:

3 réponses

Profil bloqué
28 avril 2016 à 15:32
Voici le message qu'il me donne.
0
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
Modifié par ccm81 le 28/04/2016 à 15:54
Bonjour

ton code fonctionne parfaitement
http://www.cjoint.com/c/FDCn0XMVZwQ

La question est de savoir comment tu l'utilises

Cdlmnt
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 28/04/2016 à 16:00
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
0