Discussion :

[Poussinou]

Bonjour,

J'essaie de mettre des pointillés serrés en bordure d'une cellule via du vba, comme il est possible de le faire manuellement, mais je n'y arrive pas.
J'ai testé toutes les propriétés Borders.LineStyle présentes dans la documentation de Microsoft, mais aucune ne correspond:
https://msdn.microsoft.com/fr-fr/lib.../ff821622.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff834690.aspx

Voici ce que j'ai testé:

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
 
Private Sub CommandButton1_Click()
    Range("B2:Z3").Clear
    Cells(2, 2).Borders.LineStyle = xlContinuous
    Cells(2, 3).Borders.LineStyle = xlDash
    Cells(2, 4).Borders.LineStyle = xlDashDot
    Cells(2, 5).Borders.LineStyle = xlDashDotDot
    Cells(2, 6).Borders.LineStyle = xlDot
    Cells(2, 7).Borders.LineStyle = xlDouble
    Cells(2, 8).Borders.LineStyle = xlLineStyleNone
    Cells(2, 9).Borders.LineStyle = xlSlantDashDot
    Cells(2, 10).Borders.LineStyle = xlGray50
    Cells(2, 11).Borders.LineStyle = xlGray75
    Cells(2, 12).Borders.LineStyle = xlGray25
    Cells(2, 13).Borders.LineStyle = xlDot
    Cells(2, 13).Borders.Weight = xlThin
End Sub

Ca donne ça visuellement (sur la ligne 2) vs ce que j'aimerais avoir (ligne4):

Même mettre la bordure fine (Weight=xlThin), n'a aucun effet sur une bordure en pointillés étalés

J'aimerais donc mettre du pointillé serré (voir ligne4), mais on voit bien qu'aucun pointillé précédent ne correspond
On peut pourtant avoir ce pointillé manuellement. C'est le premier de la liste:


Quelqu'un saurait-il comment faire pour appliquer ce fameux pointillé avec du vba?
Merci pour votre aide!