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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #2

Bonjour Patrick,
Essayez pour voir :

VB:

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

ou même plus simple :

Code:

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

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #3

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?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #4

Q étant la 17eme colonne:

VB:

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

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #6

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

VB:

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.

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #8

Testez ce petit fichier avec cette macro pour voir.

VB:

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 :

Code:

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.

 

Pièces jointes

• Soulignage.xlsm

  16.6 KB · Affichages: 10

Dernière édition: 6 Juillet 2020

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #10

En désespoir de cause, testez ça :

VB:

    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.

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #11

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #12

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

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #13

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Juillet 2020

• #14

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

 

Vote positif 0 Vote négatif

P

patrick60880

XLDnaute Nouveau

• 6 Juillet 2020

• #15

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.

 

Vote positif 0 Vote négatif