Bonjour,
J'ai un flexgrid dans lequel je peux selectionné des lignes.
J'ai créé un bouton sup et lorsque je clique dessus je souhaiterai effacer les lignes selectionnées.
voici leLe problème c'est qu'avec ce code il ne m'efface qu'une seule ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim a As Integer Dim j As Integer For a = LstProduit.Row To LstProduit.Rows If LstProduit.CellPicture = ImgValid.Picture Then j = LstProduit.RowSel LstProduit.RemoveItem (j) End If Next a
Partager