1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Tri et cumul

Signaler
Messages postés
11
Date d'inscription
jeudi 19 juin 2008
Statut
Membre
Dernière intervention
19 septembre 2009
 -
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
 -
Bonjour g recuperer les tirage de l'euromillion pour m'amuser je voudrais faire un tri. Jusque la rien de compliquer par contre en suite c pour compter combien de fois chaque numero est sortie.
G commencer comme ca:
Je lis les chiffre sur 250ligne et 8 colonne puis je les compare a un autre compteur de 1 a 50.
ca marche.Mais je veut cumuler dans des cellules le nombres apparitions de chaque nombres.
Si qq un a une idée merci de m'indiquer une solution.
Bon week end a tous.
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
 41
salut,

utilise simplement un tableau de 1 à 50 que tu incrémentes.
tu as tes 50 compteurs, avec pour index la valeur du nombre sorti

ps : euromillion & co, le site de la FDJ met déjà en place les statistiques en ligne (avec date etc)...
++


Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp 
Réponse 2 / 2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
 1
Bonjour ,
Voici un exemple de j'ai écrit:

'Comptabilise les cumuls de tous les n° du milionnaires
'(1 a 50)
Dim Cellule As Range
Dim i As Integer
Dim n As Integer
'Les 50 numeros du millionnaires
For n = 1 To 50
      i = 0
 'Parcours toutes les cellules du tableau
 For Each Cellule In Feuil1.Range("A1:C11")
    If Trim(Cellule.Value) = n Then
      i = i + 1
    End If
      'mettre le total de chaque cumul dans la colonne 10
      If i <> 0 Then
      'fait le cumul dans la cellule
       Feuil1.Cells(n, 10).Value = i
      ElseIf i = 0 Then
      'Indique 0 si pas de numero
       Feuil1.Cells(n, 10).Value = 0
      End If
  Next
 Next

A adapter à ton code
A+
Répondre Posez votre question