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
 

Discussions similaires

Réponses
17
Affichages
251
Réponses
7
Affichages
949

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG