Discussion :

[kounkourmi]

[ATTACH=CONFIG]338190[/ATTACH]

Bonjour
J'aimerai que quelqu'un m'aide à creer une requete permettant de calculer les droits superficiaires. l'image joint illustre la facon dont le calcul se fait. Merci

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,

J'envisageais plutôt une fonction, par exemple :

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
22
23
24
25
26
27
28
29
30
31
Option Compare Database
Option Explicit
 
 
Public Function DroitsSup(Superficie As Long) As Long
  Dim lPaliers(3) As Long
  Dim lTarifs(4) As Long
  'paramètres actuellement en vigueur
  lPaliers(0) = 100:    lPaliers(1) = 500: lPaliers(2) = 1000
  lTarifs(0) = 100: lTarifs(1) = 60: lTarifs(2) = 40: lTarifs(3) = 20:
  'calcul proprement dit
  If Superficie <= lPaliers(0) Then
      DroitsSup = Superficie * lTarifs(0)
      Exit Function
    Else
      DroitsSup = lPaliers(0) * lTarifs(0)
  End If
  If Superficie <= lPaliers(1) Then
      DroitsSup = DroitsSup + (Superficie - lPaliers(0)) * lTarifs(1)
      Exit Function
    Else
      DroitsSup = DroitsSup + (lPaliers(1) - lPaliers(0)) * lTarifs(1)
  End If
  If Superficie <= lPaliers(2) Then
      DroitsSup = DroitsSup + (Superficie - lPaliers(1)) * lTarifs(2)
      Exit Function
    Else
      DroitsSup = DroitsSup + (lPaliers(2) - lPaliers(1)) * lTarifs(2)
      DroitsSup = DroitsSup + (Superficie - lPaliers(2)) * lTarifs(3)
  End If
End Function

[DJOUFOU]

Tu pourrais aussi passer par la formule "si". en access c'est "Iif"

J'ai essayé en Excel et ça marche niquel, j'ai essayé aussi sous access pas de problème. voici ce que ça donne:

Code :

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

Droits: VraiFaux([Superficie]<101;[Superficie]*100;VraiFaux([Superficie]<501;(100*100)+(([Superficie]-100)*60);VraiFaux([Superficie]<=1000;(100*100)+(400*60)+(([Superficie]-500)*40);VraiFaux([Superficie]>1000;(100*100)+(400*60)+(500*40)+(([Superficie]-1000)*20);""))))

tu n'a qu'à copier cette formule pour mettre dans ta requête et le tour est joué, il faut te rassurer que le champ qui contient la superficie est bel et bien intitulé "Superficie" à défaut tu modifie la formule selon les données que tu as .

cordialement!

[kounkourmi]

Bonjour Mr
Merci beaucoup pour l'aide ça a marché hyper bien.

[kounkourmi]

Bonjour
j'ai deux question :
1. comment faire pour lier deux listes déroulantes par exemple si on selectionne une on a automatiquement l'autre.
2. comment extraire une partie d'un mot : par exemple comme extraire dans '1 Semestre' '1S'

[Invité]

Bonjour

Merci de créer une nouvelle discussion pour chacune de tes questions.

Je ferme celle-ci.

Philippe