degood68
Messages postés4Date d'inscriptionmercredi 16 février 2011StatutMembreDernière intervention22 février 2011
-
22 févr. 2011 à 10:25
marion8316
Messages postés75Date d'inscriptionmercredi 17 août 2011StatutMembreDernière intervention27 septembre 2011
-
23 févr. 2011 à 17:51
Bonjour,
J'ai une nouvelle demande, en espèrant que celle-ci soit faisable. Je vous prie de trouver ci-joint un petit fichier simple en exemple. J'ai rentré 3 séries de lignes, et le but est que la dernière fasse la synthèse des 3 en mettant dans la première case le chiffre qui revient le plus souvent en premier, puis en second, etc...
marion8316
Messages postés75Date d'inscriptionmercredi 17 août 2011StatutMembreDernière intervention27 septembre 20111 23 févr. 2011 à 17:51
Bonjour,
Ci-dessous le code qui est en relation avec votre fichier Excel (Version 2007).
Le code VBA ci-dessous est du code VBA pour Excel 2003.
Principe :
- Récupération des nombres de la feuille 1
- Cumul des valeurs dans un tableau
- Tri
- Alimentation de la dernière ligne (Entre les parenthèses nombre de fois que le numéro est dans les séries).
Didier
Public Sub Regroupement()
'On recupére les données dans un tableau
'
'Première série
'4 9 15 1 6 12 8 3
'Deuxième série
'1 3 9 8 4 17 15 14
'Troisième série
'2 9 6 8 12 15 7 1
Dim Wtableau(23) As Integer, K25 As Integer
Dim I As Integer, j As Integer
Dim Wtableau_bis(23) As Integer
Dim Wtableau_ter(23) As Integer
rwindex = 3
colindex = 2
K25 = 0
For I = 1 To 3
For j = 1 To 8
Wtableau(K25) = Application.Worksheets("Feuil1").Cells(rwindex, colindex).Value
colindex = colindex + 1
K25 = K25 + 1
Next j