Taille police

maval · 7 Février 2015

Bonjour,,

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

J'aimerais que la police soit "Arial taille 18 et Gras" j'ai donc ajouter ceci:

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

DoubleZero · 7 Février 2015

Re : Taille police

Bonjour, maval, le Forum,

Comme ceci ?

Code:

Option Explicit
Sub Police()
    Dim f As Worksheet
    For Each f In Worksheets
        With f.Range("k1")
            .Borders.Weight = 3
            .Font.Bold = True
            .Font.Size = 18
            .Font.Italic = True
            .Font.Name = "Arial"
        End With
    Next
End Sub

A bientôt

maval · 7 Février 2015

Re : Taille police

Bonjour Doublezero,

Je te remercie beaucoup juste une petite modif si tu le permet, j'aimerais que sa agisse sur toute les feuille sauf sur la première nommer "Accueil"

Merci encore et bonne journée

DoubleZero · 7 Février 2015

Re : Taille police

Re-bonjour,

Voici la modification :

Code:

Option Explicit
Sub Police()
    Dim f As Worksheet
    For Each f In Worksheets
        If f.Name <> "Accueil" Then
            With f.Range("k1")
                .Borders.Weight = 3
                .Font.Bold = True
                .Font.Size = 18
                .Font.Italic = True
                .Font.Name = "Arial"
            End With
        End If
    Next
End Sub

A bientôt

maval · 7 Février 2015

Re : Taille police

Re,

je te remercie c'est Nickel.....!

Je te souhaite une bonne journée

Taille police

maval

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires