Changement de police et bordure sur la dernière ligne

Résolu

hd49 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
hd49 Messages postés 22 Date d'inscription Statut Membre Dernière intervention - 16 oct. 2013 à 19:49

Bonjour,

Je voudrai faire 1 macro d'un fichier Excel pour mettre la dernière ligne de plusieurs onglets avec une police de : 13, calibri, gras et mettre une bordure sur le contour et l'intérieur.
Il faut noter que :
- ces onglets n'ont pas le même nombre de ligne
- j'ai besoin de cette "mise page" seulement" sur les colonnes de F à J

J'ai "bidouillé" le code en-dessous pour la police (13, calibri, gras)
1/Je pense qu'il y a moyen de faire un meilleur code. J'aimerai avoir vos conseils
2/ J'aurai aussi besoin d'aide pour le code pour la bordure

'Changer la police de la ligne "TOTAL" 

        'Pour colonne F

        Range("F80000:J80000").End(xlUp).Offset(0, 0).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        ' Pour colonne G

        Range("F80000:J80000").End(xlUp).Offset(0, 1).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

            

        'Pour colonne H

        Range("F80000:J80000").End(xlUp).Offset(0, 2).Select

         With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        'Pour colonne I

        Range("F80000:J80000").End(xlUp).Offset(0, 3).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

        'Pour colonne J

        Range("F80000:J80000").End(xlUp).Offset(0, 4).Select

        With Selection.Font

            .Name = "Calibri"

            .Size = 13

            .Strikethrough = False

            .Superscript = False

            .Subscript = False

            .OutlineFont = False

            .Shadow = False

            .Underline = xlUnderlineStyleNone

            .ThemeColor = xlThemeColorLight1

            .TintAndShade = 0

            .ThemeFont = xlThemeFontMinor

        End With

            Selection.Font.Bold = True

            Selection.Font.Italic = True

A voir également:

Changement de police et bordure sur la dernière ligne
Changement police facebook - Guide
Partage de photos en ligne - Guide
Changer de dns - Guide
Supprimer dernière page word - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 149

Bonjour,

Un peu plus court...

'Pour F à J
Range("F80000:J80000").End(xlUp).Resize(1,5).Select
With Selection.Font
.Name = "Calibri"
.Size = 13
.Bold = True
.Italic = True
End With
With Selection
.Borders(xlEdgeLeft).LineStyle=xlContinuous
.Borders(xlEdgeRight).LineStyle=xlContinuous
.Borders(xlEdgeTop).LineStyle=xlContinuous
.Borders(xlEdgeBottom).LineStyle=xlContinuous
.Borders(xlInsideVertical).LineStyle=xlContinuous
End With

A+

PS : est-ce que tu définis bien dans ta macro tous les onglets où tu veux appliquer ce traitement ?

Réponse 2 / 2

hd49 Messages postés 22 Date d'inscription Statut Membre Dernière intervention

Merci pour ton aide Zoul67 mais j'ai trouvé 1 autre code :

With Cells(Rows.Count, 6).End(xlUp).Resize(1, 5).Font
     .Name = "Calibri"
     .Size = 13
     .Bold = True
     .Italic = True
    End With
    With Cells(Rows.Count, 6).End(xlUp).Resize(1, 5).Borders
        .LineStyle = xlContinuous
        .Item(xlEdgeBottom).Weight = xlMedium
        .Item(xlEdgeLeft).Weight = xlMedium
        .Item(xlEdgeTop).Weight = xlMedium
        .Item(xlEdgeRight).Weight = xlMedium
    End With

Discussions similaires

Bref. Je cherche la police d'écriture de Bref

Votre réponse

Discussions similaires