Changer couleur des bordures des cellules

**Mrfreeze117** · 12/01/2015, 10h06

Bonjour à tous,

Voilà mon soucis j'ai des bordures de différentes épaisseurs et des des tableaux de différente taille. Je souhaiterai changer la couleur de mes bordures qui est actuellement noir par une autre couleur.

Je n'ai aucune idées de comment faire. Parce que chaque bordure est indépendante il y a donc 4 bordures par cellule. Je pense qu'il faut tester l’existence de bordure mais je ne sais pas comment faire.

Quelqu'un aurai des pistes?

Merci d'avance.

**Marc-L** · 12/01/2015, 10h21

Bonjour,

déjà en activant le Générateur de macros puis en modifiant manuellement une bordure,
une base de code est livrée sur un plateau !
Ensuite il n'est pas difficile de tester la valeur d'une propriété Borders, et en consultant l'aide VBA intégrée …

__________________________________________________________________________________________________
Tous unis, tous Charlie

**Mrfreeze117** · 12/01/2015, 10h45

Sans parler de la détection mais juste ma modification des couleurs avec l’enregistreur j'ai pu faire ça :

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
Sub Macro2()
'
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub

Le soucis c'est que à l'intérieur du tableau ça met la même épaisseur partout

**Mrfreeze117** · 12/01/2015, 10h56

Ça marche bien en faisant le faisant cellule par cellule.

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
Sub Macro()
 
For i = 2 To 11
    For j = 2 To 4
        Cells(i, j).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Color = -16776961
            .TintAndShade = 0
        End With
    Next
Next
End Sub

Mais c'est vraiment moche il n'y a pas moyen de raccourcir un peu ce code?
Est ce que quelqu'un peu me dire à quoi sert le TinAndShade?

Invité · 12/01/2015, 10h59

Bonjour,

Une solution à adapter avec ce code :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub TesterFormaterLesBordures()
 
Dim AireATraiter As Range
Dim CouleurBordure As Variant
 
    Set AireATraiter = Sheets("Feuil3").Range(Range("C5"), Range("H10"))
    CouleurBordure = Array(247, 150, 70)
 
    FormaterLesBordures AireATraiter, xlMedium, xlHairline, CouleurBordure, True
 
    Set AireATraiter = Nothing
 
'     TypeDeTrait : très fin : xlHairline 1, fin : xlThin 2, moyen : xlMedium -4138, épais : xlThick 4
 
End Sub
 
 
Sub FormaterLesBordures(ByVal AireABorder As Range, ByVal TypeDeTraitExterieur As Variant, ByVal TypeDeTraitInterieur As Variant, ByVal CouleurTrait As Variant, ByVal AvecLigneTitre As Boolean)
 
        With AireABorder
 
             With .Borders(xlEdgeTop)
                  .Weight = TypeDeTraitExterieur
                  .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
             End With
 
             With .Borders(xlEdgeBottom)
                  .Weight = TypeDeTraitExterieur
                  .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
             End With
 
             With .Borders(xlEdgeLeft)
                  .Weight = TypeDeTraitExterieur
                  .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
             End With
 
             With .Borders(xlEdgeRight)
                  .Weight = TypeDeTraitExterieur
                  .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
             End With
 
             If AireABorder.Rows.Count > 1 Then
                With .Borders(xlInsideHorizontal)
                     .Weight = TypeDeTraitInterieur
                     .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
                End With
             End If
 
             If AireABorder.Columns.Count > 1 Then
                With .Borders(xlInsideVertical)
                     .Weight = TypeDeTraitInterieur
                     .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
                End With
             End If
 
             If AvecLigneTitre = True Then
                With AireABorder.Rows(1).Borders(xlEdgeBottom)
                     .Weight = TypeDeTraitExterieur
                     .Color = RGB(CouleurTrait(0), CouleurTrait(1), CouleurTrait(2))
                End With
             End If
 
      End With
 
End Sub

Cordialement.

Invité · 13/01/2015, 05h03

Monsieur Mrfreeze117,

Vous avez posté un nouveau message hier après midi. Ayez au moins la correction de répondre aux réponses bonnes ou mauvaises qu'on vous a faites le matin même.

Eric KERGRESSE.

**Mrfreeze117** · 13/01/2015, 10h32

Désolé de ne pas avoir répondu plus vite mais j'ai pas eu le temps hier d'adapter ton code je me suis servi d'une autre solution. (et oui j'ai posté un autre message, on peut faire plusieurs chose à la fois ce n'est pas interdit que je sache) Ce n'est pas la peine d'être agressif je suis toujours resté très courtois.

Je viens de regarder ton code et de ce que je comprends tu ne testes pas l’existence de bordure.

Pour ceux que cela intéresse j'ai fait un code qui change la couleur des bordures sans changer épaississeur. Par contre s'il n'y a pas de bordures ça en créé des normales. Pour ce que j'avais à faire c'était suffisant. (La couleur ici est du bleu foncé).

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
Sub Macro()
 
imax = Cells.Find("*", , , , , xlPrevious).Row
 
For i = 1 To 19
 
 
    End If
    For j = 1 To 5
        Cells(i, j).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
        With Selection.Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
        With Selection.Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Color = -10737366
            .TintAndShade = 0
        End With
    Next
Next
End Sub

Par contre pour ma culture personnel je suis intéressé si quelqu'un trouve comment tester l’existence des bordures.

Je ne sais pas trop si je dois clôturer ce post parce que seulement une partie a été résolu.

**Marc-L** · 13/01/2015, 10h37

Avec le Générateur de macros, encore lui, le meilleur ami du débutant, sélectionner une cellule avec bordure
puis la configurer de nouveau sans bordure.

Avec le code ainsi obtenu, il est donc aisé de lire la couleur d'une bordure et vérifier si elle correspond à celle sans …

__________________________________________________________________________________________________
Tous unis, tous Charlie

Invité · 13/01/2015, 14h06

Bonjour,

J'accuse réception de votre message.

Eric KERGRESSE.

Changer couleur des bordures des cellules

Macros et VBA Excel

Discussions similaires

Partager

Partager