Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Ajouter une bordure sur dernière ligne insérée

patrick60880

XLDnaute Nouveau
Bonjour à tout le forum. Ma question est peut-être simpliste mais je n'y arrive pas. Voilà, j'insère plusieurs lignes dans une feuille par le biais d'un userform. J'aimerais appliquer une bordure basse sur la dernière ligne insérée.

Voici le code de mon bouton qui insère les lignes:

Private Sub CommandButton1_Click()

Set f2 = Sheets("Commandes")
If Me.TextBox14 = "" Then
MsgBox "saisir un numéro de commande!"
Me.TextBox14.SetFocus
Exit Sub
End If

ligne = f2.[A65000].End(xlUp).Row + 1

f2.Cells(ligne, 1) = Me.TextBox14
f2.Cells(ligne, 2) = Me.TextBox1
f2.Cells(ligne, 3) = Me.TextBox15
f2.Cells(ligne, 4) = Me.ComboBox3
f2.Cells(ligne, 8) = Me.TextBox13
f2.Cells(ligne, 15) = Textbox11.Value * TextBox15.Value
'Format(TextBox16.Value, "0.#0 €")

Me.TextBox1 = ""
Me.Textbox2 = ""
Me.Textbox3 = ""
Me.Textbox4 = ""
Me.Textbox5 = ""
Me.TextBox6 = ""
Me.Textbox7 = ""
Me.TextBox8 = ""
Me.TextBox9 = ""
Me.TextBox10 = ""
Me.Textbox11 = ""
Me.TextBox12 = ""
Me.TextBox15 = ""
End Sub


Merci beaucoup pour votre aide
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Ah ok.
Les mises en forme se font sur la feuille active. Donc c'était la feuille 1 active. Je comprend mieux.
donc on aurait du mettre :
VB:
Sheets("Commandes").Range(Cells(ligne, 1), Cells(ligne, 17)).Borders(xlEdgeBottom).LineStyle = xlContinuous
 

Discussions similaires

Réponses
17
Affichages
340
Réponses
7
Affichages
985
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…