Couleur Bordures en VBA

Version imprimable

Bonjour,

Voila j'ai un code pour ajouter des bordures si une cellule de la colonne "A" la ligne n'est pas vide qui marche trés bien.
J'aimerais lui ajouter la couleur des bordures en rouge et la bordures droite "Right" en pointiller

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 1 Then
            With Range("A" & Target.Row & ":H" & Target.Row) ' De la colonne A à H
               If Target.Value = "" Then 'Supprimer bordure si cellule A est vide
                   .Borders(xlEdgeLeft).LineStyle = xlNone
                    .Borders(xlEdgeTop).LineStyle = xlNone
                    .Borders(xlEdgeRight).LineStyle = xlNone
                    .Borders(xlEdgeBottom).LineStyle = xlNone
                    .Borders(xlInsideVertical).LineStyle = xlNone
                Else
                    .Borders(xlEdgeLeft).LineStyle = xlContinuous
                    '.ColorIndex = 7
 
                    .Borders(xlEdgeTop).LineStyle = xlContinuous
                    .Borders(xlEdgeRight).LineStyle = xlContinuous
                    .Borders(xlEdgeBottom).LineStyle = xlContinuous
                    .Borders(xlInsideVertical).LineStyle = xlContinuous
                End If
            End With
        End If
    End If
    End Sub

Merci d'avance
Cordialement

Max

04/06/2012, 11h08
jfontaine

Bonjour,

Quand tu bloques sur ce genre de problème (instruction que tu ne connais pas), utilises l'enregistreur de macro.
04/06/2012, 11h21
maxval18

Bonjour JFontaine

Je te remercie de ton conseil, c'est la première chose que j'ai fait mais cela na pas était concluant.

Merci qu'as même
bonne journée

Max
04/06/2012, 11h45
jfontaine
Citation:

c'est la première chose que j'ai fait mais cela na pas était concluant.

Peux tu développer pour que l'on comprenne ce qui n'a pas fonctionné.
Code:

1 2 3 4 5 With Selection.Borders(xlEdgeRight) .LineStyle = xlDot .Weight = xlThin .ColorIndex = 3 End With
04/06/2012, 14h39
jackborogar

Bonjour,

Pour colorier ta cellule en rouge:

Code:

Sheets("Feuil1").Range("A1").Interior.ColorIndex = 3

L'indice "3" est ton numéro de couleur, ici j'ai pris le rouge.

Pour mettre ta bordure de cellule en pointillé:

Code:

Sheets("Feuil1").Range("A2").BorderAround xlDashDot, 2

xlDashDot met ta bordure en pointillé
2 est l'indice de l'intensité de ton pointillé (plus ou moins gros)

Cordialement,
04/06/2012, 15h58
maxval18

Bonjour jackborogar,

Je te remercie des renseignements

Bonne soirée

Max