Discussion :

[RosseAcevedo]

Bonjour,

J'ai besoin d’insérer une ligne au milieu d'un tableau et la formatter selon une autre ligne dehors du tableau.

J'ai fait ça:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Plus()
 
ActiveSheet.Unprotect
On Error Resume Next
Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(1).copy Destination:=Rows(ActiveCell.Row)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
 
End Sub

Mais ça ne marche pas.
Comment faire?
Merci.
Rose

[Menhir]

Commence par supprimer On Error Resume Next qui ne sert qu'à brouiller le jeu.

Code :

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

1
2
Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(1).copy Destination:=Rows(ActiveCell.Row)

Si tu veux insérer une cellule copiée, il faut faire la copie (sans destination) avant l'insertion.