Discussion :

[John Parker]

Oui en fait j'ai rajouté 2 colonnes mais je ne pense pas que ça influe sur la conservation des bordures. En fait si tu regardes le fichier que j'avais joint lorsqu'on insert une ligne les formules sont conservées ainsi que les bordures en pointillées

[casefayere]

et je voulais savoir s'il était possible de conserver la mise en forme pour les lignes uniquement (qui sont en pointillés) de la ligne précédente?

et

si tu regardes le fichier que j'avais joint lorsqu'on insert une ligne les formules sont conservées ainsi que les bordures en pointillées

Je ne comprends plus

[John Parker]

Le fait est qu'avec ce code ci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub InsererLigneSem1()
 
Dim L As Long, Dc As Integer
L = ActiveCell.Row
 
With ActiveSheet
  .Rows(L).Insert Shift:=xlDown
  .Range("A" & L) = .Range("A" & L - 1)
  .Range("H" & L) = .Range("H" & L - 1)
  .Range("I" & L) = .Range("I" & L - 1)
End With
Application.CutCopyMode = False
 
End Sub

la copie des bordures de la ligne précédente ne se fait plus

[casefayere]

Après essai sur le fichier que tu m'as joins, je n'ai pas eu ce problème, envoies donc une nouvelle copie avec la dernière structure

[John Parker]

En fait j'ai conservé le premier code puisque les autres me copier bien les formules mais sans incrémenter la ligne...