Discussion :

[xszma]

Bonjour,

N'étant pas le plus affuté en vba, je viens vers vous pour savoir comment avoir un code propre qui me permet de structurer la mise en page d'une feuille EXCEL (un tableau a plusieurs colonnes et lignes dans cette feuille). Cette mise en page doit être unique pour tout le tableau de cette feuille.
Merci.
Cordialement,

xszma.

[Menhir]

C'est extrêmement vague comme question.
Je répondrais donc par une réponse tout aussi vague : utiliser l'enregistreur de macro et nettoyer le code obtenu.

[xszma]

Voici le code déjà obtenu après enregistrement, maintenant je veux en faire qu'un style propre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
If [AA3] <> "" Then
        Range(Selection, Selection.End(xlDown)).Select
        End If
        With Selection.Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
        Selection.Cut
        Range("A1").Select
        Range("A65536").End(xlUp).Offset(1, 0).Select
        ActiveSheet.Paste
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With

Ce n'est pas moi qui avait enregistré la macro de départ, c'est pour cela que je veux simplifier cela. Comment "nettoyer" ?