supprimer ligne avec macro textbox

bonjour j'ai une macro qui demande (dans des textbox) le numéro de la premiere ligne à supprimer et le nombre de ligne à supprimer

pour programmer la suppression, j'ai écrit ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub BoutonOK_Click()   c = numeroligne.Value n = nombreligne.Value   For i = c To c + n Selection.Rows(i).EntireRow.Delete Next i   End Sub

---

je sais qu'il faut la modifier mais je n'arrive pas à savoir comment.

Merci d'avance

Bonjour,

La boucle For...Next n'est pas vraiment nécessaire, tu peux essayer comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub BoutonOK_Click() Dim PremLigne As Integer, DerLigne As Integer   PremLigne = numeroligne.Value DerLigne = numeroligne.Value + nombreligne.Value -1   Rows(PremLigne & ":" & DerLigne).Delete   End Sub

---

j'ai essayé ton programme et il me supprime toutes le slignes deja ecrites.
c'est pas tout a fait l'effet recherche (lol).

as-tu une autre solution ?

merci

Je ne comprend pas ? Tu demandes de supprimer de la ligne x à la ligne y, il n'est pas question dans ton code de vérifier si les lignes comportent quelque chose ou non !

Peux-tu être un peu plus explicite ?

le programme que tu m'as ecrit efface tout.
Pourtant ton programme me parait juste.

je lui ai demandé de m'effacer de la ligne 11 à 15 (j'ai entre 11 et 4 dans mes textbox) et je n'ai plus de tableau en dessous de la ligne 10 un fois que le programme a ete execute.

j'ai reussi a contourner le probleme!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub BoutonSuppression_Click()   Dim PremLigne As Integer Dim DerLigne As Integer Dim c As Integer Dim n As Integer c = numeroligne.Value n = nombreligne.Value   PremLigne = c DerLigne = c + n - 1   Rows(PremLigne & ":" & DerLigne).Delete Unload UserForm9   End Sub

---

merci beaucoup pour ton aide
ca m'a mis sur la bonne voie

Etrange, le code est pourtant correcte, là comme ça je ne vois pas d'où vient le problème, essaye le petit bout de code ci-dessous avec simplement 2 InputBox.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim PremLigne As Integer, DerLigne As Integer, NbLigne As Integer   PremLigne = InputBox("A partir de quelle ligne ?") NbLigne = InputBox("Combien de lignes ?") DerLigne = PremLigne + NbLigne - 1   Rows(PremLigne & ":" & DerLigne).Delete   End Sub

---

Bonjour,

J'espère que tu ne t'es pas obstiné à utiliser une boucle, en commençant par la premère ligne (car dans ce cas, en effet, tout serait effacé après la 10ème ligne...:lol:)
Si tu fais une boucle, il faut commencer par la dernière ligne à effacer et continuer à effacer en remontant vers la premère ...

non je ne me suis pas obstinée (lol).

Et puis mon code me va bien (meme si c'est de la bidouille)

Merci pour votre aide

bonne journee