Aide sur macro bordure

[yusukens]

bonjours,

quelqu'un serait comment créer une macro qui permetterai de faire une bordure personnalisé sur plusieur cellule personnalisé ?

je m'explique, j'aimerai lorsque je choisi par exemple mon tableau de 4x4 celule, et que lorsque j'active la macro, les cellules selectionner aura en périfériques un contour en trait continu fin. et à l'intérieur, des traits horizontaux en pointillé, et les verticaux en trait continu.

merci de votre aide.

 

[yusukens]

Re : Aide sur macro bordure

Je vais répondre à mon propre message =)

en fait je viens de trouver la réponse à la question que je viens de poser.
merci quand même

et merci à moi même =)

 

[Hervé]

Re : Aide sur macro bordure

bonjour

je donne quand meme un code pour ne pas laisser un post sans réponse :

Public Sub toto()
With Selection
    .Borders.LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).LineStyle = xlDash
End With
End Sub

salut

 

[yusukens]

Re : Aide sur macro bordure

merci hervé pour le code
j'aurai deux façons pour écrire mon macro maintenant,
merci.

 

[ChTi160]

Re : Aide sur macro bordure

Salut yusukens

Arff je ne peux m'empêcher de venir te Saluer Hervé (j'espère que tu vas bien) donc ,pour excuse un petit ajout à ta macro lol

Public Sub toto()
With Selection
      .Borders.LineStyle = xlContinuous
      .Borders(xlInsideHorizontal).LineStyle = xlDash
      .[COLOR=Blue]BorderAround[/COLOR] LineStyle:=xlDouble, ColorIndex:=3, Weight:=xlThick
End With
End Sub

bonne fin de Soirée

 

[yusukens]

Re : Aide sur macro bordure

merci CHTI

ça donne un air de gaieté à mes bordures =)

 

[Fanfan68]

Re : Aide sur macro bordure

Bonjour à vous tous,

Je trouve cette petite macro assez intéressante et personnellement, je désirerai l'utiliser dans l'evenement "selectionchange" de la feuille, le problème c'est qu'elle fonctionne bien à partir du moment ou l'on selectionne plusieurs cellules mais si qu'une seule cellule est selectionnée, la macro plante au niveau de la ligne :

.Borders(xlInsideHorizontal).LineStyle = xlDash

Ce qui est normal puisqu'en selectionnant qu'une seule cellule, je n'ai pas de bordure interieure, quelle code rajouter pour lui dire "si qu'une seule cellule selectionnée pas de ".Borders(xlInsideHorizontal).LineStyle = xlDash" ?

Merci à tous

 

[ChTi160]

Re : Aide sur macro bordure

Salut yusukens
bonjour Fanfan68

non testé en ajoutant un test sur le nombre de ligne et de colonne de ta place sélectionnée
exemple
If Target .column < 2 and target .row >2 then Goto Fin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Selection As Range
Set Selection = Target
With Selection
      .Borders.LineStyle = xlContinuous
If[COLOR=blue] .Columns.Count < 2[/COLOR] Or [COLOR=blue].Rows.Count < 2[/COLOR] Then GoTo [COLOR=red]fin [COLOR=green]'on saute la ligne _[/COLOR][/COLOR]
[COLOR=red][COLOR=green]si moins deux lignes ou moins de Deux colonne[/COLOR]
[/COLOR]    .Borders(xlInsideHorizontal).LineStyle = xlDash
[COLOR=red]fin: [/COLOR][COLOR=green]'et on arrive ici lol
[/COLOR]    .BorderAround LineStyle:=xlDouble, ColorIndex:=3, Weight:=xlThick
End With
End Sub

le problème ,mais je n'ai peut être pas tout saisi lol
c'est que lorsques tu modifies une cellule même dans une plage l'élément changé l'est toujours que dans une cellule donc une colonne,une ligne ( .Borders(xlInsideHorizontal).LineStyle = xlDash)ne servira jamais
donc si tu veux modifier cellule par cellule tu enlèves cette ligne de la macro
enfin tu vois et tu précises si besoin
bonne journée

 

[Fanfan68]

Re : Aide sur macro bordure

Merci ChTi160,

C'est ce que je désirai, parfait !

A bientôt