AIDE MACRO - Affichage sur plusieurs feuilles
Bonjour,
Voila mon souci, j'ai une fonction permettant la réalisation d'un affichage spécifique (qui met l'orthographe en arial et la taille en 8 par ex)
Sauf que je voudrais étendre cette affichage pas seulement à ma première feuille mais au restante.
Je peux avoir 2 feuilles comme 10
Auriez-vous une solution ?
Merci de votre attention
Bonne journée.
P.s : ma fonction affichage est la suivante ( Public function affichage() )
Bonjour
En début de procédure
for i=1 to sheets.Countpour appliquer la suite à toutes les feuilles du classeur.
Cordialement
Bonjour
Je ne comprends pas tout
Mais si tu veux que l'ensemble de ton classeur ait Arial en jeu de caractère et une taille de 8, passe par les options
Sur Xl 2003
Tu dois trouver la même chose avec XL 2007
Plus de précision :
voila ma fonction :
Public Function affichage()
ActiveWorkbook.Colors(5) = RGB(77, 77, 77)
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
..... (j'ai encore d'autre ligne de code) end function
Banzai64 : ce n'est pas seulement arial et la taille, c'est aussi la longueur de la case, la hauteur et bien d'autre chose.
Amadéus : le i est integer ? le next je le met après à la fin de ma fonction affichage ?
Merci de votre aide
Bonjour
Amadéus : le i est integer ? le next je le met après à la fin de ma fonction affichage ?
si tu utilise une boucle For Each pour agir sur chaque feuille
Dim feuille As Worksheet
For Each feuille In ActiveWorkbook.Sheets
.....
NextSinon, pourquoi déclarer?
Peut-être un expert aura-t-il une autre analyse (je n'en suis pas un)
Cordialement