Discussion :

[Nounours1]

Bonsoir,

je recherche un code afin de mettre le tour de la cellule active en rouge gras de manière à bien la voir, est ce possible ?

Merci d'avance,

Bonne soirée

[Malick]

L'enregistreur de macros t'aurait aidé à obtenir ceci :

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

à optimiser au besoin.

Tutoriel de Pierre Fauconnier à lire : Excel et l'enregistreur de macros
Cordialement

[patricktoulon]

re
bonsoir
l'evenement selection change dans le shhet ou le thisworkbook

Code :

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

Target.BorderAround(xlContinuous, 3, 3)

reste a mémoriser puis au prochain changement remettre le précèdent a l'initial

[Nounours1]

Merci à vous deux,

On ne peut pas faire plus simple ?
Je ne connais pas VBA plus que ça.

Bonne soirée, merci

[clementmarcotte]

Merci à vous deux,

On ne peut pas faire plus simple ?

Tu le fais manuellement à partir du bon bouton dans le ruban

Je ne connais pas VBA plus que ça.

Bonne soirée, merci