begin process at 2012 02 12 05:04:56
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

 > COMPTAGE D'ÉLÉMENTS DANS UN MSHFLEXGRID

COMPTAGE D'ÉLÉMENTS DANS UN MSHFLEXGRID


 Information sur la source

Note :
Aucune note
Catégorie :Trucs & Astuces Classé sous :compter, msflexgrid, regrouper, donnée, élément Niveau :Débutant Date de création :06/08/2004 Date de mise à jour :21/01/2006 18:26:49 Vu :3 887
Auteur : Egalon

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

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

  • 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
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

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


 Historique

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.

 Sources du même auteur

Source avec Zip Source avec une capture CONVERSION D'UN STRING EN DATE SOUS UN FORMAT DONNÉ
Source avec Zip CALCUL DU DÉCALAGE HEURE ÉTÉ /HIVER EN FONCTION D'UNE DATE
Toutes les sources de Egalon

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) DES EXCEL VERS SQL 05 par nsegi
Source avec Zip MINITABLEUR EXCEL AVEC FLEXGRID par lezj
Source avec Zip PROGRAMME DE COMPTABILITÉ JOURNALIÈRE POUR LES MÉDECINS GÉNÉ... par nono78220
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTRÔLE TREEXML par simo5963
Source avec Zip BASE DE DONNÉES AVEC UN FICHIER À ACCÉS DIRECT par khedidija

Commentaires et avis

Commentaire de univers le 09/08/2004 10:22:50

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

Commentaire de Egalon le 09/08/2004 16:04:34

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.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Compter les enregistrement d'une base de donnée [ par Nargzul ] Bonjour, j'ai une base de donnée, liée avec DAO, et pis je fais un select(en sql), et après je voudrais compter combien il y a d'enregistrement la ded Initialiser un MSFLEXGRID [ par Starec ] Bonjour,Je remplis un MSFlexGrid &#224; partir d'un choix dans une liste d&#233;roulante, jusque l&#224; tout va bien, si je res&#233;lectionne une au Base de donnée et vérification de l'existant [ par AlexDesroch ] Bonjour à tous,je me demande simplement comment faire pour vérifier si un élément est existant dans une colonne spécifique d'une table de base de donn msflexgrid et access [ par faraday ] j' ai une base de donnée access avec deux champ nom et prenom j'aimerais afficher dans la 3iéme colone de mon msflexgrid le prenom de tout les perso Crystal repport et base de donnée [ par vincegod80 ] Bonjour,pour .NetVoilà je voudrai utiliser le meme modele crystal repport (CrystalGraphe.rpt) mais qu'il soit alimenter par 2 bases différentes (acce cacher / masquer une base de donnée .mdb / mdb Urgent !! [ par skyzofrenzz ] Bonjour,Voila mon programme est terminer mais losque je le compile en .exe j'ai besoin d'avoir mon .mdb pour que cela fonctionne.Je cherche une solut Compter le nombre de caractère [ par ludovicanceaux ] Salut à tous, En fait j'ai une phrase avec par exemple 6 virgulescomment je pe faire pour compter le nombre de virgule de ma phraseATTENTION C'EST EN changer source donnée graphique dans etat access 2000 [ par freddyracin ] Peut on changer en code la source de donnée d'un graphique situé sur un état, j'ai essayé la méthode rowsource mais j'ai l'erreur 2455 qui apparait.me faire un rowsource sur une listbox avec une ligne uniquement [ par sonexopteor ] Bonjour, Je suis assez debutant en prog.J'essais simplement de faire un rowsource sur ma list box sous vba sous excel pour initialisé la liste de vale 2 questions pour vous [ par ticul007 ] 1ièreil faut que je transfert les donnée de excel vers un formulaire vbcomment faire?je travaille sous excel 2000 et vb 6l'autre question estcomment f


Nos sponsors


Sondage...

Comparez les prix


Samsung LE26B350 LCD
Entre 359€ et 417€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Renewable Energy is Within Reach
Photo Framed Landscape Image of Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,950 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)