Sujet Précédent Sujet Suivant

Changement de police et bordure sur la dernière ligne

Résolu/Fermé
hd49 Messages postés 22 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 26 juillet 2014 - 14 oct. 2013 à 19:35
hd49 Messages postés 22 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 26 juillet 2014 - 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:

2 réponses

Réponse 1 / 2
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
Modifié par Zoul67 le 15/10/2013 à 19:11
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 ?
0
Réponse 2 / 2
hd49 Messages postés 22 Date d'inscription mercredi 19 septembre 2012 Statut Membre Dernière intervention 26 juillet 2014
16 oct. 2013 à 19:49
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
0

Discussions similaires

[référencement] Ne pas être référencé
kij_82 -
Searaphina -

10 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses