Insertion de ligne par macro
Bonjour,
Je suis un nouveau visiteur dans ce forum. Merci aux heureux initiateurs.
Je désire créer un formulaire sur excel pour faciliter la vie de collègues.
Le nombre de ligne est très différent selon les personnes.
J'avais envie de créer une macro sur la dernière ligne avec un bouton "Insertion lignes". Mais lorsque je clique sur le bouton, c'est toujours au dessus de la ligne A53 que la nouvelle ligne s'insère.
Y a-t-il un truc pour que cela soit toujours avant la dernière ligne vide du formulaire que cela s'insère.
Ma macro :
Sub Insertion_ligne()
'
' Insertion_ligne Macro
' Macro enregistrée le 07.05.2008 par Patrice
'
'
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=39
Range("A53").Select
Selection.EntireRow.Insert
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True
End Sub
Merci pour vos réponses
salutations.
J'utilise Excel 2003 FR
Bonsoir,
Normal que ce soit toujours à la ligne 53 puisque dans ton code tu mets :
Range("A53").Select
Selection.EntireRow.InsertA la place de ces deux lignes mets ceci :
Range("A65536").End(xlUp).EntireRow.InsertAmicalement
Dan
merci beaucoup pour ta réponse.