indice de liste hors limite (2)Résolu

Question

Bonjour,

Voila j'ai r&#233;alis&#233; une petite application qui exporte des donn&#233;es d'excel vers access.
Cependant j'ai une erreur : indice de liste hors limite (2)
La ca m'enerve. C'est une erreur b&#233;nine mais j' y vois plus trop clair dans mon code.
Alors je vous demande de l'aide.

voici le code ou ca doit planter :

//de la 1&#232;re ligne &#224; la derni&#232;re ligne
      for vligne:=4 to ligne do
      begin
        //de la 1&#232;re colonne &#224; la derni&#232;re colonne
        for col:=1 to 22 do
        begin

          vcolonne:=chr(col+64);
          //on va chercher dans excel la valeur correspondante
          //on la met dans un tableau &#224; deux dimensions
          aRange:= vcolonne+IntToStr(vligne);
          vCell := vWorksheet.Range[aRange];
          aValue := vCell.Value;
          donnees[col][vligne]:=aValue;

        end;

        //on r&#233;cup&#232;re les donn&#233;es des champs Excel
        sexe:=donnees[1][vligne];
        nom:=donnees[2][vligne];
        prenom:=donnees[3][vligne];
        annee_de_naissance:=donnees[4][vligne];
        adresse:=donnees[5][vligne];
        adresse2:=donnees[6][vligne];
        code:=donnees[7][vligne];
        ville:=donnees[8][vligne];
        pays:=donnees[9][vligne];
        nationalite:=donnees[10][vligne];
        tel:='0'+donnees[11][vligne];
        portable:='0'+donnees[12][vligne];
        email:=donnees[13][vligne];
        if donnees[14][vligne]='oui' then
          premier_marathon:='1'
        else
          premier_marathon:='2';
        equipe:=donnees[15][vligne];
        certificat_licence:=donnees[16][vligne];
        numero_licence:=donnees[17][vligne];
        autorisation_parentale:=donnees[18][vligne];
        taille_tee_shirt:=donnees[19][vligne];
        pasta_adulte:=donnees[20][vligne];
        pasta_enfant:=donnees[21][vligne];
        DVD_course:=donnees[22][vligne];

        cat:=categorie(sexe,annee_de_naissance);

        //traitement des pays
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('SELECT * FROM Nom_Pays WHERE Nom_Pays LIKE '+QuotedStr(pays+'%')+' OR Pays_3caract LIKE '+QuotedStr(pays+'%')+';');
        ADOQuery1.Open;
        ADOQuery1.First;
        lepays:=ADOQuery1.FieldValues['Nom_Pays'];

        //traitement des nationalit&#233;s
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('SELECT * FROM Nom_Nations WHERE Nom_Pays LIKE '+QuotedStr(nationalite+'%')+' OR Pays_3caract LIKE '+QuotedStr(pays+'%')+';');
        ADOQuery1.Open;
        ADOQuery1.First;
        lanationalite:=ADOQuery1.FieldValues['Nom_Pays'];

        //on effectue le requettage d'insertion

        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('INSERT INTO Inscription_01(Saisie_Par_qui,Numero_dossard,Nom,Prenom,Sexe,Date_de_naissance,Categorie,Adresse_01,Adresse_02,Code_Postal,Ville,Pays,Nationalite,Telephone,Courriel,Club,Type_de_course,Premier_Marathon');
        ADOQuery1.SQL.Add(',Pasta_Party_Adlute,Pasta_Party_Enfant,Achat_DVD,Telephone_SMS,Taille_Tee_Shirt,Numero_Licence_FFA,Observation)');
        ADOQuery1.SQL.Add(' VALUES('+QuotedStr('LECANU Florent')+','+IntToStr(nb)+','+UpperCase(QuotedStr(nom))+','+UpperCase(QuotedStr(prenom))+','+QuotedStr(sexe)+','+QuotedStr(annee_de_naissance)+','+QuotedStr(cat)+','+QuotedStr(adresse)+','+QuotedStr(adresse2)+','+QuotedStr(code)+','+QuotedStr(ville)+','+QuotedStr('France')+','+QuotedStr('France')+','+QuotedStr(tel)+','+QuotedStr(email)+','+QuotedStr(equipe)+','+QuotedStr(aSheetName)+','+QuotedStr(premier_marathon)+','+QuotedStr(pasta_adulte)+','+QuotedStr(DVD_course)+','+QuotedStr(pasta_enfant)+','+QuotedStr(portable)+','+QuotedStr(taille_tee_shirt)+','+QuotedStr(numero_licence)+','+QuotedStr('RAS')+');');
        ADOQuery1.ExecSQL;

        Inc(nb);
end;
end;
merci de votre aide

Cirec · Accepted Answer

Salut,
effectivement on a un peut de mal &#224; y voir claire ce qui est normal ici puisqu'il manque la coloration syntaxique
mais pour ton probl&#232;me c'est souvent une boucle " For x:=  1  to  Index Do " qui est &#224; l'origine d'une erreur d'indice hors limite 
puisque dans quasiment tous les cas la bonne syntaxe est :" For x: = 1 to Index - 1 Do "car dans la majorit&#233;
des listes l'indice du premier enregistrement n'est pas 1 mais 0

ce n'est pas une garantie de r&#233;solution de probl&#232;me mais essaye d&#233;j&#224; de changer cette ligne :  
for vligne:=4 to ligne do
en 
for vligne:=4 to ligne - 1 do

@+
Cirec

flor003 · Answer

salut !

Oui j'avais justement mis cela au tout d&#233;but et l'erreur me semblait bizarre.
C'est d'autant plus surprenant que l'indice 2 correspond exactement au nombre de lignes pr&#233;sentes dans mon fichier Excel que j'exporte.
Cela ne r&#233;soud donc pas mon probl&#232;me.

Merci quand m&#234;me

flor003 · Answer

j'ai totalement refait mes boucles et tests pour les lignes et colonnes et maintenant &#231;a marche.
Merci quand m&#234;me pour ton aide cirec.

Indice de liste hors limite (2)

3 réponses

Votre réponse

Discussions similaires