Cellule active VBA - Mise en forme d'un tableau

Version imprimable

07/08/2018, 14h19
lou93

Cellule active VBA - Mise en forme d'un tableau

Bonjour,

Je débute en VBA et je souhaiterai faire, via l'enregistreur de macro, une mise en forme pour les différents tableaux que je crée sur Excel.

Cependant, le code démarre forcément là ou j'ai commencé la mise en forme de mon tableau : Range("C4").Select.
J'aimerai que cette mise en forme fonctionne pour tous les autres tableaux, qui n'auront donc pas forcément la même taille que celui utilisé lors de l'enregistrement de la macro.

Est il possible de faire commencer ma macro là ou se trouve la première cellule active de mon tableau ? qui peut être en C4, ou bien n'importe ou ailleurs sur mon classeur...

Je vous remercie d'avance pour votre aide,

Bien cordialement,

Lou
07/08/2018, 15h22
Pierre Fauconnier

Salut.

Je suppose que tu as utilisé l'enregistreur de macros… On dit souvent que c'est par là qu'il faut commencer mais je suis de plus en plus opposé à cette idée…

Pourrais-tu donner le code? (entre balises de code => coller le code, le sélectionner puis cliquer sur le bouton # de la barre d'outils du message)

Oui j'ai utilisé l'enregistreur de macro...

J'ai remplacé Range("C4").select par ActiveCell.Select, ce qui me permet de faire commencer mon tableau ou je le souhaite. Mais pour les autres mises en forme, comme l'ajout de bordure, il y a toujours un décalage.. je ne sais pas comment modifier cela.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Sub Macro10()
'
' Macro10 Macro
'
 
'
    Range("C4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 6299648
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    Range("C5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    Range("C4").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Range("A1").Select
End Sub

07/08/2018, 15h57
Pierre Fauconnier

Travailler avec Select n'est que très rarement une bonne idée. Le code pondu par l'enregistreur est très souvent poubellisé à cause de cela, notamment (et par bien d'autres choses).

A nouveau, ce qu'il faut d'abord, c'est établir la liste des choses à faire puis créer des procédures/fonctions qui font une chose, une seule, dans cette liste.

Ici, ce qui me semble évident à réaliser en premier lieu, c'est de déterminer la plage qui doit être mise en forme.

Peux-tu nous dire comment tu déterminerais cette plage? (en français, pas en pseudo vba pondu par l'enregistreur). Où se trouve-t-elle? Comment la délimiter? Est-ce un tableau structuré?

Peux-tu mettre une copie d'écran de la feuille sur laquelle se trouve cette plage?
07/08/2018, 18h56
lou93

1 pièce(s) jointe(s)

C'est justement mon problème, je n'ai pas de plage déterminée. Je souhaiterai que la macro mette en forme tous les tableaux, et ce peu importe leur taille...

Mais pour l'exemple, on peut prendre un tableau de taille 5 * 13.

J'aimerai qu'il ait la mise en forme suivante :

Pièce jointe 402318
07/08/2018, 19h02
Pierre Fauconnier

Tes tableaux sont des tableaux structurés?
07/08/2018, 19h38
lou93

Citation:

Envoyé par Pierre Fauconnier

Tes tableaux sont des tableaux structurés?

Non, ce sont des tableaux que je crée moi- même. Je n utilise pas les fonctionnalités (qui permettent d obtenir directement un tableau structuré ) d Excel pour créer des tableaux

Bonjour,

J'ai finalement réussi à obtenir la mise en forme souhaitée, en modifiant légèrement le code réalisé via l'enregistreur de macro. J'ai utilisé la propriété " OffSet" pour que la macro s'adapte à tous les tableaux.

Cependant, je le trouve particulièrement long. Je n'ai effectué sur Excel que 5-6 manipulations... Est il possible de le réduire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
Sub Macro3()
'
' Macro3 Macro
 
    ActiveCell.Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 6299648
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range(Selection, Selection.End(xlToLeft)).Select
    ActiveCell.Offset(1, 1).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    ActiveCell.Select
End Sub

08/08/2018, 12h05
Pierre Fauconnier
Comme déjà dit, travailler à coup de Select n'est pas pratique, en plus d'être lent.

La ligne ActiveCell.Select ne sert à rien. ActiveCell voulant dire cellule active, je ne vois pas à quoi cela sert de la sélectionner, puisqu'elle l'est :rroll:

Ton code ne montre pas comment tu passes d'un tableau à l'autre. Or, c'est cela qui posait problème, et non le code de mise en forme en lui-même qui devrait être adapté mais qui est peut-être fonctionnel comme tu le montres (à coup de Select, ce qui est bof bof).

Les principes de bonne programmation voudraient que l'on fonctionne de la façon suivante:
1. On boucle sur les plages à mettre en forme selon un algorithme qui reste à définir puisque nous ne savons toujours pas comment pouvoir déterminer les tableaux (un par feuille? plusieurs? Si plusieurs, quelle disposition, quelles limites? Plages nommées?, …);
2. On envoie chaque plage à une procédure qui la met en forme et qui est la même pour tous les tableaux.
J'avais cru comprendre que c'était le point 1 qui bloquait, même si je comprends bien la lenteur (pour ce qui est du point 2).

Pour la lenteur, c'est les SELECT qui sont lents, puisqu'ils singent en VBA les actions que tu ferais manuellement sur une feuille. Il faudrait supprimer les SELECT et définir une plage qui serait utilisée dans la macro de mise en forme et définir les règles de gestion qui président à la mise en forme: 1ère ligne => tel format, dernière ligne => tel format, etc.

Un Application.ScreenUpdating permettrait probablement d'améliorer considérablement le temps d'exécution.

Mais je répète une dernière fois: Sans une vue globale des feuilles sur lesquelles tes tableaux/plages sont positionnés, sans explication sur la structure de ton classeur et la manière dont tu pourrais identifier chaque tableau/plage à mettre en forme, il sera malaisé, voire impossible, de t'aider à résoudre le point 1 ainsi que la partie du point 2 qui nécessite la définition de la plage à mettre en forme.
08/08/2018, 13h04
lou93

Finalement le code ne fonctionne pas avec tous les tableaux. Selon leurs disposition, le code fonctionne plus ou moins bien.

Concernant les différents tableaux que je souhaiterai mettre en forme directement via une macro, est il obligatoire de devoir déterminer quelle sera leur disposition, leur nombre...?

Car cela sera aléatoire. Je pourrai en effet avoir qu'un seul tableau sur ma feuille Excel, tout comme je pourrai en avoir trois. Mais dans tous les cas, si j'en ai plusieurs, je partais du principe que je devrais effectuer la macro pour chaque tableau présent dans le classeur.
Il se peut que j'ai un tableau de 4 colonnes, comme je pourrai en avoir un avec 80 colonnes. Le nombre de ligne est également très aléatoire.

La disposition est basique : une ligne de titre et des lignes disposées en dessous.

Ces informations sont elles suffisantes pour créer un code fonctionnel?

Bonjour,

Citation:

Mais dans tous les cas, si j'en ai plusieurs, je partais du principe que je devrais effectuer la macro pour chaque tableau présent dans le classeur.

Une proposition:
Avant de lancer la macro sélectionne une cellule de ton tableau, ActiveCell.CurrentRegion (équivalent au raccourci ctrl + *) devrait normalement contenir tout le tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
Sub Macro3()
'
' Macro3 Macro
 
application.screenupdating=false
With ActiveCell.CurrentRegion
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
    With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ThemeColor = 4
        .TintAndShade = 0.599993896298105
        .Weight = xlThin
    End With
End With
With ActiveCell.CurrentRegion.Rows(1)
    With .Interior
        .Color = 6299648
    End With
    .Font.ThemeColor = xlThemeColorDark1
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
 
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ThemeColor = 2
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
 
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
End With
application.screenupdating=true
End Sub