maval
XLDnaute Barbatruc
Bonjour,,
Sur mon classeur j'utilise ce code pour récupérer le nom de chaque l'onglet dans la cellule "K1"
J'aimerais que la police soit "Arial taille 18 et Gras" j'ai donc ajouter ceci:
Sa fonctionne que sur la feuille active alors que je souchèterais avoir sur tous les onglet.
Merci de votre aide
Sur mon classeur j'utilise ce code pour récupérer le nom de chaque l'onglet dans la cellule "K1"
Code:
Dim f As Worksheet
For Each f In ActiveWorkbook.Worksheets
f.Range("K1") = f.Name
Next
Code:
With ActiveCell
.Borders.Weight = 3
.Font.Bold = True
.Font.Size = 18
.Font.Italic = True
.Font.Name = "Arial"
End With
Sa fonctionne que sur la feuille active alors que je souchèterais avoir sur tous les onglet.
Merci de votre aide