XL 2010 ERREUR 13 EN MACRO

[mumu3969]

mI = cLigne1Tirage ' Ligne de départ
Do While True
If Range(cTirage1 + Trim(Str(mI))) = "" Then Exit Do ' Fin de liste

TAB_TIRAGES(INDICE_TAB_TIRAGES, 1) = Range(cTirage1 + Trim(Str(mI)))



TAB_TIRAGES(INDICE_TAB_TIRAGES, 2) = Range(cTirage2 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 3) = Range(cTirage3 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 4) = Range(cTirage4 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 5) = Range(cTirage5 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 6) = Range(cTirage6 + Trim(Str(mI)))
TAB_TIRAGES(INDICE_TAB_TIRAGES, 7) = Range(cTirage7 + Trim(Str(mI)))



BONJOUR je ne comprend pas l'erreur, merci pour votre aide
mumu

 

[fanch55]

Bonjour,
Qu'y a-t-il dans cLigne1Tirage , ctirage1, ctirage2, etc ...?
L'erreur 13 est probablement due à une variable non renseignée ...
Un classeur exemple serait le bienvenu ...

 

[mumu3969]

6582	24/07/2019	MERCREDI	1	10	10	25	32	39	40
6583	27/07/2019	SAMEDI	1	8	25	28	31	39	47
6584	29/07/2019	LUNDI	1	3	3	6	21	29	47
6585	31/07/2019	MERCREDI	1	5	8	18	30	32	36
6586	03/08/2019	SAMEDI	1	4	4	5	7	10	23
6587	05/08/2019	LUNDI	1	9	5	22	26	33	45
6588	07/08/2019	MERCREDI	1	4	5	26	28	29	36
6589	10/08/2019	SAMEDI	1	3	4	9	12	18	37
6590	12/08/2019	LUNDI	1	10	9	20	30	31	34

extrait du tableau

 

[fanch55]

Oki, merci pour le tableau,
mais je ne sais pas comment lier l'extrait de code à l'extrait de tableau ....

 

[mumu3969]

N°	Date	Jour	1-2	Cpl	1	2	3	4	5	6		http://www.lotofr.com/
1	19/05/1976	ME	1	34	15	27	31	33	36	48		GROUPES RECHERCHES
2	03/06/1976	ME	1	31	1	4	10	14	26	42		Nombre de N° :	2
3	10/06/1976	ME	1	27	1	10	15	16	44	47		Ignorer le complémentaire :	N
4	16/06/1976	ME	1	49	1	2	3	13	28	35		Apparaissant depuis la ligne (incluse) :	300
5	23/06/1976	ME	1	49	9	11	22	23	30	47		Jusqu'à la ligne (incluse) :	500
6	30/06/1976	ME	1	1	5	10	17	25	35	46		NOMBRE TOTAL DE SORTIES
7	07/07/1976	ME	1	15	5	19	27	32	34	45		Minimum :	2
8	15/07/1976	ME	1	8	5	27	28	29	41	42		Maximum (9999 = illimité) :	9999
9	21/07/1976	ME	1	5	2	15	19	27	31	43		Calculé uniquement sur la plage ci-dessus :	O
10	28/07/1976	ME	1	7	10	16	35	37	40	49		(Sinon, calculé sur TOUS les tirages)
11	05/08/1976	ME	1	42	4	6	25	37	45	47		GROUPES A EXTRAIRE ET AFFICHER
12	11/08/1976	ME	1	26	8	9	17	31	33	42		Uniquement ceux de la plage ci-dessus :	O
13	18/08/1976	ME	1	48	1	3	9	21	24	34		(Sinon,TOUS les tirages)

 

[fanch55]

N°	Date	Jour	1-2	Cpl	1	2	3	4	5	6		http://www.lotofr.com/
1	19/05/1976	ME	1	34	15	27	31	33	36	48		GROUPES RECHERCHES
2	03/06/1976	ME	1	31	1	4	10	14	26	42		Nombre de N° :	2
3	10/06/1976	ME	1	27	1	10	15	16	44	47		Ignorer le complémentaire :	N
4	16/06/1976	ME	1	49	1	2	3	13	28	35		Apparaissant depuis la ligne (incluse) :	300
5	23/06/1976	ME	1	49	9	11	22	23	30	47		Jusqu'à la ligne (incluse) :	500
6	30/06/1976	ME	1	1	5	10	17	25	35	46		NOMBRE TOTAL DE SORTIES
7	07/07/1976	ME	1	15	5	19	27	32	34	45		Minimum :	2
8	15/07/1976	ME	1	8	5	27	28	29	41	42		Maximum (9999 = illimité) :	9999
9	21/07/1976	ME	1	5	2	15	19	27	31	43		Calculé uniquement sur la plage ci-dessus :	O
10	28/07/1976	ME	1	7	10	16	35	37	40	49		(Sinon, calculé sur TOUS les tirages)
11	05/08/1976	ME	1	42	4	6	25	37	45	47		GROUPES A EXTRAIRE ET AFFICHER
12	11/08/1976	ME	1	26	8	9	17	31	33	42		Uniquement ceux de la plage ci-dessus :	O
13	18/08/1976	ME	1	48	1	3	9	21	24	34		(Sinon,TOUS les tirages)

Classeur sans macro,
je ne sais pas comment lier l'extrait de code à celui-ci.
pourriez-vous décrire ce que le code doit faire ?

 

[job75]

Bonjour mumu3969, fanch55,

Au post #1 Str(ml) crée une erreur 13 si ml n'est pas un nombre.

A+

 

[mumu3969]

BONJOUR? MERCI comment je peux trouver l'erreur

 

[job75]

BONJOUR? MERCI comment je peux trouver l'erreur

Normalement le débogage surligne la ligne erronée en jaune.

 

[mumu3969]

BONJOUR? MERCI comment je peux trouver l'erreur

Normalement le débogage surligne la ligne erronée en jaune.

TAB_TIRAGES(INDICE_TAB_TIRAGES, 1) = Range(cTirage1 + Trim(Str(mI)))
c'est celle si

 

[job75]

Donc l'erreur ne vient pas de Str(ml) sinon il y aurait eu un bug sur la ligne précédente.

Vérifiez la valeur de INDICE_TAB_TIRAGES en mettant le curseur dessus.

 

[mumu3969]

Donc l'erreur ne vient pas de Str(ml) sinon il y aurait eu un bug sur la ligne précédente.

Vérifiez la valeur de INDICE_TAB_TIRAGES en mettant le curseur dessus.

il marque 6999 et j'ai rajouté une ligne il marque 7000

 

[job75]

6999 paraît une valeur normale.

Comment avez-vous déclaré le tableau TAB_TIRAGES ? Variant, Double, Long ou Integer ?

Et quelle valeur reçoit-il au moment du bug ?

 

[mumu3969]

je ne sait pas c'est un tableau ou je ne suis pas l'auteur

 

[mumu3969]

Dim BORNE1, BORNE2, N(7), COMPLEMENTAIRE As Integer
Dim BORNE1_ANALYSE As Integer
Dim BORNE2_ANALYSE As Integer
Dim DERNIERELIGNEGROUPE As Long
Dim NG(6) As Integer
Dim DERNIERELIGNECOMBI As Long
Dim NBAPPARITIONDEMANDEE As Integer
Dim NBAPPARITIONMAX As Integer

Dim TAB_GROUPES(140000, 6) As Long ' 140000 suffisant pour 4000 tirages sur combinaison à 4 avec le complémentaire sans aucune répétition de groupe à 4
Dim INDICE_TAB_GROUPES As Long
Dim TAB_TIRAGES(8000, 7) As Integer
Dim INDICE_TAB_TIRAGES As Integer
Dim mINDICE_DEBUT As Integer
Dim mINDICE_FIN As Integer
Dim mCONSERVES As Long
je ne sait pas c'est un tableau ou je ne suis pas l'auteur