Discussion :

[seucri]

Bonjour a tous,
Je suis debutant en VBA et je travaille sur une base de données sur les hôtels
Je veux calculer une moyenne mais avec 3 filtres (Années, département, classement).
Par exemple, j’ai la moyenne du Chiffre d’affaires par chambre (CAparChambre)
Et j’aimerais avec 3 menus déroulants pouvoir choisir la moyenne du CAparChambre pour un 2 étoiles dans le département 69 (cf Image jointe)

En fait je me pose une question sur le départ, dois je tout faire en VBA (ce qui me fait peur car je suis pas à l’aise) ou puis je uniquement aller chercher les résultats dans access (ce qui me semble plus facile mais me fait faire des requêtes)

[loufab]

Bonjour,

Une application sans VBA reste pauvre en fonctionnalités. Il faudra t'y mettre

Les requêtes sont obligatoires puisque c'est la base même d'une application traitant des données.

Dans le cas de la fonctionnalité que tu souhaite mettre en place il te faut les 2.

Dans ta requête mets les liens vers tes champs dans la zone critère correspondante.

Code :

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

Like [Forms]![Mon Formulaire].[nom du champ]

Si tu décide d'afficher le résultat sous forme de liste dans le même formulaire place dans l'événement Après MAJ de chaque liste le code suivant.

Code :

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

Me.maliste.requery

Il y a d'autres possiblités qui dépendent de la complexité du fonctionnement voulu.

Cordialement,

[seucri]

Merci pour la réponse,

je m'y suis effectivement mis, j'essaie de prendre un peu exemple avec le tuto multicritère de cafeine, je pense que j'aurais malheureusement d'autres questions, bref on verra demain
merci encore

[seucri]

Bonjour à tous,

je reviens toujours avec mon problème de moyenne.
Pour rappel je travaille sur une base de données access sur les hôtels.
Je veux calculer une moyenne mais (maintenant) avec 2 filtres (Années, département).
Par exemple, j’ai la moyenne du Chiffre d’affaires par chambre (CAparChambre) pour la totalité de la base. Je voudrais avoir cette moyenne uniquement pour les 2 étoiles en 2002.

J’ai déjà fait une requête qui me donne ces résultats (son nom est ReMoyAnneeClass)
A priori il faut donc que j’écrive une procédure qui de façon dynamique puisse prendre en compte le choix de l’utilisateur, et qui en fonction de ce choix va chercher et afficher le résultat.

j'ai ecrit ce code,

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
Private Sub Moy()
 
Dim i As Integer
 
i = Me.cmbRechAn.Value
'j'ai pensé faire une boucle for pour (même si ce n'est pas un bel algorithme, mais ca permet d'être dynamique,
' et de continuer à tourner quand je serait pas la
 
For i = 2001 To 2015
    If Me.cmbRechClassem.Value = "2 etoiles" Then
    txtResult.Value = ReMoyAnneeClass!MoyenneDeRatiodEndettement
    End If
 
    If Me.cmbRechClassem.Value = "3 etoiles" Then
    txtResult.Value = ReMoyAnneeClass!MoyenneDeRatiodEndettement
    End If
Next i
 
Me.txtResult.Requery
 
End Sub

mais j'ai un problème de type (au niveau du i, car Me.cmbRechAn.Value prend la valeur Null). Je me demande en fait si je dois passer par cette algorithme??
Merci