Changement de police
Profil bloqué
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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
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
3 réponses
-
-
Bonjour
ton code fonctionne parfaitement
http://www.cjoint.com/c/FDCn0XMVZwQ
La question est de savoir comment tu l'utilises
Cdlmnt -
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
