Discussion :

[greg06500]

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 :

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

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

[Invité]

Bonjour

C'est normal, car avec

Code :

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

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.

[greg06500]

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

[SilkyRoad]

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 :

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

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 :

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

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

bon week end
michel

[greg06500]

Salut SilkyRoad,

Merci beaucoup pour ta solution ça marche super bien.

@+

GREG