Discussion :

[maxval18]

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 :

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

[jfontaine]

Bonjour,

Quand tu bloques sur ce genre de problème (instruction que tu ne connais pas), utilises l'enregistreur de macro.

[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

[jfontaine]

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 :

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

1
2
3
4
5
With Selection.Borders(xlEdgeRight)
        .LineStyle = xlDot
        .Weight = xlThin
        .ColorIndex = 3
End With

[jackborogar]

Bonjour,

Pour colorier ta cellule en rouge:

Code :

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

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 :

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

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,

[maxval18]

Bonjour jackborogar,

Je te remercie des renseignements

Bonne soirée

Max