Erreur "35600" Index out of bounds
Bonjour le forum,
Voila, je travaille depuis une certain temps sur deux fichiers,
Je touche au but final,
Actuellement j'ai une erreur de type "erreur "35600" Index out of bounds"
Je ne vois pas pourquoi j'ai cette erreur
Je joins mes deux fichiers
Le premier "Préparation tournée" permets de préparer la journée, en validant ça ouvre le second et la, ça bogue avec cette erreurL
Le deuxième "Notes Loc Ng", je travaille avec durant la journée
cordialement
Bonjour Pelerin65
1) On ne sait pas comment fonctionne ton fichier, donc impossible de reproduire l'erreur
2) Une image de l'erreur c'est bien, mais accompagné de la ligne qui beugue, c'est mieux
3) Ecrire en dur le chemin d'accès, n'est pas une bonne pratique
'Exécute la loc ng
resul = Shell("C:\Loc_NG_SIMU 2ND2020\Loc_NG_SIMU 2ND2020\LOC_NG1_B.exe", vbMinimizedNoFocus)A+
Bonjour BrunoM45 et le forum
Je travail sur ce projet depuis un certain temps et avec de l'aide, et mes maigres connaissant,
Pensant avoir fini, voilà j'ai cette erreur.
le principe est:
Le 1er fichier me permets de préparer ma journée de mesure.
Lorsque que c'est fait, je crée le fichier en validant sur "Recherche Tournée" ce qui ouvre le deuxième fichier en le renommant avec le N° de tournée
A l'ouverture, du 2eme fichier
dans l'userfrom dans la frame préparation
Le togglebouton "ouvrir RT" ouvre un userform "RT"
Le togglebouton "ouvrir le Loc Ng" ouvre un logiciel de parcours
Le bouton "ouvrir sillons" ouvre un userform "SILLONS"
Le bouton "ouvrir LTV" ouvre un userform "LTV" permets de prendre des notes concernant les limitations de vitesse
Le bouton "ouvrir abords" ouvre un userform "ABORDS" permets de prendre des notes si des dangers aux abords des voies afin de les signaler
en fin de journée. dans le rapport.
Avec l'aide d'une personne su site dans la premier userform dans la frame sillons à l'ouverture j'ai les sillons du jour"
donc malin que je me suis cru j ai fait en sort de modifie l'userform Préparation pour créer un userform Sillons pour le deuxième fichier
A l'ouverture, j ai cette erreur "35600 index out of bounds"
Ce sont les originaux qui fonctionnent mais l'userform "sillons" j ai tous les sillons du dossier après l 'aller chercher le dossier ci dessous
Je te mets des sillons du dossier en zip
cordialement
Re,
Après test, l'erreur viendrait de là et de ce code
'UNIQUE "7à9"********************************************************************************************
'Si Dans la Colonne 8 du tableau BD, il y a "UNIQUE" alors
If .ListItems(ligne).ListSubItems(8) = "UNIQUE" Then
Dim e As Byte
'On selectionne les items des colonnes de la ligne dans la couleur choisie
.ListItems(i).ListSubItems(4).ForeColor = RGB(128, 0, 128)
.ListItems(i).ListSubItems(5).ForeColor = RGB(128, 0, 128)
.ListItems(i).ListSubItems(7).ForeColor = RGB(128, 0, 128)
.ListItems(i).ListSubItems(8).ForeColor = RGB(128, 0, 128)
.ListItems(i).ListSubItems(9).ForeColor = RGB(128, 0, 128)
.ListItems(i).ListSubItems(10).ForeColor = RGB(128, 0, 128)
For e = 1 To 11
Next e
End If
et notamment de
i = 3 à ce moment là
Je pense que le "Next" n'est pas placé au bon endroit, à vous de voir maintenant
A+