Discussion :

[EAU24]

Bonjour à tous,
J’ai réalisé un petit programme VBA afin de surligner en rouge la dernière ligne non vide d’un tableau.

Seulement si une colonne est remplie à droite ou au milieu, je n’arrive pas à surligne depuis la colonne A
jusqu'à la colonne qui est remplie.
Je joins un un fichier Excel avec un exemple. En feuille 1 telle que la macro surligne et en feuille 2 tel que je voudrais que ce soit.

Pouvez vous m’aider. Merci à tous.

[Fab_de_chez_PERFORM]

Bonjour

je propose de chercher la derniere ligne de la feuille + la dernière colonne + mettre la bordure de B jusqu'à la derniere colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Fabien()
 
'déterminer la dernière ligne de la feuille
Dim Last_Row As Long
Last_Row = Cells.Find(What:="*", _
                    After:=Range("A1"), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row
 
'déterminer la dernière ligne de la feuille
Dim Last_Col As Long
Last_Col = Cells.Find(What:="*", _
                    After:=Range("A1"), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Column
 
'Bordure
Range("B" & Last_Row & ":" & Cells(Last_Row, Last_Col).Address).Select
     With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
        .Weight = xlMedium
    End With
 
End Sub

Là j'ai laissé à partir de B comme dans l'exemple. S'il faut A, il faut le changer dans le range selectionné dans la partie bordure

A plus
Fabien

[EAU24]

ça marche, merci Fabien :