Supprimer une ligne

[Luigi]

Bonjour à tous. J’ai une macro qui supprime la dernière ligne d’un tableau en fonction de la taille du tableau, elle fonctionne bien. Mais je voudrais que la suppression soit impossible si la dernière ligne du tableau est la première et qu'une msgbox apparaisse. La première ligne de mon tableau commence à la ligne 13 du fichier Excel.
Ci-dessous ma macro, mais elle ne fonctionne pas. Quelqu’un pourrait-il m’orienté vers la solution.

Sub SupLigneIII()
'

Dim Derligne As Long

Range("B13").Select
Selection.End(xlDown).Select
Derligne = ActiveCell.Row

If Range("B" & Derligne).Value = Rows("13:13") Then
MsgBox "Impossible de supprimer la ligne", vbExclamation, "Supprimer ligne"
Else
Range("B" & Derligne).Select
Selection.EntireRow.Delete
Range("B7").Select

End If
End Sub

Merci

 

[Lord Nelson]

Re : Supprimer une ligne

Salut,

Voici qui devrait te convenir :

Sub SupLigneIII()
Dim Derligne As Long
Derligne = Range("B65536").End(xlUp).Row

If Derligne <= 13 Then
  MsgBox "Impossible de supprimer la ligne", vbExclamation, "Supprimer ligne"
Else
  Range("B" & Derligne).Select
  Selection.EntireRow.Delete
  Range("B7").Select

End If
End Sub

A+
Horatio

 

[Luigi]

Re : Supprimer une ligne

Merci Lord Nelson, ça marche d'enfer

 

[kjin]

Re : Supprimer une ligne

Bonsoir,
A noter que, si je peux me permettre, la sélection de la ligne avant suppression est inutile

  Range("B" & Derligne).EntireRow.Delete
  Range("B7").Select

A+
kjin

 

[Lord Nelson]

Re : Supprimer une ligne

Salut Kjin,

D'accord avec toi, la sélection de la ligne à supprimer n'est pas nécessaire. Elle devait correspondre au vestige d'une macro enregistrée...

A+
Horatio

 

[Luigi]

Re : Supprimer une ligne

Merci Kjin, cette info me permet d'améliorer mes macros c'est parfait.

A+