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

[Chrystel01]

Bonjour,

Comment avec une macro puis-je réaliser automatiquement les bordures d'un tableau sachant que les données ne sont figées et peuvent évoluer en lignes (enregistrements complémentaires…)
Le total est actuellement en ligne 8 sur le fichier joint mais peut être sur n'importe quelle ligne en fonction des enregistrements alimentés via une macro.
Merci d'avance pour votre aide

Bonne journée

Chrystel

 

[pierrejean]

Bonjour Chrystel01
A tester:

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

 

[Staple1600]

Bonjour le fil

Un possibilité parmi d'autres

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 😉

 

[sylvanu]

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.

 

[Chrystel01]

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

 

[Chrystel01]

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 🙂

 

[Chrystel01]

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

 

[sylvanu]

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.

 

[Chrystel01]

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 ?

 

[Chrystel01]

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