Comptage d'éléments dans un mshflexgrid

Commenter

Contenu du snippet

J'ai réalisée cette sub pour les besoins suivants:

MSHFLEXGRID
==========
nom1 1
nom2 1
nom3 2
puis on rajoute dans cette liste des éléments portant les mêmes noms, la liste devient:

MSHFLEXGRID
==========
nom1 1
nom2 1
nom3 2
nom1 4
nom2 5

Ensuite on appelle ma petite fonction en passant le MSHFLEXGRID en parametre et on obtient:

MSHFLEXGRID
==========
nom1 5
nom2 6
nom3 2

C'est tout pourri, dites pas que ça sert à rien parce qu moi j'en ai besoin. Mais vous pouvez dire que c'est pourri quand même.

FAISEZ GAFFE!!!(aux pigeons bourrés) ce code est prévu pour correspondre à un nom (pseudo clé primaire) en première colonne et une valeur en deuxieme. Bien sur vous pouvez ajouter des colones facilement sans vous soucier de quoique ce soit.

Source / Exemple : 


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

Conclusion :


TADAAAAAAAA C'est ma DEUXIEME Source (un peu moins nulle que la première non?)
Je me suis inspiré d'un autre code qui remplissait pas toutes mes attentes:

http://www.vbfrance.com/code.aspx?ID=7647

Et donc je n'oublie pas de citer l'auteur : DiJiTooL

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Egalon)