alleger un code

Le
Dominique
bonjour

est il possible d alleger ce code?

Range("Tableau2[Tir d''été]").Select
Selection.Font.Bold = True
Range("Tableau2[CHI 09]").Select
Selection.Font.Bold = True
Range("Tableau2[CHJ 09]").Select
Selection.Font.Bold = True
Range("f1").Select
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #19256771
Bonsoir,
Comme dirait LSteph, on peut déjà faire la chasse aux select :

union(Range("Tableau2[Tir d''été]"),Range("Tableau2[CHI 09]"), _
Range("Tableau2[CHJ 09]")).Font.Bold = True
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Dominique" news:
bonjour

est il possible d alleger ce code?

Range("Tableau2[Tir d''été]").Select
Selection.Font.Bold = True
Range("Tableau2[CHI 09]").Select
Selection.Font.Bold = True
Range("Tableau2[CHJ 09]").Select
Selection.Font.Bold = True
Range("f1").Select


Dominique
Le #19256761
Le 03/05/2009 17:31, Philippe.R a écrit :
union(Range("Tableau2[Tir d''été]"),Range("Tableau2[CHI 09]"), _
Range("Tableau2[CHJ 09]")).Font.Bold = True


Merci beaucoup
Publicité
Poster une réponse
Anonyme