Discussion :

[skorpio]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[COCONUT2]

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!

[skorpio]

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

[wilfried_42]

Bonjour skorpio

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skorpio]

il y a une erreur de compilation

impossible d'affecter à un tableau.

et ça me selection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tablo = split....

[skorpio]

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

[jfontaine]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

Bonjour.

Il ne faut pas donner de taille à TABLO.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dim tablo
tablo=split(...)

et il faut remplacer le ; par ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[skorpio]

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

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