Changement de police

Profil bloqué -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 3
Profil bloqué
 
Voici le message qu'il me donne.
0
Réponse 2 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

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

La question est de savoir comment tu l'utilises

Cdlmnt
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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

Discussions similaires

Bref. Je cherche la police d'écriture de Bref
Ratus -
Calo mnie -

10 réponses
Menace "Interpol" après webcam coquine
diego34 -
Panth33ra -

4 réponses
Police d'écriture style "vieux journal"
joshua87 -
,,,,, -

3 réponses