Discussion :

[Invité]

Bonjour,

Je viens vers vous parce que j'ai une erreur (je pense de débutant mais je ne vois pas ou est l'erreur)

Code :

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

1
2
3
4
5
With Worksheets("Suivi PA").Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 15)).Borders(x1EdgeBottom)
            .LineStyle = xlContinuous
             .Weight = xlThin
            .ColorIndex = 3
            End With

[Invité]

L'idée étant d'inserer une ligne avec toutes les bordure De C3, (qui est séléctionné) jusqu'a la fin

[patricktoulon]

re
bonjour
que vient faire activecell dans un with worksheets("xxxx") ?????????????
soit tu es sur le sheets actif soit tu ne l'est pas
sur sheets actif

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    With ActiveCell.Offset(1, 0).Resize(1, 15)
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 3
        End With
    End With
End Sub

si tu n'est pas sur le sheets actif activecell te donne celle du sheets actif et non celle du with

de mémoire il me semble pas que activecell soit un membre de worksheets