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
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
Poser une question
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...c.fr.excel
"Dominique" news:
Merci beaucoup