Tri et cumul
detbour
Messages postés
11
Date d'inscription
jeudi 19 juin 2008
Statut
Membre
Dernière intervention
19 septembre 2009
-
28 nov. 2008 à 23:19
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 29 nov. 2008 à 12:58
dedenet2 Messages postés 372 Date d'inscription vendredi 27 juillet 2007 Statut Membre Dernière intervention 22 juillet 2013 - 29 nov. 2008 à 12:58
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
29 nov. 2008 à 00:10
29 nov. 2008 à 00:10
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
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
dedenet2
Messages postés
372
Date d'inscription
vendredi 27 juillet 2007
Statut
Membre
Dernière intervention
22 juillet 2013
2
29 nov. 2008 à 12:58
29 nov. 2008 à 12:58
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+
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+
