Supprimer ligne tableau sans supprimer la première

Bonjour à tous,

J'aimerais supprimer les lignes d'un tableau une par une avec un bouton, seulement je veux m’arrêter à la première pour pouvoir en créer d'autres plus tard sur le modèle de la première.

Voici ce que j'ai mais il y a une erreur :

Sub supp_rows()
Dim vnom As String, vrech As Range, derlign As Long
vnom = "Nombre de licences par Services"
Set vrech = Columns(1).Find(vnom)
If Not vrech Is Nothing Then
 derlign = Range("A" & vrech.Row).End(xlDown).Row

    If derlign = vnom(1, 0) Then
    MsgBox "Vous ne pouvez pas supprimer la première ligne !" & Chr(10) & Chr(13) _
    & "Aucune nouvelle ligne n'a été ajoutée."
    Exit Sub
    End If
Range("A" & derlign).EntireRow.Delete
End If
End Sub

D'avance merci pour votre aide.

Bonsoir et bienvenu(e),

Merci de joindre un fichier à ta demande de façon à voir la structure de tes données?

En première lecture, Il y a un souci avec l'utilisation de ta variable vnom.

Cdlt.

Bonjour,

Voici le fichier.

J'ai une autre demande sur ce même fichier, la somme en K4 ne se fait pas en ajoutant dans lignes ?

Si vous avez une minute pour regarder cela.

Merci beaucoup.

Bonjour,

Il faut que tu apprennes à structurer tes données.

Consulte ce lien :

http://optim18.rcac.fr/TablesExcel_13ReglesOr.pdf

Tu crées un tableau avec les indications du lien. Tout sera plus facile pour la suite.

Et tu nous renvoies un nouveau fichier.

Ton fichier comporte aussi des liens vers un autre classeur. Est ce utile?

A te relire.

Rechercher des sujets similaires à "supprimer ligne tableau premiere"