Mise en forme conditionnelle Excel

Résolu
BEBER1212 -  
 BEBER1212 -
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:

3 réponses

Réponse 1 / 3
BEBER1212
 
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 ;-)
0
Réponse 2 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

teste ce code s'il te convient

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

0
Réponse 3 / 3
BEBER1212
 
ça fonctionne aussi, merci !!!
0

Discussions similaires

Mise en forme conditionnelle avec plusieurs conditions
Anthony882000 -
Vaucluse -

5 réponses
Excel supprimer une mise en forme de tableau
pépé35530 -
allezlom -

24 réponses