Macro mise en page feuille avec un nom en chiffre

Bonjour a tous,

J'ai fichier avec un peu plus de 500 feuilles.

Une dizaine de feuilles dont le nom est en lettre et environ 500 dont le nom sont des chiffres. J'aimerais créé une macro de mise en page juste pour les feuilles dont les noms sont des chiffres.

Quelqu'un peut-il m'aider?

En vous remerciant par avance.

Bonjour,

Oui on peut, mais il va falloir en dire un peu plus sur ce qu'il faut faire exactement !

bonjour Pedro,

en fait j'aurais juste besoin du début de la macro car j'adapterais la mise en page par rapport à mes besoin donc tu peux faire la mise en page que tu veux.

merci de ton aide

Pedro 22,

voici la mise en page que je compte mettre pour toutes les feuilles avec pour nom un chiffre

Cells.Select

ActiveWindow.Zoom = 70

With Selection.Font

.Name = "Century Schoolbook"

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.TintAndShade = 0

.ThemeFont = xlThemeFontNone

End With

Range("1:5,7:8").Select

Range("A7").Activate

Selection.RowHeight = 30

Range("6:6,9:50").Select

Range("A9").Activate

Selection.RowHeight = 25

Columns("A:B").Select

Range("A3").Activate

Selection.ColumnWidth = 30

Columns("C:L").Select

Range("C4").Activate

Selection.ColumnWidth = 15

End Sub

Bonjour

Sub ListeFeuilles()
  Dim sh As Worksheet

  For Each sh In Worksheets 'Pour chaque feuille
    If IsNumeric(sh.Name) Then ' Vérifie si le nom est numérique
      ' Le traitement
      '
      '

    End If
  Next sh ' Passe à la feuille suivante

End Sub

Bonjour Yael excel,

J'insére ma mise en page entre le If et le End If c'est bien cela?

C'est ça

Yal excel,

Ça ne fonctionne pas, j'ai fais un petit fichier pour que tu te rende compte.

Merci du temps que tu passes à m'aider.

Tu y étais presque