Macro pour supprimer ligne

[libellule85]

Bonjour le forum,
Actuellement j'utilise pour insérer une ligne la macro suivante avec une plage définie
Code feuille :

Private Sub CommandButton1_Click()
Call Ligne_insérer
End Sub

Code Module :

Sub Ligne_insérer()

Dim INSERER As Range '
Dim PlageFormules As Range

Set DerLi = Range("INSERER")
DerLi.Insert Shift:=xlDown
Set PlageFormules = Range(DerLi.Cells(DerLi.Cells.Count).Offset(-2, -1), DerLi.Cells(DerLi.Cells.Count).Offset(-2, 0))
PlageFormules.AutoFill Destination:=PlageFormules.Resize(2, 2), Type:=xlFillDefault

End Sub

Ce code fonctionne à merveille.
Par contre je n'arrive pas à modifier ce code (cause : pas assez de connaissance en vba !!!) pour qu'il supprime la ligne en utilisant la plage définie.
Merci pour votre aide

 

[Robert]

Re : Macro pour supprimer ligne

Bonjour Libellule, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :

Sub Macro1()
Range("INSERER").Delete shift:=xlShiftUp
End Sub

 

[libellule85]

Re : Macro pour supprimer ligne

Bonjour Robert,
Tout d'abord merci pour ta réponse, mais cela ne marche qu'une fois ensuite cela me met "Erreur d'exécution '1004' la méthode 'Range' de l'objet_Global' a échoué et quand je fais débogage il me met



Or, ce que j'aimerais c'est comme pour insérer mettre dans la définition du nom les cellules à supprimer et pouvoir cliquer pour supprimer sans avoir à sélectionner les cellules.

 

[Robert]

Re : Macro pour supprimer ligne

Bonjour Libellule, bonjour le forum,

Toujours pas sûr d'avoir compris... Regarde ton fichier modifié en pièce jointe.

Sub Ligne_supprimer()
If Range("INSERER").Row > 2 Then
    Range("INSERER").Offset(-1, 0).Delete shift:=xlShiftUp
End If
End Sub

 

[libellule85]

Re : Macro pour supprimer ligne

Re Robert,
Super ! c'est exactement ce que je voulais.
Encore merci beaucoup d'avoir pris du temps pour m'aider c'est vraiment sympa
Bonne journée

 

[Kiseki]

Re : Macro pour supprimer ligne

(les messages file trop vite pour moi)

L'enregistrement de macro donne :

    Range("D7:D14").Select
    Selection.ClearContents

Donc non "delete" mais "clearcontents" :

    Range("INSERER").ClearContents

Si c'est la ligne, fait de même pour obtenir le code et ensuite l'adapter.

 

[libellule85]

Re : Macro pour supprimer ligne

Bonjour Kiseki,
Je te remercie beaucoup pour ta réponse
Bonne journée