Bounjour,
 
Je suis une étudiante et j'ai un devoir qui me pose des problèmes, en fait je ne comprends pas tres bien le VBA et j'ai cet exercice qui me bloque depuis quelques heures:
 
Voici la fonction qui est sensée de me servir d'exemple:
retouner la taille moyenne des hommes adultes;
 
Private Function getTailleMoyHomAdulte() As Double
Dim rs-atient As DAO.Recordset
Dim requete As String
Dim nbPatient As Integer
Dim totTaille As Integer
'--- récupère dans un curseur tous les patients hommes adultes
requete = "select patient.numPatient, patient.taille from patient where patient.sexe = ‘H’ and patient.type = 1"
Set rsPatient = CurrentDb.OpenRecordset(requete)
nbPatient = 0
totTaille = 0
'--- parcourt du curseur pour traiter chaque patient et faire le cumul des tailles et compter le nombre de patient ---
While Not rsPatient.EOF
nbPatient = nbPatient + 1
totTaille = totTaille + rsPatient(“taille”)
rsVisite.MoveNext
Wend
rsVisite.Close
moyTaille = totTaille / nbPatient
getTailleMoyHomAdulte = moyTaille
End Function
 
Moi je dois trouver la taille de l'enfant le plus petit et le plus grand.
Merci pour vos réponses
a +
Barbara

qu'est-ce que tu ne comprends pas dans ton exemple ?

Bonjour,
1) Changer la ligne function pour y introduire numpatient (probablement "as integer" ) et lui donner un nom  pluspetit  ou plusgrand   (ou les deux)
 
2) définir 4 variables :  numpetit, numgrand, taillepetit, taillegrand
3) assigner à taillepetit une valeur assez grande, par exemple: 10,00
4)assigner à taillegrand la valeur 0
 
5)dans la boucle while: faire les comparaisons adéquates pour mettre en numpetit etc...  les valeurs adéquatyes (elles aussi..)
 
avant de sortir de la function:
pluspetit=numpetit
et  ou
plusgrand=numgrand
Cordialement