Problème de suppression

[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 :

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

 

[yadla]

Re : Problème de suppression

Bonjour Greg06500,

Cells.EntireRow.Delete

Le Cells. veut dire toutes les cellules.

Indique quelle cellule et sa ligne (seulement) sera supprimée.

Dis moi si ca marche, j'ai pas essayé le code.

Bonne journée

 

[greg06500]

Re : Problème de suppression

Salut Yadla,

En fait les lignes à supprimer sont aléatoires, le critère c'est la sélection sur la listbox.

Merci

GREG