Supprimé plusieurs ligne?

Bonjour,

j'aimerai savoir comment supprimé plusieurs ligne dans ma liste de ma feuille excel?

voici mon code qui me permet d'effacé une seule ligne

Code:

---

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

Private Sub delete_click()   Dim NumLigne As Integer   If Nligne.Value = "" Then MsgBox "Vous n'avez pas saisie le numéro de la ligne à supprimer" Nligne.Value = "0" Exit Sub End If   NumLigne = Nligne.Value ActiveSheet.Listobjects("Liste1").ListRows(NumLigne - 1).Delete 'suppression de la ligne saisi Nligne.Value = "" End Sub

---

je souhaiterai saisir mes lignes à supprimé de la même façon, sauf que si il y a par exemple 3 lignes à supprimé, et bien je saisi dans mon Textbox(Nligne)

64;68;89

en fait pour les différencier, on y ajouterai un ;

si quelqu'un peut m'aider:cry:

Je vais peut etre répondre à coté mais ca me parait bien compliqué poiur supprimer quelques lignes alors que l'utilisateur peut le faire simplement à partir d'un racourci clavier.

Autre possibilité, tu laisse une case libre sur cette ligne que l'utilisateur pour selectionner en y mettant un "X" par exemple (Colonne intitulée "Supprimer") comme c'est le cas dans de nombreuses applications comme les mails par exemple.

Un boutons appelé Mise à Jour ou Suppression fera un test sur cette cellule et supprimera les lignes des cellules ou la case est non vide.

C'est ce que je ferais!

j'ai compris ce que ta dis, mais c'est pas vraiment ça que je recherche...;)

et t-il possible dans un textBox de lui donné plusieur information à traité?

celle-ci serai séparé par un ";" en gros

Bonjour skorpio

Code:

---

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

dim tablo(0 to 100) as long If Nligne.Value = "" Then MsgBox "Vous n'avez pas saisie le numéro de la ligne à supprimer" Nligne.Value = "0" Exit Sub End If if instr(nligne.value,";")>0 then tablo = split(Nligne.value;";") for i = 0 to 100 if tablo (i) = 0 then exit for ActiveSheet.Listobjects("Liste1").ListRows(tablo(i) - 1).Delete next i else ActiveSheet.Listobjects("Liste1").ListRows(cint(NLigne.value) - 1).Delete end if

---

essaye cela, et dis nous

il y a une erreur de compilation:cry:

impossible d'affecter à un tableau.

et ça me selection

Code:

---

tablo = split....

---

c'est bizar car ton code à l'air correct, j'comprend pas pourquoi ça plante:cry:

A mon avis il faut convertir les données du split en long. (par défaut ca retourne du string)

Petite erreur je crois.Dans le split le ; est a ermplacer par une virgule

Code:

---

1 2	tablo = split(Nligne.value , ";") au lieu de tablo = split(Nligne.value;";")

---

Bonjour.

Il ne faut pas donner de taille à TABLO.

Code:

---

1 2 3

dim tablo tablo=split(...)

---

et il faut remplacer le ; par ,

Code:

---

tablo = split(nligne.value,";")

---

Pour effacer les lignes d'une feuille excel, il faut commencer par le bas du tableau, sinon, comme la position des lignes change après une suppression de lignes, ce ne seront pas les bonnes lignes qui seront supprimées.
Ex: Suppression des lignes 1;4;9
Je supprime la 1, la 4 devient la 3, la 5 devient la 4 et la 9 devient la 8. Donc, si je supprime la 4 après avoir supprimé la 1, je supprime en fait la ligne qui était la 5 lorsque j'ai renseigné mes lignes, et la 9 initiale, devenue la 8 après la suppression de la 1, devient la 7, et donc, lorsque je supprime la 9, je supprime en fait la 11 initiale.

Donc, toujours supprimer les lignes en commençant pas le bas, et les colonnes en commençant par la droite.

Ok?

je comprend pas, moi ça ne marche pas :cry:
vous ça marche?:?

ça me dit que c'est impossible d'affecter à un tableau???

C'est parce que tu n'as pas lu mon précédent message. Tu ne dois pas donner de dimensions à ton tableau
Remplace

Code:

---

dim Tablo(1 to 100)

---

par

Code:

---

dim Tablo

---

Voici un code qui fait ce que tu souhaites (du moins, je pense...)

Code:

---

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

Sub SupprimerLignes() Dim Lignes As String Dim Tableau Dim i As Integer   Lignes = InputBox("Saisissez les numéros de ligne à supprimer dans l'ordre croissant et en les séparant par un point-virgule", "Suppression de lignes") If Lignes = "" Then Exit Sub   Tableau = Split(Lignes, ";") For i = UBound(Tableau) To 0 Step -1 If IsNumeric(Tableau(i)) Then Rows(Tableau(i)).EntireRow.Delete Next i End Sub

---

Il faut aussi tenir compte sur ma remarque concernant le fait que tu dois commencer à supprimer par le bas pour éviter de supprimer des lignes qui doivent être conservées.
Mon code fonctionne correctement à partir du moment où l'on a encodé les lignes dans l'ordre croissant.

Ok?

il obligatoire d'avoir un tableau?

Split(...) renvoie un tableau, il est donc préférable d'utiliser un tableau. Mais si tu ne le dimensionnes pas, cela ne pose pas de problème de l'utiliser avec Split...

Le code que j'ai fourni ne te convient pas?

si si c'est absolument parfait c'est ce que je coulais:yaisse2:

je te remerci 1000fois:king:

en fait il y a encore un problème:cry:

car en fait comme j'ai expliqué au début toute mes données sont dans une liste

ActiveSheet.Listobject("Liste1")....

et c'est ces lignes à l'interieur que je veux supprimé...

or ton code tu te sers de Rows(Tableau(i)).EntireRow.Delete

pour supprimé

mais moi ça les supprimes correctement que lorsqu'à droite de ma liste il y a du vide, je sais pas je suis clair,

en fait j'ai un liste A et à sa droite il y a une liste B plus petite

je supprime des donnes dans la A, mé lorsque je supprime une ligne qui se situe dans la même longueur de l'autre c'est mort, ça marche

je sais vraiment pas si j'ai été clair:cry:

le message d'error est: La méthode Delete de la classe Range a échoué.

Si j'ai bien compris, tu veux supprimer uniquement la cellule, et pas toute la ligne

En regardant le code que je t'ai donné, tu peux t'apercevoir que la ligne qui supprime utilise EntireRow. Il te suffit donc d'adapter cette ligne pour ne supprimer que la cellule, en utilisant le déplacement adéquat (vers le haut, dans ton cas...)
Dès lors, dans la boucle for i = ubound(...), remplace la ligne de code par celle-ci

Code:

---

If IsNumeric(Tableau(i)) Then Range("a" & Tableau(i)).Delete shift:=xlUp

---

Tu dois évidemment adapter à ton cas, par exemple si tu souhaite supprimer les données dans une autre colonne que A...


Ok?

non ce n'est pas qu'une cellule, c'est la ligne entière "dans la liste" pas en dehors


ton code d'avant il marché bien mais quand à droite de ma liste il y a une autre liste ça foire

Désolé, je ne comprends pas ton problème

ça y est je sais comment m'expliquer, enfin je pense:D


en fait cette suppression n'est pas très approprié pour mon problème.

je vous explique depuis le début:

j'ai une liste, mais c'est une liste qui est créer grace à Données/Liste/Créer une liste (jusqu'ici tout va bien)

à l'intérieur de cette liste qui est constitué de 15 colonnes sont situé des donnes...

et c'est la qui vous etes aparu, c'est que j'arrive à bien delete les lignes que je désire, MAIS à droite de ma liste, donc sur ma feuille excel j'ai d'autre données que je ne veux pas delete, mé vu qu'elles sont dans la même, elles sont malheureusement effacer...

il faut que le delete s'applique que dans ma liste... please:cry:

en gros le delete de ma ligne se ferai grâce à quelque chose comme ça

Code:

---

ActiveSheet.Listobjects("Liste1").ListRows(NumLigne).Delete

---

Imaginons que ta liste va de A à H, tu utilises la ligne

Code:

---

1 2	If IsNumeric(Tableau(i)) Then Range("a" & Tableau(i) & ":h" & tableau(i)).Delete shift:=xlUp

---

dans la boucle que je t'ai donnée précédemment. A toi d'adapter au sein du code pour supprimer les cellules uniquement dans les colonnes de ta "liste" ("table" serait plus approprié).

Cela étant dit, j'essaie toujours de ne pas mettre des données à droite d'une table, car c'est beaucoup plus délicat à gérer.

Il y a souvent moyen d'utiliser d'autres onglets, en considérant qu'un onglet (une feuille) ne contient qu'une table.

Tu testes et tu dis ce qu'il en est?