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

[patrick60880]

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]

Bonjour Patrick,
Essayez pour voir :

With f2.Rows(ligne).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

ou même plus simple :

f2.Rows(ligne).Borders(xlEdgeBottom).LineStyle = xlContinuous

 

[patrick60880]

Bonjour stlvanu,
un grand merci pour ton code qui fonctionne super. Juste un petit point, il faudrait que la bordure s'arrête à la colonne Q, est-ce possible?

 

[sylvanu]

Q étant la 17eme colonne:

f2.Range(Cells(ligne, 1), Cells(ligne, 17)).Borders(xlEdgeBottom).LineStyle = xlContinuous

 

[patrick60880]

ce code fonctionne très bien mais donne une bordure infinie:

With f2.Rows(ligne).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Le dernier code
f2.Range(Cells(ligne, 1), Cells(ligne, 17)).Borders(xlEdgeBottom).LineStyle = xlContinuous
me renvoie une erreur.

Merci encore pour ton aide

 

[sylvanu]

Ca m'étonne, je viens de tester ça marche correctement
Dans ce cas utilisez la première version :

With f2.Range(Cells(ligne, 1), Cells(ligne, 17)).Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
End With

Je l'ai aussi testée elle marche bien.

 

[patrick60880]

Je ne comprends pas. Le code me renvoie cette erreur:

 

[sylvanu]

Testez ce petit fichier avec cette macro pour voir.

Sub Souligner()
ligne = [E3]
Sheets("Feuil1").Range(Cells(ligne, 1), Cells(ligne, 17)).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub

Chez moi, sous XL2007, ça marche impeccable.
plus un second test avec :

Sub Souligner2()
ligne = [E3]
Sheets("Feuil1").Range("A" & ligne & ":Q" & ligne).Borders(xlEdgeBottom).LineStyle = xlContinuous
End Sub

Plus un troisième type pour voir toutes les configurations. Evidemment les trois marchent chez moi.

 

[patrick60880]

Le fichier fonctionne parfaitement. Je ne comprends pas. Un grand merci quand même pour votre aide très précieuse.
Il n'y a que ce code qui fonctionne:
With f2.Rows(ligne).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Merci

 

[sylvanu]

En désespoir de cause, testez ça :

    f2.Range("A" & ligne & ":Q" & ligne).Select
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    f2.Range("A" & ligne).Select

On évite toujours à cause des Select inélégants.

 

[patrick60880]

Vraiment désolé, je pense que vous avez tout essayé. Ça ne fonctionne pas non plus. Encore merci de m'avoir aidé . Le problème viendrait peut-être à cause de ce code:
ligne = f2.[A65000].End(xlUp).Row + 1

 

[sylvanu]

Non, sinon
f2.Rows(ligne).Borders(xlEdgeBottom).LineStyle = xlContinuous
ne marcherait pas.
Essayez de remplacer f2 par sheets(f2)

 

[patrick60880]

Merci sylvanu,

Finalement, j'ai créé un autre bouton, juste pour tracer une bordure sur la dernière ligne. Il fallait juste sélectionner la feuille. Voici le code:
Private Sub CommandButton2_Click()
Set f2 = Sheets("Commandes")
Worksheets("Commandes").Activate
ligne = f2.[A65000].End(xlUp).Row
Range("A" & ligne & ":Q" & ligne).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
End Sub

Encore un grand merci pour votre aide

 

[sylvanu]

Mais que représentez f2 dans vos codes ? Je pensais qu'il était déclaré avant.

 

[patrick60880]

Pour être plus clair, Mon userform prends les données dans une feuille nommée "Inventaire" et écrit les lignes dans une autre feuille nommée "Commandes". Dans l'initialisation il y avait bien 2 données f pour la première feuille et f2 pour la seconde. Dans le dernier code que vous m'avez donné, la bordure était tracée sur la Première feuille (je ne sais pas pourquoi), donc, il fallait absolument activer la seconde feuille pour trouver la dernière ligne écrite et tracer la bordure.