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!

[Invité]

Bonjour,

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

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

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

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

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

Merci beaucoup pour votre réponse!

[Invité]

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

[clementmarcotte]

Bonjour,

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

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