IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Compter le nombre de cellules identiques d'une colonne sur un msflexgrid


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau membre du Club
    Inscrit en
    Février 2007
    Messages
    37
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 37
    Points : 34
    Points
    34
    Par défaut Compter le nombre de cellules identiques d'une colonne sur un msflexgrid
    Bonjours,
    je voudrais faire des opérations d'addition sur les colonnes d'un un msflexgrid .pour ce qui est du contenu numérique ça passe bien .

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    'nombre cellule
    Dim kount As Integer 
    Dim X As Integer
    Text5.Text = "0"
    For X = 1 To msfg1.Rows - 1
    msfg1row = X
    msfg1.Col = 0
    If Trim(msfg1.Text) <> "" Then kount = kount + 1
    Text5.Text = kount
    Next X
     
    'ADDITION CONTENU NUMERIQUE 
    Dim som As Long
    Dim i As Integer
    For i = 1 To msfg1.Rows - 1
    som = som + CStr(msfg1.TextMatrix(i, 6))
    Next i
    Text6.Text = som
    mais j'ai un problème sur une colonne qui affiche des donnée texte (une seule lettre :A,B,C)
    comment additionné les A , les B et les C et afficher leurs nombre sur un textbox.
    Merci de votre aide a l'avance.

  2. #2
    Membre à l'essai
    Profil pro
    Étudiant
    Inscrit en
    Avril 2013
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : Avril 2013
    Messages : 21
    Points : 17
    Points
    17
    Par défaut
    si j'ai bien compris !!!!!!!!!!!!!!!!!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    na=0
    nb=0
    nc=0
     
    For i = 1 To msfg1.Rows - 1
    if msfg1.TextMatrix(i, 6)="A" then na=na+1
    if msfg1.TextMatrix(i, 6)="B" then nb=nb+1
    if msfg1.TextMatrix(i, 6)="C" then nc=nc+1
    Next i

  3. #3
    Nouveau membre du Club
    Inscrit en
    Février 2007
    Messages
    37
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 37
    Points : 34
    Points
    34
    Par défaut
    Merci pour votre réponse !! c'est bien la solution ,j'essai de trouver une solution à L'addition de nombres avec virgule sur une colonne msflexgrid .Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Compter le nombre de cellules identiques d'une même colonne VBA
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 27/01/2014, 11h57
  2. [XL-2007] Compter le nombres de cellules différentes d'une colonne en fonction de date
    Par lorin.maxime dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 09/09/2013, 12h31
  3. Compter les cellules identiques d'une colonne
    Par daridoussama dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 29/03/2013, 17h36
  4. Compter les cellules identiques d'une colonne
    Par daridoussama dans le forum Excel
    Réponses: 2
    Dernier message: 29/03/2013, 17h11
  5. [MySQL] Compter le nombre de valeurs identiques dans une colonne d'une table
    Par luca120 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 03/12/2009, 01h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo