Sujet Précédent Sujet Suivant

Afficher plusieurs données dans une cellule Excel

domergue Messages postés 3 Date d'inscription samedi 24 juillet 2004 Statut Membre Dernière intervention 10 avril 2005 - 10 avril 2005 à 23:07
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 - 14 avril 2005 à 14:34
Bonjour à toutes et à tous.
Voila mon PB
je voudrais pouvoir afficher plusieurs données d'un meme type dans une meme celulle.
j'ai une requete avec " magRef " qui correspond à une reference de magasin.
Dans ma requete je selectionne toutes les references de magasin inclus dans la livraison.
Mon PB c'est qu'il ne me donne que le 1ere reference magasin dans ma feuille.

Voici mon code:

'Variables pour chaques colonnes dans Excel
Dim lig1, var1, var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14


lig1 = 7 ' Imprime les resultats à partir de la 6éme ligne


'On dit que l'objet est de type feuille excel et ouvre Excel
Set DevisExcel = CreateObject("Excel.Application")


'Mettre à True pour l'afficher à l'écran Excel
DevisExcel.Visible = True


'Ouverture de l'application
DevisExcel.Workbooks.Open ("C:\Planning")


'Supprimer l'affichage des messages d'erreurs ou de confirmation de suppression, ...
DevisExcel.DisplayAlerts = False


'On selectionne la feuille Planning de JOUR
'Selectionner les feuilles du classeur
DevisExcel.sheets("Jour").Select


'Requete SQL à inserer dans la feuille Excel
'Début de la Requete

Set rstResultat = dbsBase.Execute("SELECT commande.idComm,
First(commande.commDate) AS commDate,
First(commande.HD) AS HD,
First(commande.HABase) AS HABase,
First(commande.HDBase) AS HDBase,
First(commande.HRBase) AS HRBase,
First(commande.HSBase) AS HSBase,
First(commande.Message) AS Message,
First(chauffeur.chauffNom) AS chauffNom,
First(magasin.magRef) AS magRef,
First(chauffeur.NContrat) AS NContrat,
First(chauffeur.idClient) AS idClient,
First(contrat.contratType) AS contratType,
First(chauffeur.NumRemorque) AS NumRemorque,
First(chauffeur.NumTracteur) AS NumTracteur,
First(commande.Enlev) AS Enlev,
First(commande.commLivre) AS commLivre

FROM commande, chauffeur, commander, magasin, contrat
WHERE commande.idClient = chauffeur.idClient

AND commande.idComm = commander.idComm
AND magasin.idProd = commander.idProd
AND contrat.idContrat = chauffeur.idContrat

GROUP BY commande.idComm
HAVING First(commande.HD)>='07.00'
AND First(commande.HD)<='19.00';")

'Fin de la Requete

Do While Not rstResultat.EOF


'Specification des colonnes dans la table de la base de données

var1 = rstResultat.Fields("idComm").Value
var2 = rstResultat.Fields("commDate").Value
var3 = rstResultat.Fields("HD").Value
var4 = rstResultat.Fields("HABase").Value
var5 = rstResultat.Fields("HDBase").Value
var6 = rstResultat.Fields("chauffNom").Value
var7 = rstResultat.Fields("NContrat").Value
var8 = rstResultat.Fields("contratType").Value
var9 = rstResultat.Fields("NumTracteur").Value
var10 = rstResultat.Fields("NumRemorque").Value
var11 = rstResultat.Fields("HRBase").Value
var12 = rstResultat.Fields("HDBase").Value
var13 = rstResultat.Fields("Enlev").Value
var14 = rstResultat.Fields("magRef").Value

'Specification des colonnes pour l'ecriture des données
DevisExcel.range("A" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var1

DevisExcel.range("B" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var2

DevisExcel.range("C" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var3

DevisExcel.range("D" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var4

DevisExcel.range("E" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var5

DevisExcel.range("F" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var6

DevisExcel.range("G" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var7

DevisExcel.range("H" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var8

DevisExcel.range("I" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var9

DevisExcel.range("J" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var10

DevisExcel.range("K" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var11

DevisExcel.range("L" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var12

DevisExcel.range("M" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var13
-------------------------------------------------------------------------

C'est ici que je voudrais pouvoir afficher 1,2 ou 3 references de magasin

DevisExcel.range("N" & lig1).Select
DevisExcel.ActiveCell.FormulaR1C1 = var14

--------------------------------------------------------------------------

lig1 = lig1 + 1

rstResultat.MoveNext

Loop

etc ..................................

martial

1 réponse

Réponse 1 / 1
FFkiller Messages postés 72 Date d'inscription lundi 28 juin 2004 Statut Membre Dernière intervention 12 mai 2005 1
14 avril 2005 à 14:34
Salut,



Si jai bien compris :



DevisExcel.ActiveCell.FormulaR1C1 = var14&" TON séparateur " & TA VARIABLE2
&" TON séparateur " & TA VARIABLE3 ETC...

FFkiller
0

Discussions similaires

Afficher les liens hypertextes qui sont associés à des cellules Excel.
Mathieu_IUPIE -
lechel -

4 réponses
Excel : récupérer lien hypertexte
Millenod -
jmp77 -

14 réponses
Excel - lien hypertexte - position haut / gauche Ecran
Bruno_65 -
Bruno_65 -

5 réponses
[vba] recopier la valeur d'une cellule dans une autre feuille.
cokinoumasterflash -
cokinoumasterflash -

5 réponses
Affichage du userform dès l'ouverture du fichier excel
payhpayh7 -
aslalaud -

4 réponses
Rejoignez-nous