Dessiner une bordure pour un titre

Bonjour à tous,

Comment peut-on, en VBA, dessiner une bordure pour un titre centré dans un fichier texte.

Exemple :

-----------

! Titre !

-----------

Merci d'avance.

Bonjour,

Un code à coller dans un module et à tester

Le titre est fusionné sur la largeur de la feuille et est centré

Sub Bordure()
'
' Macro3 Macro
'

'
    ActiveCell.Range("A1:F1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .ReadingOrder = xlContext
    End With
    Selection.Merge
    Selection.Font.Bold = True
    Selection.Font.Size = 16
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlDash
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDash
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlMedium
    End With

    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Amicalement

Pierrot

Bonjour Cappe Pierre,

Merci pour le code.

Mais j'aimerais obtenir un titre centré et encadrer dans un fichier texte et non pas sur une feuille de calcul.

Bonjour,

Alors, vous devez insérer une zone texte dans votre fichier texte et le centrer

Voir fichier joint.

Pierrot

Bonjour Cappe pierre,

Le résultat devra se faire dans un fichier texte.

Je trouve un problème pour créer une chaîne centrée et encadrée pour la faire écrire dans un fichier texte ensuite.

Les lignes créées seront sauvegardées dans un tableau qui représente le texte complet de la page à transférer (WriteLine) dans le fichier texte résultant.

     For i = 0 To 2
         .WriteLine TxtTitre(i) & Chr(10)
     Next i

Bonjour,

Je suis désolé, cette solution dépasse mes compétences

Pierrot

Rechercher des sujets similaires à "dessiner bordure titre"