Flexgrid MultiSelection et récupération de donnée

  Private tablo() As Integer

  redim tablo(0)

  Call Surligner_Multiple_Ligne(MSFlexGrid1, tablo)

Public Sub Surligner_Multiple_Ligne(flex As MSFlexGrid, lignes() As Integer, _
                                    Optional CouleurDflt As Variant = &H80000005, _
                                    Optional Couleur As Variant = vbGreen)
  Dim i As Integer
  Dim j As Integer
  Dim RowSelect As Integer

  With flex
    RowSelect = .RowSel
    Call update_ligne_select(flex, lignes, CouleurDflt, Couleur)

    Dim max As Integer
    max = UBound(lignes) - 1

    For i = 0 To max       'Traite chaque ligne
      If lignes(i) <> -1 Then
        .Row = lignes(i)
        For j = 0 To .Cols - 1       'Mise en couleur de la selection
          .Col = j
          .CellBackColor = Couleur
        Next j
      End If
    Next i

    If .Rows <> 0 Then .RowSel = RowSelect
  End With
End Sub

Public Sub update_ligne_select(flex As MSFlexGrid, lignes() As Integer, _
                               Optional Couleur As Variant = &H80000005, _
                               Optional CouleurSelect As Variant = vbGreen)
  Dim j As Integer
  Dim i As Integer
  Dim max As Integer
  Dim RowSelect As Integer

  Dim found As Boolean
  With flex
    RowSelect = .RowSel
    .Col = 0
    max = UBound(lignes)
    For i = 0 To max
      If lignes(i) = .RowSel Then
        found = True
        .Row = lignes(i)
        If .CellBackColor = CouleurSelect Then
          For j = 0 To .Cols - 1
            .Col = j
            .CellBackColor = Couleur
          Next j
          lignes(i) = -1
        End If
      End If
    Next i
   
    ' Ajouter dans le tablo des selected
    If Not found Then
      If max = 0 Then
        ReDim lignes(0 To max + 1)
      Else
        ReDim Preserve lignes(0 To max + 1)
      End If
      lignes(max) = .RowSel
    End If

    If .Rows <> 0 Then .RowSel = RowSelect
  End With
End Sub