COMPTAGE D'ÉLÉMENTS DANS UN MSHFLEXGRID

Public Sub SupDoublesGRID(lst As MSHFlexGrid) ' un truc qui peut toujours servir

    Dim iPos As Integer
    Dim i As Integer
    Dim temp As Integer
    Dim texte As String
    Dim valeur As Integer
    
    
    With lst
    iPos = 0
   While (iPos < .Rows)
        texte = .TextMatrix(iPos, 0)
        valeur = CInt(.TextMatrix(iPos, 1))
        i = iPos + 1
       While (i < .Rows)
            If texte = .TextMatrix(i, 0) Then
                
                temp = CInt(.TextMatrix(i, 1))
                valeur = valeur + temp
                .RemoveItem (i)
            End If
            i = i + 1
        Wend
        
        .TextMatrix(iPos, 1) = valeur
        iPos = iPos + 1
    Wend
    End With
    
  
    
End Sub

06 août 2004 15:13:14 :

J'ai juste changé le commentaire.

21 janvier 2006 18:26:49 :

Ajout de mot-clés pour la recherche textuelle.