Discussion :

[mandou36]

Bonjour, voilà mon problème :
j'ai des notes dans un champs qui peuvent prendre les valeurs suivantes : 1, 2 , 3- ; 3 ; 3(+) ; 3+ ; 3,5 ; 4 (donc le champs est en texte).
Je voudrais faire une moyenne dans un état et j'avais pensé que je pourrais peut être récupérer dans une requête uniquement le nombre 1 ; 2 ; 3 ; 3,5 ou 4 (ce qui serais suffisant pour mon application).
Merci d'avance

[jeanchcom]

Cnum([TonChamp]) devrait faire l'affaire, non ?

JMarc

[mandou36]

Merci de répondre aussi rapidement ; je vais essayer.

[mandou36]

Ta solution ne fonctionne pas tout à fait ; pour 3,5 j'obtient 3 et surtout lorsque ça ne fonctionne pas à tout les coups : je pense que c'est lorsque j'ai un enregistrement où la note n'est pas incrite j'obtient le message suivant : "Cette expression comporte une syntaxe incorrecte, ou est trop complexe pour être évaluée. Par exemple, une expression numérique peut contenir des éléments trop compliqués. Essayez de la simplifier en en affectant des parties à des variables."
Voilà je ne sait pas trop comment faire.

[jeanchcom]

Donc, j'ai trouvé ça sur le site MS :

La raison pour laquelle la conversion des chiffres placés après la
virgule n'est pas réalisée vient du fait que la fonction Val (Cnum) utilise
comme séparateur de décimales un point (séparateur de décimales des pays
Anglo-saxons) et non le séparateur défini dans le panneau de
configuration de Microsoft Windows.

Et si tu remplaces ta virgule par un point dans la table, la requête te retourne bien 3,5.

Sinon, j'ai testé avec les + ou - et les (+) et pour moi ça fonctionne...

JMarc

[cafeine]

avec une fonction du genre, c'est faisable :

Code :

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

1
2
3
4
5
6
7
8
9
Function GetNumber(ByVal str As String) As Double

str = Replace(str, "(", "")
str = Replace(str, ")", "")
str = Replace(str, "+", "")

GetNumber = IIf(InStr(str, "-"), -1, 1) * CDbl(Replace(str, "-", ""))

End Function

[mandou36]

Je veux bien mais je ne vois pas où mettre le code dans la requête

[cafeine]

Moi non plus, vu que tu n'as pas inclus ta requete ...

déjà essaie pour voir si c'est bien du numérique.

Code :

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

SELECT GetNumber([MaTable]![ChampNote]) As Note From [MaTable]

[mandou36]

Excuse moi mais je ne comprend pas bien ce que tu veux me faire faire.
Je réexplique mon problème en essayant d'être plus clair.
Dans un requête avoir un colonne où l'on a un nombre ; ce nombre est fonction d'un champs qui peut avoir les valeurs suivantes : 1 ; 2 ; 3- ; 3 ; 3(+) ; 3+ ; 3,5 ; 4 ou "vide".
Dans la colonne de la requête je souhaite avoir 1 ; 2 ; 3 ; 3,5 ; 4 ou vide (ou encore mieux mais 1 ; 2 ; 2,75 (qui correspond à 3-) ; 3 ; 3,12 (qui correspond à 3(+)) ; 3,25 (qui correspond à 3+) ; 3,5 ; 4 ou vide). Ceci je sais le faire dans un état (par VBA) mais je souhaite l'avoir dans une requête car j'ai plusieurs moyennes "successives" à effectuer ensuite.
Je ne sais pas si j'ai été beaucoup plus claire ; merci tout de même de votre attention envers mon problème.

[cafeine]

rire,

heu nous étions censés deviner ce qu'est 3+ et 3(+) ???

bon en adaptant un peu, ça peut donner ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function GetNumber(ByVal str As String) As Double

' variable contenant l'ajustement +-(+)(-)
Dim dblOffset As Double

' analyse de dernier caractère
Select Case Right(str, 1)
    Case ")"
        dblOffset = IIf(InStr(str, "-"), -1, 1) * 0.125
        str = Left(str, Len(str) - 3)
    Case "-"
        dblOffset = -0.25
        str = Left(str, Len(str) - 3)
    Case "+"
        dblOffset = 0.25
        str = Left(str, Len(str) - 1)
End Select

GetNumber = CDbl(str) + dblOffset

End Function

Excuse moi mais je ne comprend pas bien ce que tu veux me faire faire.
Je réexplique mon problème en essayant d'être plus clair.
Dans un requête avoir un colonne où l'on a un nombre ; ce nombre est fonction d'un champs qui peut avoir les valeurs suivantes : 1 ; 2 ; 3- ; 3 ; 3(+) ; 3+ ; 3,5 ; 4 ou "vide".
Dans la colonne de la requête je souhaite avoir 1 ; 2 ; 3 ; 3,5 ; 4 ou vide (ou encore mieux mais 1 ; 2 ; 2,75 (qui correspond à 3-) ; 3 ; 3,12 (qui correspond à 3(+)) ; 3,25 (qui correspond à 3+) ; 3,5 ; 4 ou vide). Ceci je sais le faire dans un état (par VBA) mais je souhaite l'avoir dans une requête car j'ai plusieurs moyennes "successives" à effectuer ensuite.
Je ne sais pas si j'ai été beaucoup plus claire ; merci tout de même de votre attention envers mon problème.

[mandou36]

Merci mais j'ai encore un problème : je ne vois toujours pas où l'on peut ajouter du code dans une requête.

[Tofalu]

Le code est à placer dans un module VBA.

La requête utilise ensuite la fonction

[mandou36]

Merci maintenant je pense que je pourrais y arriver (j'essaie tout de suite).

[mandou36]

Je n'ai pas eu beaucoup de cours sur access et on ne nous a pas montré comment utiliser les modules alors je crois que j'ai quelques difficultés (je ne vois pas comment faire le lien entre le module et la requête) mais je viens de trouver une autre manière pour m'en sortir.
Ainsi, je remercie tout de même les personnes qui ont bien voulu m'aider. Sincères remerciement.

[cafeine]

as-tu essayé ça ?

Moi non plus, vu que tu n'as pas inclus ta requete ...

déjà essaie pour voir si c'est bien du numérique.

Code :

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

SELECT GetNumber([MaTable]![ChampNote]) As Note From [MaTable]

[mandou36]

Merci mais ça y est ça fonctionne comme je veux : j'ai créer une table de correspondance et surtout je ne laisse pas la possibilité de laisser une valeur vide (valeur 0 à la place) car j'ai besoin de tous les enregistrements.
Merci encore

[Muhad'hib]

Salut,

mais je viens de trouver une autre manière pour m'en sortir.

Comme ça la prochaine fois que tu sera confronté à un problème où tu dois créer une fonction tu ne saura toujours pas comment faire

Autre solution : tu fais ce que te propose Cafeine et tu en sais plus ce soir que ce matin

=> tu vas dans les modules et tu en crée un nouveau (appellons le bas_fonction). Dans ce module tu colle le code proposé par Cafeine. Et voila tu as une nouvelle fonction de disponible !

Pour l'utiliser tu vas dans ton editeur de requete, et tu utilise GetNumber comme n'importe quelle autre fonction !


A+

[mandou36]

Salut,
Alors que je viens de finir mon "bidouillage" (qui fonctionne aussi), je viens d'essayer ce que tu m'as dis. En effet ça fonctionne aussi (excepté lorsque j'ai une valeur vide), je me coucherais moins bête que ce matin ; mais quand on m'explique correctement j'y arrive mieux (on ne m'avais jamais expliqué à quoi sert les modules et comment les utiliser) ; donc merci à toi pour tes explications (c'est vraiement sympa).

[cafeine]

Salut,
Alors que je viens de finir mon "bidouillage" (qui fonctionne aussi), je viens d'essayer ce que tu m'as dis. En effet ça fonctionne aussi (excepté lorsque j'ai une valeur vide), je me coucherais moins bête que ce matin ; mais quand on m'explique correctement j'y arrive mieux (on ne m'avais jamais expliqué à quoi sert les modules et comment les utiliser) ; donc merci à toi pour tes explications (c'est vraiement sympa).

il suffit de gérer le cas où la note est vide, ça se dit Null dans Access.