Mise en forme conditionnelle Excel Résolu

Question

Bonjour à tous,

J'ai un tableau Excel dont le nombre de lignes peut varier à l'ouverture.
A la fin de ces lignes, j'ai une ligne vide, puis une ligne Total.

Je voudrais faire une mise en forme conditionnelle sur les premières lignes, sans que cela s'applique à la ligne vide et à la ligne Total.

En français, ça donne :
De la cellule A3 jusqu'à la cellule (Range("A3").End(xlDown)), mettre un contour dans les cellules de A à Y.

Est ce qu'il y à moyen de faire ça ? Je n'arrive pas à l'intégrer dans la plage de sélection...

Merci

Configuration: Windows 7 / Firefox 3.6.8

BEBER1212 · Answer

J'ai résolu ça en VBA :

x = Worksheets("Liste").Range("Y3").End(xlDown).Row


Range("A3:Y" & x).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

Merci...à moi ;-)

Mike-31 · Answer

Salut,

teste ce code s'il te convient

Sub test()
Range("A3", Range("A6").End(xlDown).Offset(0, 24)).Borders.LineStyle = xlContinuous
End Sub

BEBER1212 · Answer

ça fonctionne aussi, merci !!!

Mise en forme conditionnelle Excel

3 réponses

Discussions similaires

Newsletters