Discussion :

[Dragern]

Bonjour j'ai un programme qui rentre les données rentrées dans un userform sur une ligne le but étant que j'ajoute dans ce programme que cela change aussi les bordure des cellules pour rendre cela plus visible et donc lisible j'ai donc utilisé l'enregistreur de macro pour me faciliter la tache mais le code est vachement long je cherche donc à le simplifier mais je ne vois pas comment.

Voila le code de l'enregistreur de macro

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
Range("A10:H10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    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
End Sub

merci pour votre aide,
Dragern.

[CaptainMeta]

Salut,

Tu peux remplacer ton code par celui là :

Code :

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

1
2
3
4
5
6
7
8
    With Range("A10:H10")
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
    End With

Le mieux est de faire quelques tests en supprimant des lignes pour voir leur effet. Une fois que tu as trouvé les inutiles, tu les supprimes.

A+

Captain

[Dragern]

Merci beaucoup captain

[CaptainMeta]

De rien

N'oublie pas de mettre la question en "Résolu"

[patricktoulon]

Bonjour
si il n'y a pas de couleur ou de type de bordure comme j'ai cru comprendre il y a beaucoup plus simple

Code :

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

1
2
3
4
5
6
7
Sub test()
With Range("A10:H10")
.Borders(1).LineStyle = 1 'tout les droites de toutes les cellules de la plage 
.Borders(3).LineStyle = 1' tout les tops de toutes les cellules de la plage 
.Borders(4).LineStyle = 1 'tout les bottom de toutes les cellules de la plage 
End With
End Sub

en utilisant les index a la place des( xledge....) on peut diminuer le nombre d'apel

j'avais fait la demo il y a meme pas deux mois, la discution devrait etre facilement etre retrouvée
faut il encore que le demandeur prenne la peine de faire une recherche


et si on veux encore plus simplifier comme c'est que sur une seule ligne
on s'occupe que du pourtour de la plage ainsi que des inside

Code :

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

1
2
3
4
5
6
Sub test()
With Range("A10:H10")
.BorderAround ColorIndex:=0, Weight:=xlThin
.Borders(1).LineStyle = 1
End With
End Sub

[CaptainMeta]

Ah je ne connaissais pas le principe de ces index ni le coup du borderaround! C'est vrai que ça raccourcit bien la fonction