Discussion :

[Invité]

Bonjour,

Je dois rajouter des lignes avec la meme mise en forme que la ligne du dessus ( 2 lignes fusionnées )
J'ai trouvé ce code qui fonctionne mais sur une seul ligne ( il prend qu'une seul ligne à la place des 2 lignes fusionnées)

Code :

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

1
2
3
4
5
6
7
'faire une nouvelle ligne 
ActiveCell.EntireRow.Insert Shift:=xlDown 
'copier la ligne du dessus 
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1) 
On Error Resume Next 
'effacer le contenu de la nouvelle ligne mais garder la forme 
ActiveCell.EntireRow.ClearContents

J'ai essayé de jouer un peu avec les indices mais j'ai pas arrivé ( expl : Offset(-2 .. ) )

Merci

[Mr.Mof]

Bonjour,

Un autre post traite ce sujet, peut être qu'il répond à ta question:

http://www.developpez.net/forums/d67...-complete-vba/

Cordialement.