Condition supprimer ligne

Olivdusalin

XLDnaute Nouveau
Bonjour

J ai une macro qui permet de supprimer la dernière ligne d un tableau et j aimerai lui mettre une condition du type a partir de la cellule A10 tu ne peux plus supprimer.

Voici mon code

Sub Suppligne_QuandClic()
Dim vnom As String, vrech As Range, derlign As Long
'nom du tableau
vnom = "Nom"
'recherche du nom dans la colonne A
Set vrech = Columns(1).Find(vnom)
'si je trouve le nom alors
If Not vrech Is Nothing Then
'je récupère le n° de ligne de la fin du tableau correspondant
derlign = Range("A" & vrech.Row).End(xlDown).Row + 1
'Supprimer ligne
Range("A" & derlign).EntireRow.Delete
End If
End Sub

Merci
 

CBernardT

XLDnaute Barbatruc
Bonjour à tous,

essaie cette macro qui ferme la macro si Derlig est supérieur à 10;
Sub Suppligne_QuandClic()
Dim vnom As String, vrech As Range, derlign As Long
'nom du tableau
vnom = "Nom"
'recherche du nom dans la colonne A
Set vrech = Columns(1).Find(vnom)
'si je trouve le nom alors
If Not vrech Is Nothing Then
'je récupère le n° de ligne de la fin du tableau correspondant
derlign = Range("A" & vrech.Row).End(xlDown).Row + 1
'Supprimer ligne
If derlig > 10 Then
Range("A" & derlign).EntireRow.Delete
Else
End Sub
End If
End If
End Sub

Cordialement

Bernard
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088