Discussion :

[hugoclo]

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 le

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

Le problème c'est qu'avec ce code il ne m'efface qu'une seule ligne

[ucfoutu]

Bonjour,

1) je ne vois pas où tu te sers de a dans ta boucle utilisant a !!!!
2) n'oublie pas que lorsque l'on supprime, il faut commencer par le bas et remonter (step -1) si l'on ne veut pas se faire de croche-pieds...

[hugoclo]

Merci,
effectivement ma boucle avec "a" ne me servait à rien.
J'ai corrigé le code suite à tes infos mais il ne m'efface toujours que la derniére ligne sélectionnée.

Code :

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

1
2
3
4
5
6
7
Dim j As Integer
For j = LstProduit.Rows To LstProduit.FixedRows Step -1
    If LstProduit.CellPicture = ImgValid.Picture Then
            j = LstProduit.Row
            LstProduit.RemoveItem (j)
    End If
Next j

[zazaraignée]

J'ai testé ceci qui fonctionne bien...

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdSupprimer_Click()
    Dim i As Integer
    With MSFlexGrid1
        For i = .RowSel To .Row Step -1
            .RemoveItem i
        Next i
    End With
End Sub

RowSel retourne la dernière ligne du bloc sélectionné alors que Row retourne la première.