Formules EXCEL sous ACCESS (help me please!)

Question

Salut tout le monde!
Je suis en train de d&#233;velopper une Base de Donn&#233;es sous Access et j'aimerais calculer une date dans un formulaire. La formule Excel est : SI(B279<>"";MAX(C279;P279;B279);"")
Comment puis-je la mettre sous Access? J'aimerais qu'un champ de formulaire fasse le calcul automatiquement lorsue les autres donn&#233;es sont entr&#233;es.

Merci!

valtrase · Answer

Salut,
d'abord ta formule est sur une feuille Excel je supose ...... as tu charg&#233; un objet OLE sur ton formulaire ?
Les autres donn&#233;es sont entr&#233;es ou ?
enfin il faut un peu plus d'explications si tu veux une r&#233;ponse plausible.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Ristou · Answer

Ouais c'est une formule Excel. Et j'aimerais la passer sous Access. Je cr&#233;e une table et il y a un champ qu j'aimerais remplir avec cette formule. Comme &#231;a la valeur du champ se calcule automatiquement. Donc voil&#224;, je fais un formulaire pour remplir cette table, et j'aimerais que les champs concern&#233;s se remplissent automatiquement avec les autres donn&#233;es entr&#233;es dans le formulaire. Mon probl&#232;me c'est donc : transposer la formule Excel en formule Access. J'ai essay&#233;, j'ai obtenu &#231;a : 
SI("Date Ouverture"<>"";SI("Date R&#233;ception">"Date de r&#233;ception des &#233;chantillons";SI("Date R&#233;ception">"Date Ouverture";"Dossier complet le"="Date R&#233;ception";"Dossier complet le"="Date Ouverture");SI("Date de r&#233;ception des &#233;chantillons">"Date Ouverture";"Dossier complet le"="Date de r&#233;ception des &#233;chantillons";"Dossier complet le"="Date Ouverture"));"Dossier complet le"="")

Ah ben ouais c'est long! lol. En fait je l'ai remis sous forme d'algorithme et vu que Access connait pas la fonction MAX... J'ai d&#251; faire &#231;a avec des SI, ce qui rallonge &#233;norm&#233;ment la formule. Le probl&#232;me c'est que Access connait pas la fonction SI... 

Alors si quelqu'un peut m'aider &#224; traduire cette formule Excel... Merci!

tbbuim1 · Answer

En fait, tu veux trouver la valeur qui est la plus grande parmis les 3, c &#231;a?

pourquoi ne pas faire:

si C > A ou B alors affiche C sinon affiche A ou B

iif(C>(iif(A>B;A;B));C;iif(A>B;A;B))

IIF( Expression; Si c vrai; Si c faux)
TBBUIM

valtrase · Answer

Re,
C'est mieu l&#224;
Bon deux choses, je ne suis pas un expert d'Access mais bon j'ai regard&#233; la doc la fonction Max &#233;xiste bien sous Access consulte l'aide en ligne (tu tappes Max).
la fonction SI doit-&#234;tre remplac&#233;e par VraiFaux.
Tu peux utiliser le g&#233;n&#233;rateur d'expression pour cela.Tu s&#233;lectionnes ton &#233;tiquette puis propri&#233;t&#233;/donn&#233;es/source de controle 

Donc &#231;a devrai ressembler &#224; ceci:
=VRAIFAUX([Date Ouverture]<>"";MAX("[Date R&#233;ception];[Date Ouverture];[Date de r&#233;ception des &#233;chantillons]");"")

D'apr&#233;s la doc la fonction max joue sur une requette donc &#224; essayer sinon faire une requette

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Ristou · Answer

Ok, merci les mecs! J'ai trouv&#233;, par contre &#231;a m'affiche des erreurs...
J'ai fait d'autres formules du m&#234;me genre et &#231;a m'affiche soit #Erreur soit #Nom? . J'ai regard&#233; dans l'aide d'Access, y a rien sur #Erreur. Par contre pour #Nom? il me dit que j'ai peut-&#234;tre un fichier dll qui manque mais non, il est bien l&#224;...

Donc l&#224; mes formules sont accept&#233;es sauf qu'il ne m'affiche pas de r&#233;sultats...

Si vous savez aussi comment r&#233;gler ce probl&#232;me...

valtrase · Answer

Re,
Je te l'ai dis suis pas fortiche sous access.
Tu devrai essayer en bidoullant les " et les ; les uns apr&#233;s les autre dans la fonction MAX je pense que c'est elle qui pose probl&#232;me.
donc tu fais un essais sans les "
puis avec " et sans les ;
etc .....
Ca devrai le faire

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Ristou · Answer

Bon, pour la fonction MAX j'ai trouv&#233;! Je l'ai remplac&#233;e par des Si avec des A > B. En gros, j'ai fait l'algorithme de la fonction MAX, plut&#244;t que d'utiliser la fonction MAX. Elle ne s'applique pas aux dates mais seulement aux nombres et textes je crois.
Par contre maintenant j'ai un autre probl&#232;me! lol.
J'ai des cases &#224; cocher. Et dans d'autres formules, ces cases lorsqu'elles sont coch&#233;es sont normalement &#233;gales &#224; "OUI". Mais apparement &#231;a marche pas... Il faudrait que j'arrive &#224; convertir la case coch&#233;e en texte ou alors que je change carr&#233;ment le type du champ (enlever la case &#224; cocher et mettre du texte) mais &#231;a ne me pla&#238;t pas trop. La case coch&#233;e convient mieux &#224; ce que je veux faire, m&#234;me si &#231;a fait foirer mes formules. Ou alors je peut essayer avec des requ&#234;tes...

Je vais voir &#231;a, mais si vous avez des suggestions, n'h&#233;sitez pas!

valtrase · Answer

Re,
Non tes cases &#224; cocher  te renvoies un entier et non pas un boulean donc attention quand tu codes.
test ce bout de code pour t'en rendre compte
un checkbox chk1, un option opt1, un label lbl1 et un bouton cmd1

Private Sub cmd2_Click()
Static i


Select Case i
    Case 0
        chk1.Value = vbGrayed
        opt1.Value = True
        i = 1
    Case 1
        chk1.Value = vbChecked
        opt1.Value = False
        i = 2
    Case 2
        chk1.Value = vbUnchecked
        opt1.Value = True
        i = 0
    Case Else
        i = 0
End Select
    lbl1.Caption "chk1 " & chk1.Value & "  ;  " & "opt1 = " & opt1.Value


End Sub

 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Ristou · Answer

Ok, j'ai arrang&#233; tout &#231;a! ;-)

Me voil&#224; avec un nouveau probl&#232;me!
J'ai une fonction NB.JOURS.OUVRES sous Excel, elle est utilisable en VB mais je veut le faire avec une formule dans un formulaire. Bien, s&#251;r, cette fonction ne se fait pas dans un formulaire... Merci Microsoft...
Vous savez comment je peux s&#233;lectionner des jours f&#233;ri&#233;s dans une table J_FERIES entre une date A et une date B donn&#233;e dans le formulaire, le tout avec une formule? Sinon j'ai essay&#233; avec une requ&#234;te SQL : 
SELECT count(*) 
FROM J_FERIES 
WHERE [Annee] BETWEEN YEAR([Date Ouverture]) AND YEAR([Date de cl&#244;ture]) 
AND [Mois] BETWEEN MONTH([Date Ouverture]) AND MONTH([Date de cl&#244;ture]) 
AND [NumJour] BETWEEN DAY([Date Ouverture]) AND DAY([Date de cl&#244;ture]);

Je l'ai fait dans une requ&#234;te. &#231;a ne marche pas. &#231;a ne compte rien. Mon r&#233;sultat est toujours 0.
J'ai &#233;galement essay&#233; de la mettre dans une macro "ExecuterSQL", voici ce que Access me dit : "une action ExecuterSQL n&#233;cessite un argument consistant en une instruction SQL."

Vous pouvez m'aider SVP? Merci d'avance! Vous m'avez d&#233;j&#224; bien aid&#233; depuis le d&#233;but!

valtrase · Answer

Salut,
Comme je te l'ai d&#233;j&#224; dis je ne suis pas fortiche en Acess mais bon on va essayer
si t'as un textbox qui doit t'afficher le r&#233;sultat colles ce code dedans et vois

En changant [Ton_Champ_A_R&#233;cup&#233;rer] par le nom de ton champ

=SELECT   [Ton_Champ_A_R&#233;cup&#233;rer] ,count(*) FROM J_FERIES 
WHERE [Annee] BETWEEN YEAR([Date Ouverture]) AND YEAR([Date de cl&#244;ture]) 
AND [Mois] BETWEEN MONTH([Date Ouverture]) AND MONTH([Date de cl&#244;ture]) 
AND [NumJour] BETWEEN DAY([Date Ouverture]) AND DAY([Date de cl&#244;ture]);

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_Ristou · Answer

Ta requ&#234;te n'est pas correcte Jean-Paul! :p
Regarde mon pr&#233;c&#233;dent message, la requ&#234;te est niquel. 
Le seul truc c'est que je ne comprends pas pourquoi elle ne compte pas les jours f&#233;ri&#233;s de ma table J_FERIES qui sont entre les dates d'ouverture et de cl&#244;ture... 
Il faudrait peut-&#234;tre que j'essaye en soustrayant (MINUS dans la requ&#234;te) les jours f&#233;ri&#233;s de la table J_FERIES &#224; un calendrier complet. Ou alors y a m&#234;me pas besoin de soustraire... On compare et on compte le nombre de jours identiques... Mais dans ce cas, il me faudrait un calendrier complet &#224; partir d'il y a quelques ann&#233;es jusqu'&#224; tr&#232;s longtemps! Genre 2050... 
C'est pas top comme syst&#232;me... Je pr&#233;f&#232;rerais faire ce calcul de nombre de jours f&#233;ri&#233;s d'une fa&#231;on plus efficace, sans le calendrier... 
Peut-&#234;tre que Access &#224; un calendrier inclu en m&#233;moire et qu'il pourrait le faire automatiquement... Faut que je v&#233;rifie &#231;a.
Enfin bon... Si vous pouvez m'aider l&#224;-dessus, n'h&#233;sitez pas! ;-)

cs_Ristou · Answer

Woups! Je m'excuse les mecs, rien n'étati correct... lol. J'ai changé mon mode de fonctionnement. J'ai changé la table J_FERIES, j'ai mis une seule colonne dans laquelle on ajoute les dates des jours fériés, comme ça c'est plus simple de comparer les dates! Donc ça, ça marche. Maintenant il faut arriver à caser ces requêtes dans les formules des cases du formulaire. J'ai deux requêtes, une qui compte les nombres de jours jusqu'à aujourd'hui, et une autre jusqu'à une date de clôture. J'ai donc cette formule : =VraiFaux([Date Ouverture]<>"";VraiFaux([Date de clôture]<>"";[Requete_tps_brut_cloture];[Requete_tps_brut_aujourdhui]);"") Mais bien sûr, cette formule ne fonctionne pas. Lorsque je teste le formulaire, dans le champ il ya écrit : #NOM? ça veut dire qu'il y a un nom que le formulaire ne reconnaît pas... Pourtant tous mes noms sont corrects... Aussi bien dans la formule que dans les requêtes... Vous avez une idée SV¨P?

cs_Ristou · Answer

Un autre problème de formule... J'ai cette formule EXCEL, en sachant que A3 est le champ [Code Usine] et que le champ S3 est le champ [Date création] : SI(A3<>"";SI(ET(FIN.MOIS(S3;0)<>FIN.MOIS(AUJOURDHUI();0);FIN.MOIS(S3;12)>FIN.MOIS(AUJOURDHUI();0));"OUI";"NON");"") En formule ACCESS, j'obtiens ceci : =VraiFaux([Code Usine]<>"";VraiFaux((FIN.MOIS((((([Date création];0)))))<>FIN.MOIS(((((Date();0)))))) Et (FIN.MOIS((((([Date création];12)))))>=FIN.MOIS(((((Date();0))))));"OUI";"NON");"") Je pense que la formule ACCESS est correcte mais lorsque je lance le formulaire, dans le champ il y a écrit : #NOM? C'est quoi le problème selon vous? La formule est fausse? Il y a une fonction qu'il ne connait pas? Là vraiment je galère... Aidez-moi SVP!!!

tbbuim1 · Answer

lol, tu ne peux pas d&#233;cemment faire de comparaison de date sous access 

Il faut pour se faire utiliser la fonction CDATE

En proc&#233;dant comme ceci, par exemple



CDate("28/04/1980") < CDate("28/04/2005")



Donc essayes de composer la date comme une chaine de caract&#232;re avec tes donn&#233;es



Sinon, Access ne comprendra pas!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Sauf si tu mets la date enti&#232;re entre # mais l&#224; pas question de variable...

Cela devrait r&#233;soudre d&#233;finitivement tes probl&#232;mes de comparaisons de dates.

TBBUIM

cs_Ristou · Answer

Non, j'ai l'impression que mes comparaisons de dates se portent tr&#232;s bien! 
Le probl&#232;me c'est que ACCESS ne connait pas les fonctions FIN.MOIS, et RECHERCHEV. Et puis il ne reconnait pas les noms des requ&#234;tes...
Les comparaisons de date marchent sans probl&#232;me... C'est juste ces 2 fonctions et le probl&#232;me de reconnaissance des requ&#234;tes qui me g&#234;nent...

tbbuim1 · Answer

lol, beh avec Access 2000, il m'&#233;tait impossible de faire une
comparaison de date fiaible, en fait, on dirait que &#231;a marche mais en
faite, &#231;a ne marche pas... J'ai donc utilis&#233; &#231;a, surtout si tu composes
des dates. Tu fais tes requ&#234;tes dans le code ou avec l'assistant de
requ&#234;te?

Les fonctions FIN.MOIS et RECHECHEV sont con&#231;us sp&#233;cialement pour EXCEL.

Si tu veux faire pareil, tu dois les reprogrammer. Fais une fonction
qui renvoi la date de fin de mois et appelles l&#224; dans ta requ&#234;te. C'est
facile &#224; faire. Surtout, fais une fonction public dans un module qui
renvoi une valeur. Pour rechercheV, &#231;a va &#234;tre plus complexe, mais tu
peux le faire. Sinon, pourquoi y a t-il autant de parenth&#232;ses ((((((
))))))) &#231;a te sers &#224; quoi?

J'aimerais bien savoir ce que tu entends pas reconnaissance de rq. Ya
pas de pb avec la reconnaissance de rq, si tu les &#233;cris bien, elles
sont toujours reconnues...

TBBUIM

cs_Ristou · Answer

Ben mes comparaisons de dates sont nickel... J'ai test&#233; &#231;a marche.
Sinon mes requ&#234;tes j'ai essay&#233; de les faire directement dans le formulaire mais &#231;a marche pas non plus. 
Pour ce qui est de faire des fonctions, faut les programmer en VB et &#231;a je peux pas... je dois le faire sans VB, mais bon, je verrais bien si j'y suis oblig&#233; je les ferais en VB.
Sinon les parenth&#232;ses c'est parce que j'ai fait un copier/coller de Access. J'avais pas mis autant de parenth&#232;ses, c'est lui qui me les rajoute &#224; chaque fois... je sais pas pourquoi mais bon, le r&#233;sultat est le m&#234;me...
Sinon quand je disais "reconnaissance de rq", je veux dire que quand je met : 
=[nom_requ&#234;te] dans un champ d'un formulaire, le formulaire comprend pas... Il reconnait pas le nom de la requ&#234;te apparemment...

tbbuim1 · Answer

Il faut mettre les noms de requ&#234;te entre guillemet comme une string.

Sinon &#231;a veut rien dire pour lui. Et tout d&#233;pend de ce &#224; quoi tu veux le faire &#234;tre &#233;gal...

TBBUIM

cs_Ristou · Answer

J'ai essay&#233; de mettre les noms de requ&#234;tes entre guillemets mais &#231;a ne marche pas... Il m'affiche le nom de la requ&#234;te au lieu du r&#233;sultat qu'elle produit...
Dans ce cas pr&#233;cis, mon r&#233;sultat doit &#234;tre un entier, mais il se peut que j'ai besoin d'avoir une date ou une string en r&#233;sultat...

cs_Ristou · Answer

Heu... Finalement je crois que tu avais raison TBBUIM.... J'ai des comparaisons de dates qui ne fonctionnent pas... Celle-là par exemple : VraiFaux([N°]<>"";(CDate(Année(Date()) & "-" & Mois(Date())-12 & "-" & 1)CDate(Année(Date()) & "-" & Mois(Date()) & "-" & 1));"") Tu peux me dire ce qui ne va pas STP? Merci!

tbbuim1 · Answer

Beh tu &#233;cris la date &#224; l'envers, &#233;cris plutot jour, mois, date entre guillemet

et les s&#233;parant par des "/". Par exempel CDate( "01" & "/" & Mois([Date Ouverture]) & 
"/" & [Ann&#233;e ouv]
)

TBBUIM

cs_Ristou · Answer

Bon ben c'est bon j'ai trouv&#233;! En fait au lieu de mettre CDATE, il fallait mettre le tout entre simples quotes.
Voil&#224;!
Par contre en ce qui concerne les fonctions RECHERCHEV et FIN.MOIS j'arrive toujours pas &#224; les traduire en formule Access...

tbbuim1 · Answer

Pour FinMois je vois bien un truc de ce genre

Public Function FinMois(RecupDate as date) as date

    Select case Mois(RecupDate)

        case 1: FinMois = "30/01/" & Year(RecupDate)

        case ...

    end select

End Function

TBBUIM

cs_Ristou · Answer

Je peux pas cr&#233;er de fonction sous Access. J'ai d&#233;j&#224; essay&#233; d'en faire une en SQL mais sous Access c'est pas faisable. Et puis je n'ai pas le droit de coder en VB (et en plus j'en ai jamais fait...)

tbbuim1 · Answer

Lol tu peux tout faire sous ACCESS sauf de la 3D et encore...

Bref, pour cr&#233;er une fonction, tu vas dans le code avec Alt+F11 par exemple

Et tu cr&#233;es un module, dans ce module tu cr&#233;es la fonction telle que je
l'ai &#233;cris ci dessus en y rajoutant biensur les autres mois. ya rien de
compliqu&#233;.

Tu as vu comme j'ai fait, il ne te reste plus qu'&#224; continu&#233;.



Ensuite dans ta requ&#234;te ACCESS, dans un des champs de la rq tu y fais appelle.

ex:

DateCr&#233;ation: FinMois(Date())...
TBBUIM

cs_Ristou · Answer

Ok, j'essayerais &#231;a, merci!
Sinon quand je met le nom d'une requ&#234;te dans un champ d'un formulaire, ACCESS ne le comprend pas. J'ai essay&#233; de mettre le nom de la requ&#234;te entre simples quotes, et l&#224; il &#233;crit le nom de la requ&#234;te au lieu du r&#233;sultat... Tu sais comment je peux faire STP?

cs_Ristou · Answer

Je viens de faire ton module, malheureusement &#224; chaque fois que j'essaye d'&#233;crire du code dans ALT+F11 &#231;a me fait planter (vieille b&#233;cane pourrie...). J'ai fait &#231;a :

Public Function FinMois(RecupDate as date) as date
    Select case Mois(RecupDate)
        case 1: FinMois = "31/01/" & Year(RecupDate)        case 2: if (Year(RecupDate) mod 2 1) then FinMois "29/02/" & Year(RecupDate) else FinMois = "28/02/" & Year(RecupDate)
 case 3: FinMois = "31/03/" & Year(RecupDate)
 case 4: FinMois = "30/04/" & Year(RecupDate)
 case 5: FinMois = "31/05/" & Year(RecupDate)
 case 6: FinMois = "30/06/" & Year(RecupDate)
 case 7: FinMois = "31/07/" & Year(RecupDate)
 case 8: FinMois = "31/08/" & Year(RecupDate)
 case 9: FinMois = "30/09/" & Year(RecupDate)
 case 10: FinMois = "31/10/" & Year(RecupDate)
 case 11: FinMois = "30/11/" & Year(RecupDate)
 case 12: FinMois = "31/12/" & Year(RecupDate)
    end select
End Function

Le IF dans le case 2 est bien &#233;crit?
Je vais essayer de mettre &#231;a dans access, en esp&#233;rant que je ne vais pas planter encore une fois...

cs_Ristou · Answer

AAAAAAAARRRRRRGGGGGHHHHH !!!

Quand j'utilise la fonction FinMois(Date) dans un formulaire il me met : #Nom?
&#231;a veut dire qu'il ne connait pas la fonction FinMois... Pourtant elle est bien dans la base...

tbbuim1 · Answer

lol Tu devrais r&#233;cup&#233;rer des applications faites sous access, pour voir
un peu comment on programme sous ACCESS, parce que c'est
catastrophique...

Tu n'arriveras pas &#224; faire grand chose s'il te manque autant de notions!



La fontion IF, c pas compliqu&#233; tu vas dans l'aide d'ACCESS il t'explique comment l'&#233;crire!

If (machin = truc) then

    blabla

Else

    Blublu

End if



Fais un msgbox FinMois(date()) dans le form_load de ton formulaire pour
voir si t'as fonction marche avant de l'utiliser, au moins tu seras
fix&#233;...



Pour le select case tu peux le voir aussi dans l'aide, l'aide ACCESS
est relativement bien faites, tu peux trouver pas mal d'info. Alors,
jte conseil de la regarder un peu.


Pour ce qui est des requ&#234;tes associ&#233;es &#224; un form, il faut cliquer en
haut &#224; gauche du form dans le coin carr&#233;, et faire clic droit
propri&#233;t&#233;, ensuite dans source, tu vas CHOISIR la requ&#234;te dans la liste
d&#233;roulante. Ya tout dans la liste d&#233;roulante, les tables et requ&#234;tes...

Donc ya rien &#224; deviner ou &#233;crire! pas d'histoire de guillemet, crochet ou quote...
TBBUIM

cs_Ristou · Answer

En ce qui concerne le fait de choisir la source dans les propriétés du formulaire c'était déjà fait. Tout ça c'est bon! Merci. Maintenant, j'ai fait la fonction FinMois(RecupDate). Apparemment elle fonctionne bien. Après j'ai fait un petit code qui appelle cette fonction. Là il semble que j'ai un problème dans mon second IF... Si tu peux m'aider STP : Private Sub test_Click() If ([N°] <> "") Then If ((FinMois([Date_releve]) <> FinMois(Date)) And (FinMois("Année([Date_releve])+1&'-'&Mois([Date_releve])&'-'&Jour([Date_releve])") >= FinMois(Date))) Then [test] = "OUI" Else [test] = "NON" End If Else [test] = "" End If End Sub Sinon je préfèrerais avoir ce dernier code au format access. J'ai essayé de le repasser mais j'ai une erreur. Mon code sous access : =VraiFaux([N°]<>"";VraiFaux(((FinMois([Date_releve])<>FinMois(Date())) Et (FinMois('Année([Date_releve])+1&"-"&Mois([Date_releve])&"-"&Jour([Date_releve])')>=FinMois(Date())));"OUI";"NON");"")

cs_Ristou · Answer

Woups!
Je crois que j'ai trouv&#233; mon erreur. En fait, dans ma premi&#232;re utilisation de FinMois(Date), je voudrais r&#233;cup&#233;rer la [date_releve] de l'enregistrement suivant! Je pense que les tests que j'effectue ne sont pas coh&#233;rents si je laisse la [date_releve] de l'enregistrement courant. Le probl&#232;me, c'est que je n'arrive pas &#224; r&#233;cup&#233;rer la [date_releve] de la ligne suivante...

Formules EXCEL sous ACCESS (help me please!)

31 réponses

Discussions similaires