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

Chrystel01

XLDnaute Occasionnel
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
 

Pièces jointes

  • Doc1.xlsx
    8.7 KB · Affichages: 9
Solution
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.

Staple1600

XLDnaute Barbatruc
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:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

Chrystel01

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 543
Messages
2 080 560
Membres
101 249
dernier inscrit
PAwka