XL 2010 ERREUR 13 EN MACRO

mumu3969 · 7 Mars 2022

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 · 7 Mars 2022

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 · 7 Mars 2022

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 · 7 Mars 2022

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

mumu3969 · 7 Mars 2022

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 · 7 Mars 2022

mumu3969 à dit:
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 · 7 Mars 2022

Bonjour mumu3969, fanch55,

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

A+

mumu3969 · 7 Mars 2022

BONJOUR? MERCI comment je peux trouver l'erreur

job75 · 7 Mars 2022

mumu3969 à dit:
BONJOUR? MERCI comment je peux trouver l'erreur

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

mumu3969 · 7 Mars 2022

mumu3969 à dit:
BONJOUR? MERCI comment je peux trouver l'erreur

job75 à dit:
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 · 7 Mars 2022

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 · 7 Mars 2022

job75 à dit:
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 · 7 Mars 2022

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 · 7 Mars 2022

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

mumu3969 · 7 Mars 2022

mumu3969 à dit:
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

XL 2010 ERREUR 13 EN MACRO

mumu3969

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

job75

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

job75

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

job75

XLDnaute Barbatruc

mumu3969

XLDnaute Nouveau

mumu3969

XLDnaute Nouveau

Discussions similaires

XL 2010 ERREUR 13 EN MACRO

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency