problème de résultat macro vba

**monteverest** · 15/02/2020, 13h22

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 :

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
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

**419** · 15/02/2020, 23h33

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

**ARTURO83** · 16/02/2020, 07h41

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

**Transitoire** · 16/02/2020, 09h46

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

Il y a les Fréquences, les écarts, etc. ils sont même dans l'ordre de sortie.

Cordialement

**monteverest** · 16/02/2020, 13h15

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

)
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