Mise en forme

Question

El  toreador
 le but du programme est d'obtenir des donn&#233;es financi&#232;res (fait), apr&#232;s on choisit le nbre de donn&#233;es que l'on veut garder. (6 ou 7 ou 8...). La mise en forme consiste &#224; tirer un trait &#224; la derni&#232;re ligne ou se situe la derni&#232;re donn&#233;e (12).
  

12,
,
----

45,
,
----

12
la liste de donn&#233;es est modifiable est peu passer &#224; 8.
Il faut utiliser une boucle mais comment faire?
Merci d'avance

jpleroisse · Answer

Bonsoir,
Ce code souligne la derni&#232;re cellule non vide de la Colonne A.
Si tu veux choisir une autre colonne , il suffit de changer A en B , C ect...

Sub Souligner()
Dim i
For i = 1 To Range("A:A").End(xlUp).Rows
If Range("A:A")(i) <> "" Then
Range("A:A")(i).Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
End If
Next i
End Sub

jpleroisse

elpais · Answer

El  toreador
   je te remercie pour code
Salut

Mise en forme

2 réponses

Discussions similaires