XL 2013 Bordures conditionnelles

[ivan27]

Bonjour à tous,

Ci-joint un exemple de tableau avec des lignes sous-totaux puis total en gras.
Peut-on automatiser la création de bordures (modèle de tableau, MFC, Vba...) en imposant les bordures horizontales uniquement au dessus et en dessous des lignes formatées en gras ?
Merci d'avance pour votre aide.

Ivan

 

[Modeste]

Bonjour Ivan,

Pour la police en gras et les bordures, tu peux les appliquer par MFC sur la plage, en utilisant une formule comme:

=ESTNUM(CHERCHE("total";$J1))

... à condition que n'existe pas, en colonne A d'autres cellules que les sous-totaux qui contiennent le mot "total".

Ceci dit, un lien avec ton autre discussion? ... pour laquelle un petit retour serait apprécié!

 

[ivan27]

Re bonjour le forum, Modeste,
Merci pour cette proposition.
Cdlt,

 

[DoubleZero]

Bonjour à toutes et à tous, bises à Mdeste,

Une autre suggestion, par macro :

Option Explicit
Option Compare Text
Sub Quadriller()
    Dim c As Range
    With Range("a1").CurrentRegion
        .Font.Bold = False
        .Borders.Value = 0
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With
    With Range("a1").Resize(, 7): .Font.Bold = True: .Borders.Value = True: End With
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
        If c Like "*total*" Then c.Resize(, 7).Font.Bold = True: c.Resize(, 7).Borders.Value = True
    Next
    Range("a1").CurrentRegion.BorderAround xlContinuous, xlMedium
End Sub

A bientôt

 

[mapomme]

Bonjour à tous,

En partant d'un tableau(A1:G50) sans bordure et police normale, voir les MFC dans le fichier joint.

 

[ivan27]

Re-bonjour à tous,
Merci DoubleZero, mapomme pour vos propositions.
Bon après-midi
Ivan