Excel - macro supprimer ligne Résolu/Fermé

Question

Bonjour ! 

J'ai créé une macro qui me permet d'insérer une ligne en conservant formules et dimension des cellulles. 
j'aimerai créer une autre macro qui ferait l'inverse : supprimer la dernière ligne insérée. Or je ne trouve pas le code qui me permet de faire cela... 

Voici mon code pour insérer une nouvelle ligne : 
Private Sub CommandButton1_Click() 
Application.ScreenUpdating = False 
ActiveCell(2).Resize(1).EntireRow.Insert 
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow 
On Error Resume Next 'au cas où il n'y ait pas de constantes 
ActiveCell(2).Resize(1).EntireRow. _ 
SpecialCells(xlConstants).ClearContents 
End Sub 


Merci par avance de votre aide, 

Adrien.  



Configuration: Windows XP / Firefox 4.0.1

Le Pingou · Answer

Bonjour,
La dernière ligne est la 6,  voici le code :
    Rows("6:6").Delete Shift:=xlUp

laduche81 · Answer

Bonjour,
J'ai essayé votre solution, cela ne me supprime que la cellule, pas la ligne.
Merci tout de même de votre aide !

laduche81 · Answer

Oui j'ai fais copier coller de votre code. C'est vrai que votre code précise Row et non pas Cell, donc je ne comprends pas. Je regarde d'où peut venir l'erreur.

laduche81 · Answer

Oui ca me met un message d'erreur, je débogue et le code se modifie en :

Private Sub CommandButton2_Click()
ActiveCell.Delete.EntireRow

End Sub

laduche81 · Answer

Je l'ai fait en premier message, je vous le remets :

Private Sub CommandButton1_Click()


Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents

End Sub

Private Sub CommandButton2_Click()

Rows("6:6").Delete Shift:=xlUp

End Sub

Merci de votre aide

Le Pingou · Answer

Bonjour,
Oui enfin presque, il n'y avait pas la procédure suivante, mais uniquement celle pour insérer une ligne.
Cette procédure est correcte et vous supprime la ligne 6.
Private Sub CommandButton2_Click()

Rows("6:6").Delete Shift:=xlUp

End Sub
Voici une procédure qui supprime la dernière ligne sur la base de valeur au minimum dans la colonne [A] :
Sub supprimerderligne()
Dim deli As Long
' trouver la dernière ligne
deli = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Rows(deli).Delete Shift:=xlUp
End Sub

laduche81 · Answer

Merci infiniment Le pingou,
Mon problème est résolu grâce à vous.

Je vous souhaite une bonne journée !

Adrien

Excel - macro supprimer ligne

7 réponses

Discussions similaires