Bug bordure interligne

[Laura]

Bonjour,

Je rencontre des problèmes avec une ligne de macro.
Le but de ma macro est de mettre en forme un tableau, je commence par mettre des interlignes continues partout et ensuite je souhaite mettre des interlignes en pointillets lorsqu'il s'agit du même groupe mais ça bug.

Voici la partie de mon code qui bug :
'Merge des intitulés d'OP
ligne = 11
Do Until Cells(ligne, 2) = ""
If Cells(ligne + 1, 2) = Cells(ligne, 2) Then
'recherche de la dernière ligne idem
lignefin = ligne
Do Until Cells(lignefin + 1, 2) <> Cells(ligne, 2) And Cells(lignefin + 1, 2) <> "" Or Cells(lignefin + 1, 3) = ""
lignefin = lignefin + 1
Loop
'Fusion
Range(Cells(ligne, 2).Address(False, False), Cells(lignefin, 2)).Select
Selection.Merge
'Mise pointillets
Range("B" & ligne & ":BK" & lignefin).Select
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDashDot
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
ligne = lignefin + 1
Else
ligne = ligne + 1
End If
Loop


Il me retourne l'erreur "Erreur d'exécution '1004' : impossible de définir la propriété LineStyle de la classe Border".
J'ai lu dans d'autres forums que cette erreur arrive lorsqu'une seule ligne est sélectionnée, ce n'est pas mon cas, il y en a plusieurs.
Le plus étonnant est que ce bug n'arrive pas dès le début, la macro effectue la manip sur plusieurs lignes avant de bugger.

Quelqu'un peut-il m'aider svp, je ne sais plus quoi essayer !!!


Cordialement
Laura

 

[camarchepas]

Re : Bug bordure interligne

Bonjour ,

Regardes en enlevant le merge, et oui , j'ai l'impression que tu veux séparer des cellules fusionnées et forcémeent , ça marche pas