micie1509
XLDnaute Junior
Bonjour,
Je veux d'abord vous remercier d'avoir pris le temps de me lire.
J'ai un petit problème, voici: je veux insérer une ligne en dessous de la cellule où mon curseur est situé.
Si je clique en B22 et que j'insère une ligne, il m'insère une ligne en dessous de B22 et ce parfaitement. Par contre la ligne 21 est effacée et toutes mes formules ont disparues. Si j'insère plusieurs lignes, les nouvelles lignes sont parfaites, mais de temps en temps, une ligne de plus est effacée. Je ne comprends pas pourquoi. Qu'est-ce que j'ai fait de travers (ou que je n'ai pas fait et que j'aurais dû faire ) ?
Un gros merci d'avance pour l'aide que vous pourriez m'apporter.
Bonne soirée!
Micie
Sub InsererLigne()
'
' Insérer 1 ligne
'
ActiveSheet.Unprotect
With ActiveCell
Rows(.Row - 1 & ":" & .Row - 1).Insert xlDown
Rows("1").Copy Rows(.Row - 1)
Selection.EntireRow.Hidden = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Je veux d'abord vous remercier d'avoir pris le temps de me lire.
J'ai un petit problème, voici: je veux insérer une ligne en dessous de la cellule où mon curseur est situé.
Si je clique en B22 et que j'insère une ligne, il m'insère une ligne en dessous de B22 et ce parfaitement. Par contre la ligne 21 est effacée et toutes mes formules ont disparues. Si j'insère plusieurs lignes, les nouvelles lignes sont parfaites, mais de temps en temps, une ligne de plus est effacée. Je ne comprends pas pourquoi. Qu'est-ce que j'ai fait de travers (ou que je n'ai pas fait et que j'aurais dû faire ) ?
Un gros merci d'avance pour l'aide que vous pourriez m'apporter.
Bonne soirée!
Micie
Sub InsererLigne()
'
' Insérer 1 ligne
'
ActiveSheet.Unprotect
With ActiveCell
Rows(.Row - 1 & ":" & .Row - 1).Insert xlDown
Rows("1").Copy Rows(.Row - 1)
Selection.EntireRow.Hidden = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub