Discussion :

[KOUTO]

Bonjour voila j'ai cette petite procédure qui doit m'afficher dans des cellules excel les noms de villes passé en paramètre dans un tableau.

mais le soucis c'est que sa marque toujours ROME. il m'inscrit rome 5 fois alors que dans mon tableau c'est la dernière ville?

voici le code:

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
var i,j:integer;
tab : array[1..5] of string ;
begin
 
tab[1]:='paris';
tab[2]:='londres';
tab[3]:='lisbonne';
tab[4]:='barcelone';
tab[5]:='rome';
 
for j := 1 to 5 do
   for i := 21 to 26 do
    begin
    devis.range['E'+IntToStr(i)].select;
    valeure(tab[j]);
    end; 
end;

si quelqu'un peut m'aider?

[defluc]

Il faudrait préciser ce que sont "devis" et "valeure"

[KOUTO]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var 
devis  :variant;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.valeure(val: string);
begin
devis.Selection.Formula:=val;
end;

mais j'en suis sur que l'erreur provient de ma boucle

[Cl@udius]

Salut

A priori tu écris 5 fois sur la même ligne, d'où Rome au final !

@+ Claudius

[KOUTO]

claudius pourrais tu m'expliquer mon erreur stp?

[Cl@udius]

Tu écris 5 fois (for j := 1 to 5) sur la ligne 'E' (de E21 à E26).
Donc au final tu te retrouve avec 'Rome' inscrit dans ces cellules.

Tu n'as besoin que d'une seule boucle.

@+

[KOUTO]

il ne m'écris plus que rome sur la 5 eme ligne maintenant avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
for j := 1 to 5 do
  begin
    for i := 21 to 26 do
      begin
      devis.range['E'+IntToStr(i)].select;
      end; 
    valeure(tab[j]);
   end; 
end;

mais lorsque je compile pas a pas j commence tout de suite à 5 ???!!!

[Cl@udius]

Si j'ai bien compris tu souhaites écrire tes 5 villes 'Paris'..'Rome' dans les cellules E21 à E26.

C'est bien ça ?

[KOUTO]

j'ai trouvée mon erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    for i := 21 to 26 do
      begin
      devis.range['E'+IntToStr(i)].select;
      valeure(tab[j]);
      j:=j+1;
      end; 
end;