Fonction pour mise en forme

Bonjour,

Je n'arrive pas à arriver à un bon résultat avec l'enregistreur de macro, je reçois une erreur 400.

En fait j'aimerai que suite au click de mon bouton, toute la ligne 1 se mette en gras sur une feuille, que le contenu des colonnes C D E soient centrées , que la ligne 1 ait un fond bleu ciel et que toutes les cellules de la feuilles soient quadrillées.

Merci d'avance pour éclairer un jeune padawan.

Bonjour,

L'enregistreur doit faire tout ceci très précisément, si tu lui as bien demandé les choses ...

Quel est le code généré ?

Salut,

Voici :

Sub MISE()

'

' MISE Macro

'

'

Columns("B:B").ColumnWidth = 17.43

Rows("1:1").Select

Selection.Font.Bold = True

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent1

.TintAndShade = 0.599993896298105

.PatternTintAndShade = 0

End With

Columns("B:G").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Cells.Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

End Sub

Quand j'assigne ça à un bouton il me met erreur400. Je voudrais le faire sur la feuil1 mais le code ne mentionne pas celle-ci c'est normal ?

Tout fonctionne bien chez moi.

Après, on peut se demander l'utilité de mettre des bordures à 148576 lignes et à quelque chose comme 26000 colonnes, mais c'est un autre débat.

Mets-tu ton bouton sur ta feuille1?

Sans indication de feuille, il va exécuter le code sur la feuille active.

re,

Non je ne sais pas le mettre sur la feuille car je n'ai pas de place car toutes les celulles sont remplies dans le feuille à un certain moment, enfin je pourrai le mettre plus loin mais ce n'est pas pratique de devoir scroller plus bas ou à droite, je dois lancer ça depuis la premiere feuille.

il te reste alors la possibilité d'attribuer un raccourci clavier à ta macro pour la faire tourner si tu ne veux pas de bouton ...

j'ai fais comme ça, ça marche nickel merci.