Bordure en pointillés serrés (VBA)

Version imprimable

2 pièce(s) jointe(s)

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:

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):
Pièce jointe 303212
Même mettre la bordure fine (Weight=xlThin), n'a aucun effet sur une bordure en pointillés étalés :calim2:

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:
Pièce jointe 303214

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

Citation:

Envoyé par Poussinou

Bonjour,

C'est sur la propriété Weight qu'il faut agir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub TestCreerDesBordures()
 
Dim EpaisseursBordures As Variant
 
    EpaisseursBordures = Array(xlHairline, xlThin, xlMedium, xlThick)
    With ActiveSheet
         CreerDesBordures .Range("B4:M4"), EpaisseursBordures(0) ' De 0 à 3
    End With
 
End Sub
 
 Sub CreerDesBordures(ByVal AireBordures As Range, ByVal BordureEpaisseur As Variant)
        AireBordures.Borders.Weight = BordureEpaisseur
End Sub

Utilisez l'enregistreur de macro.

16/08/2017, 02h58
Poussinou
Bonjour Eric,

Effectivement, la solution pour le pointillé serré est la propriété Weight=xlHairline
Je pensais qu'il n'y avait pas plus fin que xlThin !
Code:

1 2 3 4 Private Sub CommandButton1_Click() Cells(2, 2).Borders.Weight = xlHairline End Sub
Pour l'enregistreur de macro, je ne savais pas qu'une telle fonction existait! C'est pratique :mrgreen:

Merci beaucoup pour votre réponse! :oops:
16/08/2017, 03h30
Invité

Citation:

Envoyé par Poussinou

Lorsque vous buttez sur le fonctionnement d'un objet, regardez systématiquement l'aide VBA Excel et recherchez la rubrique "Membres de l'objet".
16/08/2017, 04h30
clementmarcotte

Bonjour,

Citation:

Envoyé par Eric KERGRESSE

Lorsque vous buttez sur le fonctionnement d'un objet, regardez systématiquement l'aide VBA Excel et recherchez la rubrique "Membres de l'objet".

Et, aussi l'autre recette qui marche presque tout le temps : (moins évident avec Office 2016, mais OK pour les versions précédentes)

Dans l'éditeur VBA, VB6 et VB.net

un clic sur un mot-clef inconnu et :f1:

Et aussi l'Explorateur d'objets; même si c'est un peu moins évident à utiliser.