Discussion :

[Lapicure]

Bonjour je travail sur une appli vba sur excel avec une base access.
J'ai un probleme pour la 'mise en page' de mes reponse sql:
J'ai un tableau comme ceci
NOM | N° CDE | NB HEURE | HEURES DIVERSE
nom1 cde1 nbh1 hd1
nom1 cde2 nbh2 hd1
nom2 cde1' nbh1' hd2

nom1 correspond au nom de la premiere personne
nom2 '' '' 2eme ''
cde1: premiere commande passé par nom1
cde2: 2eme commande passé par nom1
cde1' premiere commande passé par nom2
nbh represente le nombre passé sur chak commande
hd represente des heures diverse

enfait nom 1 et hd1 se repete a chaque ligne se ki rend le tableaux illisible et difficilement exploitable.
j'aurai donc voulu obtenir ceci

NOM | N° CDE | NB HEURE | HEURES DIVERSE
nom1 cde1 nbh1 hd1
cde2 nbh2
nom2 cde1' nbh1' hd2

Mais bon jss debutant en vba et j'y arrive pas vraiment

Voila le code ke j'ai ecrit:

sSQL = requete (la requete est super longue donc je la met pas. dites moi si vous la voulez)

Code :

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

1
2
3
4
5
6
Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
Do While Not rst.EOF
For i = 0 To rst.EOF
    Cells(i , 3) = (rst![nbhaffaire])
Next i
Loop

J'espère que mes explication relativement bancales ont été somme toute assez claires
Merci de m'aider svp

[dadavyvy]

Essaie :

Code :

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

1
2
3
4
5
6
i=1
Do While Not rst.EOF
    If Not IsNull(rst("nbhaffaire")) Then Cells(i , 3) = rst("nbhaffaire")
    i=i+1
    rst.MoveNext
Loop