XL 2013 Créer via VBA les bordures d'un tableaux dont le nombre de lignes varie

pierrejean

XLDnaute Barbatruc

• 27 Mars 2020

• #2

Bonjour Chrystel01
A tester:

VB:

Sub test()
Set c = Columns(1).Find("Total général", LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
   ligne = c.Row
   Ad_tableau = "A2:D" & ligne
   Range(Ad_tableau).Borders.LineStyle = xlContinuous
End If
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2020

• #3

Bonjour le fil

Un possibilité parmi d'autres

VB:

Sub Bordurages()
With Intersect(ActiveSheet.UsedRange.EntireRow, [A:D])
.Borders.Weight = 2
.Columns.AutoFit
End With
End Sub

EDITION 1:
Bonjour pierrejean (je ne viens de voir ta réponse que maintenant)

EDITION 2:
Bonjour sylvanu
Je plussoie
(j'ai failli en parler mais me suit dit qu'un XLDnaute évoquerait le Tableau)
Mais j'avais misé sur chris
Perdu 😉

 

Dernière édition: 27 Mars 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2020

• #4

Bonjour Chrystel, Staple, Pierrejean,
Une solution simple est l'utilisation d'un tableau structuré. Ni macro, ni mise en forme, tout est automatique.
A chaque ligne rajoutée la mise en forme est automatique.
Vous avez moult choix de présentation. Vous cliquez dans votre tableau et dans le menu vous faites Création/Styles de tableau.

 

Pièces jointes

• Doc1.xlsx

  16 KB · Affichages: 13

Vote positif 0 Vote négatif

Solution

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #5

Merci beaucoup pour vos réponses et votre très grande réactivité. Je regarde tout cela 🙂

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #6

Merci pour toutes ces possibilités que je garde en tête. Cela m'est très utile.
Je vais opter pour l'option de Sylvanu qui me laisse le choix des formats 🙂

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #7

Sylvanu,
Le mode tableau fonctionne très bien si j'ai des enregistrements complémentaires.
Mais, si le nombre d'enregistrements est diminué, le format tableau peut il se réduire lui aussi ?
Merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 27 Mars 2020

• #8

Essayez ! 🙂
Si vous supprimez des lignes la mise en forme disparaît sur les lignes supprimées.
En fait c'est un tableau "adaptatif". Si vous rajoutez des lignes ou des colonnes il s'adapte.

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #9

Je vois qu'effectivement le tableau s'adapte en fonction des insertions / suppressions de lignes ce qui est super.
Mais en fait, je ne supprime pas de lignes : je les efface car je ne veux pas casser des liens… Dans ce le tableau ne pourra pas s'adapter ?

 

Vote positif 0 Vote négatif

C

Chrystel01

XLDnaute Occasionnel

• 27 Mars 2020

• #10

Je regarde comment supprimer toutes les lignes tableau qui sont au dessous du total général (notamment la formule de Pierrejean) mais j'ai des difficultés car je n'ai jamais appris le langage VBA et que très très peu pratiqué Je vais créé une nouvelle discussion sur ce point. Merci

Set c = Columns(1).Find("Total général", LookIn:=xlValues, lookat:=xlWhole)
ligne = c.Row
Rows(ligne + 1:60000).Select
Selection.Delete Shift:=xlUp

 

Vote positif 0 Vote négatif