problème de résultat macro vba

22/10/2019	1261	2	5	32	33	47
25/10/2019	1262	34	37	39	40	50
29/10/2019	1263	16	18	28	42	49
01/11/2019	1264	2	20	39	44	48
05/11/2019	1265	9	14	25	33	48
08/11/2019	1266	8	17	20	23	45
12/11/2019	1267	1	21	23	25	39
15/11/2019	1268	3	13	20	32	34
19/11/2019	1269	8	10	15	30	42
22/11/2019	1270	3	21	32	34	48
26/11/2019	1271	2	3	15	19	34
29/11/2019	1272	3	7	12	42	50
03/12/2019	1273	18	31	32	38	48
06/12/2019	1274	1	3	27	39	46
10/12/2019	1275	2	10	19	21	47
13/12/2019	1276	9	16	18	23	32
17/12/2019	1277	1	7	12	25	49
20/12/2019	1278	8	24	30	32	34
24/12/2019	1279	3	11	13	14	47
27/12/2019	1280	1	7	22	26	35
31/12/2019	1281	26	31	33	41	48
03/01/2020	1282	5	15	20	36	47

Bonjour,
Ci-dessus, les derniers tirages de l'euromillion.
Je cherche à montrer avec ma macro ci dessous qu'il existe quelques fois des numéros communs selon
la méthode suivante:
sélection d'un numéro dans le ligne i.
recherche du même numéro dans la ligne a.
si ok alors prendre la ligne a-1 et la comparer à la ligne i+1 afin de vérifier s'il existe des numéros communs.

Le problème c'est que mon résultat actuel par macro ne reflète pas la réalité de mon tableau et j'aimerais savoir pourquoi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim i As Long, j As Byte, a As Long, k As Byte, u As Byte, v As Byte derlig = Range("C6500").End(xlUp).Row For i = derlig To 1 Step -1 For j = 3 To 7 For a = i - 1 To 2 Step -1 For k = 3 To 7 For u = 3 To 7 For v = 3 To 7 Cells(i, j).Select If Selection.Value = Cells(a, k).Value Then Cells(a, k).Activate   If Cells(ActiveCell.Row - 1, u).Value = Cells(i + 1, v).Value Then Cells(i + 1, ActiveCell.Column + 6).Select Selection.Value = Selection.Value + 1 End If GoTo toto End If Next v Next u Next k Next a toto: Next j Next i

---

bonsoir,

2 points :
- ce serait bien de préciser mieux ce que tu fais. faire référence à a ou i pour expliquer ce que tu veux faire sachant que i est noyé dans la macro, ce n'est pas simple. Je ne sais pas par exemple si tu compares le numéro d'avant ou tous les numéros qui sont sortis.

- il y a un problème sur ta macro : si tu fais en mode pas à pas, tu vas t'apercevoir que pour la première cellule, tu l'as compare avec rien.. les boucles for s'incrémentent mais la comparaison de cellule se fait sur a et i et eux ne changent pas pendant que k, u, v tournent. et comme on ne sait pas ce que ca doit faire...

bonne refonte de macro :)

Bonjour,

Je ne vois pas trop l'intérêt sur la façon de procéder, n'est-il pas plus simple de créer un tableau qui comptabilise les numéros sortis? Exemple
Pièce jointe 538899

le fichier en exemple
Pièce jointe 538902

Cdlt

Bonjour!
Sur le site de la Française des jeux, sont disponibles des statistiques qui intègrent les différents tirages (Loto ou EuroMillions) sous forme Excel et dont les dates remontent à peu près à l'époque ou Jésus à marché sur les eaux du lac de Tibériade:mrgreen:
Il y a les Fréquences, les écarts, etc. ils sont même dans l'ordre de sortie.

Cordialement 8-)

Bonjour à tous,
Je vous remercie tout d'abord pour l'intérêt que vous avez apporté à mon post.
Je vais répondre à 419 sur les points évoqués:
i correspond à toutes les lignes des tirages. Je pars effectivement du dernier tirage pour remonter vers le premier. Ce n'est pas grave si la première fois il la compare à rien... ça fonctionnera pour les autres. (normalement:ptdr:)
a correspond à toutes les lignes des tirages. Je pars de la ligne précédant le tirage ligne i et remonte vers le deuxième.
par exemple : i = 221 alors a = 220 puis i = 221 et a = 219 et ainsi de suite...

Je prends le premier numéro sur la ligne i, alors je recherche le même numéro sur les lignes a qui correspondent aux tirages précédant.
Une fois trouvé ce numéro sur la ligne a (qui peut être beaucoup plus haut dans les anciens tirages), je prends la ligne a-1 pour la comparer à la ligne i + 1.

par exemple sur la ligne 1280 j'ai : 1-7-22-26-35
que je retrouve en 1277 pour 1 et 7 (donc 1276 sera comparée à 1281) ---> 9 16 18 23 32
que je retrouve en 1260 pour 22 (donc 1259 sera comparée à 1281) ------> 3 28 31 32 34
que je retrouve en 1245 pour 26 (donc 1244 sera comparée à 1281) ------> 4 17 35 42 45
que je retrouve en 1256 pour 35 (donc 1255 sera comparée à 1281) ------> 2 11 18 40 46
31 est le seul numéro trouvé. Mais ma macro ne le trouve pas et je ne sais pas pourquoi.
Je précise que j'ai appris le vba par moi-même (et avec votre aide bien sûr) et que j'ai forcément des lacunes.

1240	2	14	35	41	42
1241	13	29	31	33	40
1242	9	10	27	37	42
1243	20	22	23	24	37
1244	4	17	35	42	45
1245	8	26	35	43	47
1246	25	27	45	46	49
1247	7	11	38	39	44
1248	10	13	22	40	48
1249	3	22	25	30	49
1250	1	12	27	42	47
1251	22	37	43	44	45
1252	8	21	25	38	50
1253	2	33	42	47	48
1254	24	37	41	43	46
1255	2	11	18	40	46
1256	6	9	35	41	44
1257	7	10	15	44	49
1258	2	14	19	42	45
1259	3	28	31	32	34
1260	8	18	22	41	42
1261	2	5	32	33	47
1262	34	37	39	40	50
1263	16	18	28	42	49
1264	2	20	39	44	48
1265	9	14	25	33	48
1266	8	17	20	23	45
1267	1	21	23	25	39
1268	3	13	20	32	34
1269	8	10	15	30	42
1270	3	21	32	34	48
1271	2	3	15	19	34
1272	3	7	12	42	50
1273	18	31	32	38	48
1274	1	3	27	39	46
1275	2	10	19	21	47
1276	9	16	18	23	32
1277	1	7	12	25	49
1278	8	24	30	32	34
1279	3	11	13	14	47
1280	1	7	22	26	35
1281	26	31	33	41	48
1282	5	15	20	36	47

Pour ARTURO83 ce n'ai pas ce que je cherche mais merci tout de même.
Pour transitoire: c'est parce que ce n'est pas suffisant que je cherche autre chose. Merci quand même :D

Re bonjour

Citation:

---

Pour transitoire: c'est parce que ce n'est pas suffisant que je cherche autre chose. Merci quand même

---

Je me doute, tous mes voeux vous accompagnent sur ce chemin du "Graal":D
En tous cas, le téléchargement de toute leurs données sous forme Excel rend la vie plus facile.
Cordialement 8-)