Suppression

Bonjour à tous,

J'ai un petit problème :
J'ai une listbox MultiSelect et je voudrais supprimer uniquement les lignes sélectionnées mais ça me supprime toute les lignes.

Voici mon code :

Code:

---

1 2 3 4 5 6 7

Dim c As Integer For c = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(c) Then Feuil13.Select Cells.EntireRow.Delete End If Next c

---

Merci d'avance pour votre aide

GREG

Bonjour

C'est normal, car avec

Code:

---

Cells.EntireRow.Delete

---

tu prends toutes les cellules, il faut que tu mettes l'adresse de la cellule.


Starec

PS : Penses à mettre les balises codes.

Salut STAREC,

En fait les lignes à supprimer sont aléatoires, le critère c'est la sélection sur la listbox donc je ne sais pas quoi mettre comme adresse.

Merci

GREG

bonsoir



Tu ne donnes pas assez d'infos pour que l'on puisse t'aider:

Les informations de la Listbox sont issues d'une plage de cellules ?
Dans ce cas tu peux utiliser ta variable c pour effectuer la suppression de ligne

Code:

---

1 2	'Si les données sont stockées à partir de la ligne 1: Worksheets("Feuil3").Rows(c + 1).Delete

---

Ou ce sont des données éparpillées ?
Dans ce cas, crée une deuxième colonne masquée qui contiendra les numéros de lignes correspondant à chaque élément de la ListBox



Quelque soit la solution, il sera préférable de boucler de la dernieres ligne vers la première:

Code:

---

For c = ListBox1.ListCount - 1 To 0 Step -1

---

bon week end
michel

Salut SilkyRoad,

Merci beaucoup pour ta solution ça marche super bien.

@+

GREG