tirer un trait sous la dernier ligne excel saisie

Question

Bonjour,
j'ai une feuille excel, ds laquelle je rentre des donn&#233;es dans les cellules A,B,C,D,E
je souhaiterai, que lorsque j'arrete de rentrer des donn&#233;es, (le numero de la ligne est alors al&#233;atoire), je souhaiterai tirer un trait sous la derniere ligne de donn&#233;e.
et ce sous excel, en vba, et un commande button, qui ce trouve sur la feuille excel.

SVP
Merci

pjcleder · Answer

PAT

Voici ce que tu &#233;cris pour souligner la cellule active.

ActiveCell.Font.Underline = xlUnderlineStyleSingle

Est-ce suffisant ou veux-tu des conseils pour d&#233;terminer quel est ta derni&#232;re ligne ?

A plus !

jpleroisse · Answer

Ce code est un peu long, mais je n'ais pas encore trouv&#233; le moyen de faire une boucle.
Fais un copier/coller et essaie-le.

Private Sub CommanButton1_Click()


Range("A100").Select
    Selection.End(xlUp).Select
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone


Range("b100").Select
    Selection.End(xlUp).Select
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone


Range("c100").Select
    
        Selection.End(xlUp).Select
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone


Range("d100").Select
       Selection.End(xlUp).Select
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone


    
Range("e100").Select
    Selection.End(xlUp).Select
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone


    End Sub

jpleroisse

galopin01 · Answer

Bonjour,
une autre possibilit&#233; (&#224; coller dans le module de la feuille concern&#233;e) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Cells.SpecialCells(xlLastCell).Row Then
iH = Target.Top + Target.Height
iL = Cells(Target.Row, 6).Left
On Error Resume Next
ActiveSheet.Shapes("EndLine").Delete
ActiveSheet.Shapes.AddLine(0, iH, iL, iH).Select
Selection.Name = "EndLine"
Target.Offset(0, 1).Activate
End If
End Sub
A+

flamalex · Answer

merci bcp,
cette derniere solution , de galopin01, me va tres bien: sauf une chose, ce qui serait un plus! voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Cells.SpecialCells(xlLastCell).Row Then
iH = Target.Top + Target.Height
iL = Cells(Target.Row, 7).Left
On Error Resume Next
ActiveSheet.Shapes("EndLine").Delete
ActiveSheet.Shapes.AddLine(0, iH - 1, iL, iH - 1).Select
Selection.Name = "EndLine"
Target.Offset(0, 0).Activate
End If
End Sub
actuellement, des que l'on rentre des donn&#233;es dans une des cellules des colonnes A,B,C,D,E,F,G, on a une ligne qui ce trace, juste en bas de la cellule saisie! donc tout va bien

j'aimerai que si la personne qui tape dans les cellules, et qui ce trompe, en fait admettons, elle tape trop...lol, donc elle efface ce kelle a tap&#233; et decide de s'arreter la! en fait il faudrait, une sorte de rescan, qui effacerait l'ancienne ligne trac&#233;e, et retrace une ligne la ou il y a la derniere valeur. voila, ca serait une petite amelioration a apporter, mais je ne vois pas comment faire.
merci
a bientot

galopin01 · Answer

Bonjour,
il suffit de remplacer la ligne if... comme suitIf (Target.Row Cells.SpecialCells(xlLastCell).Row) And Not (Application.CountA(Rows(Target.Row)) 0) Then
A+

flamalex · Answer

Bonjour Galopin
j'ai fais ce que tu m'as dis pour ce qui est de remplacer la ligne If.................

mais ca ne fonctionne pas.............
aurais tu une autre id&#233;e?
Merci
@bientot

galopin01 · Answer

heu... j'ai du trop fumer le VBA !

Private Sub Worksheet_Change(ByVal Target As Range)Y1 Target.Row Cells.SpecialCells(xlLastCell).RowY2 Application.CountA(Rows(Target.Row)) 0
iL = Cells(Target.Row, 6).Left
If Y1 And Not Y2 Then
iH = Target.Top + Target.Height
On Error Resume Next
ActiveSheet.Shapes("EndLine").Delete
ActiveSheet.Shapes.AddLine(0, iH, iL, iH).Select
Selection.Name = "EndLine"
Target.Offset(0, 1).Activate
ElseIf Y1 Then
ActiveSheet.Shapes("EndLine").Delete
ActiveSheet.Shapes.AddLine(0, Target.Top, iL, Target.Top).Select
Selection.Name = "EndLine"
Target.Offset(-1, 0).Activate
End If
End Sub

Ok ?

flamalex · Answer

lol!!!!!  j'ai pas dis ca!!! eh! eh!

bon c pas mal, mais je vais t'ennuyer un peu!!
en fait kan tu supprimes la ligne ou tu saisies, effectivement le trait remonte, mais il remonte d'une ligne seulement!
alors qu'il ce peut ke la saisie d'avant est ete faite une , deux, voir trois ou4 lignes avant, tu vois , en fait c al&#233;atoire, tu vois ce ke je veux dure, je sais pas si je m'exprime bien, c'est pas evident!
mais sinon, ouhai c'est pas mal, franchement merci
je sais pas si tu auras la patient lol, de m'aider encore un peu!!
mais merci kan meme!!

Alex

galopin01 · Answer

sorry,
&#231;a n'a plus rien &#224; voir avec la question de d&#233;part !
En fait  si tu dois supprimer une partie de ton tableau tu as plus vite fait de supprimer directement toutes les lignes ind&#233;sirables.
Il en va de m&#234;me pour l'avant derni&#232;re ligne : tu dois d'abord supprimer la derni&#232;re pour que la macro s'applique &#224; la nouvelle derni&#232;re ligne.
Cette macro n'est pas faite pour g&#233;rer des tableaux &#224; g&#233;om&#233;trie variable juste pour placer un trait au dessus ou en dessous de la derni&#232;re ligne, selon qu'elle est vide ou &#233;crite.
+

flamalex · Answer

ouhai oky jav bien compris, mais ya pas un moyen, de faire une boucle, pour ke le code rescan, les cellules vide ou non, et tire un trait en bas de la cellule pleine?

merci

Tirer un trait sous la dernier ligne excel saisie

10 réponses

Discussions similaires