Discussion :

[cornet04]

Bonjour,

Je souhaites insérer dans une cellule Excel les différentes valeurs prise par un champs pour une enregistrement donné
exemple de code:
Comment faire pour que les différentes valeurs prise par "ETA_DENO_COUR" dans ma requete (r étant mon curseur) soient insérées les unes derrieres les autres dans la cellule définie dans la ligne ci dessous et donc que la deuxieme valeur s'ajoute a la premiere et non l'éfface?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
While r.Fields("id_proj") = vproj_unit
 
 
            wk.Worksheets(1).Cells(ligne, 7) = r.Fields("ETA_DENO_COUR")
 
            r.MoveNext
 
 
            If r.EOF Then GoTo Suite1
 
 
    Wend

D'avance Merci de vos reponses

[micniv]

En admettant que ton chp soit de type TXT , eh bien tu concatènes tes résuktats avant de l'affecter à la cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
While r.Fields("id_proj") = vproj_unit  
   monString = monString & " " & r.Fields("ETA_DENO_COUR")  
   r.MoveNext  
   If r.EOF Then 
      GoTo Suite1 
      wk.Worksheets(1).Cells(ligne, 7) = monString
  end if
Wend
...

[cornet04]

Merci et desole pour cette question un peu stupide

En admettant que ton chp soit de type TXT , eh bien tu concatènes tes résuktats avant de l'affecter à la cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
While r.Fields("id_proj") = vproj_unit  
   monString = monString & " " & r.Fields("ETA_DENO_COUR")  
   r.MoveNext  
   If r.EOF Then 
      GoTo Suite1 
      wk.Worksheets(1).Cells(ligne, 7) = monString
  end if
Wend
...