Mise en forme conditionnelle Excel

Résolu/Fermé

BEBER1212 - 24 août 2010 à 16:29
BEBER1212 - 25 août 2010 à 20:57

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

A voir également:

Mise en forme conditionnelle Excel
Mise en forme conditionnelle excel - Guide
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

3 réponses

Réponse 1 / 3

BEBER1212
24 août 2010 à 16:46

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 ;-)

Réponse 2 / 3

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
24 août 2010 à 17:00

Salut,

teste ce code s'il te convient

Sub test()
Range("A3", Range("A6").End(xlDown).Offset(0, 24)).Borders.LineStyle = xlContinuous
End Sub

Réponse 3 / 3

BEBER1212
25 août 2010 à 20:57

ça fonctionne aussi, merci !!!

Discussions similaires

Excel : Mise en forme conditionnelle selon une autre cellule

mise en forme conditionnelle - alerte date

Discussions similaires

Newsletters