requêtes et realisations de courbes

**Muhad'hib** · 19/12/2005, 08h52

Dans le fichier Excel que je t'ai envoyé, tu dois avoir les 2 courbes.

Tu exportes juste les données par mois, Excel calcule les quantités cumélées et le graph reprend les 2 courbes.

La colonne B doit recevoir les données brutes, la colonne C a déja les formules pour calculer les valeurs cumulées et le graph trace une courbe pour la colonne B et une autre pour la colonne C.

A+

**PAUL87** · 19/12/2005, 09h56

Bonjour et merci
bien sur..j'avais vu le fonctionnement des cellules excel.. et adapté
ça fonctionne...!
ce qui se passe, c'est que:

Code :

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

Me.janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion] > #" & DateSerial(Year(Now), 1, 1) & "# and [date inclusion] < #" & DateSerial(Year(Now), 2, 0) & "# and [nometude] = """ & Me.Liste2 & """")

me donne déja d'un mois sur l'autre les valeur les valeurs cumulées (j'ai vérifié et refait les compte)...
il faudrait modifier le code afin qu'il ne me donne que la valeur "brute mensuelle"....

**PAUL87** · 19/12/2005, 15h00

j'ai beau chercher, je ne comprends pas pourquoi dans de code pré-cité, j'ai un cumul qui s'effectue au niveau de mes zone de texte
Me.fevrier
Me.mars
Me.avril...
etc....
Alors que je ne voudrait que dans chaque zone le résultat du mois concerné...

**PAUL87** · 19/12/2005, 17h00

comment remettre la valeur de la "variable" NomEtude" à zéro entre chaque ligne de code??

**Muhad'hib** · 20/12/2005, 17h51

Tu as raison , il y a une coquille dans le code. C'est toujours gallère avec les dates.

Essaye avec ça :

Code :

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

1
2
 
Me.tb_janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]> DateSerial(Year(Now), 1, 1) and [date inclusion] < DateSerial(Year(Now), 2, 0) and [nometude] = """ & Me.Liste2 & """")

Si ton champ "date inclusion" est de type Date/heure cela devrait fonctionner.

Tu devrais avoir les données par mois. Ensuite c'est Excel qui fait le cumulé.

Mes excuses pour cette erreur

**PAUL87** · 20/12/2005, 18h56

bonjour,
effectivement mon champ "date inclusion" est de type date/heure
avec saisie .."jj"/"mm"/"aaaa"
mais la correction que tu me propose me marche pas mieux..(.meme plutôt moins bien...puisque j'ai maintenant des valeurs négatives qui s'affichent dans mes zones de texte
que faire??

**PAUL87** · 20/12/2005, 19h49

c'est super maintenant ....ça fonctionne au poil,
j'avais un problème avec un patient inclu le 01 janvier...j'ai donc rajouté un "=" au ">" dans

Code :

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

Me.janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]>= DateSerial(Year(Now)

et un autre problème du meme ordre pour un patient inclu le 31 decembre...j'ai donc rajouté un "=" au "<" dans

Code :

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

Me.decembre = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]> DateSerial(Year(Now), 12, 1) and [date inclusion] <= DateSerial(Year(Now), 13, 0) and [nometude] = """ & Me.Liste2 & """")

**PAUL87** · 20/12/2005, 19h57

dites moi ce que vous en pensez et si cela ne risque pas d'engendrer d'erreur...
de plus et maintenant que cela fonctionne parfaitement :
est-il possible de rajouter une commande sur le formulaire qui permettrait de modifier la valeur de

Code :

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

DateSerial(Year(Now)

afin d'avoir un choix de l'année directe sur le formulaire ( donnant ainsi une vision retrospective des inclusions...)

UN TRES TRES GRAND MERCI A Muhad'hib.....car ces courbes vont apporter in interet inestimable a mon appli

**guigui76esi** · 21/12/2005, 00h09

une piste version Access :
CDbl (SomDom("[Montant]";"Essai1";"[Date]<=" & dateUS([Date])))
en gros tout les champ avant la date en cours en fait la somme à chaque fois

**Muhad'hib** · 21/12/2005, 09h26

cela ne risque pas d'engendrer d'erreur...

Non c'est juste un comparateur différent.

est-il possible de rajouter une commande sur le formulaire qui permettrait de modifier la valeur de Code:
DateSerial(Year(Now)
afin d'avoir un choix de l'année directe sur le formulaire ( donnant ainsi une vision retrospective des inclusions...)

Oui c'est possible mais il vaut mieux le dire dés le début du post !
Ajoute un controle "Annee_reference" dans ton formulaire (avec un masque de saisie "0000;;_")
Puis dans ton code tu ajoute :

Code :

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

1
2
3
4
5
6
7
 
Dim DateReference as integer
If me.Annee_reference & "" <> "" then
     DateReference = me.Annee_reference 
else
     DateReference = year(now)
end if

Dans le reste du code tu remplaces "year(now)" par "DateReference"

A+

**PAUL87** · 21/12/2005, 16h26

bonjour,
j'ai rajouté le code dans le form_load() et fait les modifs...mais j'ai "erreur de syntaxe" dans:

Code :

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

1
2
 
Me.janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]>= DateSerial(DateReference), 1, 1) and [date inclusion] <= DateSerial(DateReference), 2, 0) and [nometude] = """ & Me.Liste2 & """")

...??

**Muhad'hib** · 21/12/2005, 17h03

C'est

Code :

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

1
2
 
Me.janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]>= DateSerial(DateReference, 1, 1) and [date inclusion] <= DateSerial(DateReference, 2, 0) and [nometude] = """ & Me.Liste2 & """")

A+

**PAUL87** · 21/12/2005, 17h14

j'avais essayé sans les parenthèses...
"erreur 64479"
l'objet ne contient pas d'objet d'automatisation "DateReference"

**Muhad'hib** · 21/12/2005, 17h37

oups.

Essaye ca:

Code :

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

1
2
 
Me.janvier = DLookup("count([NomEtude])", "PATIENTS", "[date inclusion]>= DateSerial(" & DateReference & ", 1, 1) and [date inclusion] <= DateSerial(" & DateReference & ", 2, 0) and [nometude] = """ & Me.Liste2 & """")

**PAUL87** · 22/12/2005, 16h34

Bonjour,.....ce n'est jamais vraiment terminé...mais pas loin

Lorsque je clique sur le bouton qui lance l'application Excel et qui génère le Graph...tout vas bien ...c'est OK,
mais je souhaiterai ajouter en Légende du graph le titre de la courbe automatiquement en fonction de de la selection "liste2"
j'ai donc rajouté :
Code:
cells(2, 1) = Me.Liste2 & " "

ce qui me rajoute dans Excel une cellule avec le résultat voulu...
mais je souhaite l'intégrer dans ma zone de courbe afin de lui donner un titre. De plus que faudrait-il rajouter au code ci dessus pour avoir le jj/mm/aaa ou la courbe est générée.. Ce qui donnerait comme résultat:
"Liste2" au "jj/mm/aaa"
Est-il possible qu'Excel dans ce cas là ne s'ouvre que sur la courbe, sans aucun outils et barre de menu.. en fait sans aucune modifs possibles par l'utilisateur...et de rajouter un peu comme dans Access des boutons "IMPRIMER" et "FERMER"
Lorsque j'aurais rajouté ces fonctionnalités,....je crois que ce sera terminé...!!!
Merci par avance

**Muhad'hib** · 22/12/2005, 17h02

Envoyé par Paul87

mais je souhaite l'intégrer dans ma zone de courbe afin de lui donner un titre. De plus que faudrait-il rajouter au code ci dessus pour avoir le jj/mm/aaa ou la courbe est générée..

Tu peux essayer d'ajouter un code de ce genre là aprés le remplissage de tes différentes cellules :

Code :

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

1
2
3
4
5
6
7
 
 
ExcelSheet.ActiveSheet.ChartObjects("Graphique 1").Activate
With ExcelSheet.ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = "Evolution du critère " & Me.lb_listeX & " en date du " & Format(VARIABLEDATE, "DD/MM/YYYY")
End With

A+