Comptage d'éléments dans un mshflexgrid

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 906 fois - Téléchargée 38 fois

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

Ajouter un commentaire

Commentaires

Messages postés
125
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
17 juin 2011

Tout en haut de la page y ma tete de Kid Paddle (à gauche en dessous de "détails"), y a marqué une "autre source ici" et ca te mène là:

http://www.vbfrance.com/code.aspx?id=24735

Voila.
Messages postés
26
Date d'inscription
samedi 5 janvier 2002
Statut
Membre
Dernière intervention
29 mai 2009

de quelle source tu parle ????????

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.