Discussion :

[fifi06000]

salut a tous le VBA va me rendre folle je prépare les exam de rattrapage, et la je suis coincé.
je je dois calculer la moyenne dans une colonne pare rapport à une autre. la colonne en question contiens des résultats a un test, des sujets doivent connaitre des mots et des non mots les résultats sont les temps de réponse, une autre colone des séries de 1 est de 0 bon et mauvais score. Il met demande de calculer la moyenne de temps de réponse pour les non mot seulement qui ont une bonne moyenne.
je pensais le faire comme ca mais ca ne passe pas !!!!!

Code :

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

1
2
3
4
5
6
7
moyenne=0
For Each C In Range ("B1:B40")
if C.Value= "NON MOT" And C.Offset (O,3) Then
moyenne= moyenne+?
  Enf If
Next C
Merci

[clementmarcotte]

Bonjour,

En supposant que j'aie bien compris et comme cela vite fait, il te faut le total et la quantité de réponses:

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
Sub LaBelleMoyenne
   'C'est une très bonne pratique de définir ses valeurs
   'même si ce n'est pas obligatoire
   'Le type double est un type de donnée en virgule flottante
   dim moyenne As double
   dim total as double
   dim compteur as integer
   moyenne=0
   total = 0
   compteur = 0
   For Each C In Range ("B1:B40")
      if C.Value= "NON MOT" And C.Offset (O,3).value >= 0 Then
          'Comptabiliser le total
          total = total + c.offset(0,3).value
          'Ajouter 1 au nombre de réponses
          compteur = compteur +1
      Enf If
   Next C
   'Une fois que l'on a toutes les données
   'on calcule la moyenne
    moyenne = total / compteur
    msgbox("Moyenne = " & cstr(moyenne))
end sub

P.S C'est toujours une très bonne idée et une idée extrêmement appréciée d'indenter et de baliser le code.
P.P.S Je n'ai pas testé le code.

[fifi06000]

merci pour tes conseil et ton aide je me creuse la téte depuis 3h, ca ne fonctionne pas du coup mais je comprend ou est mon erreur, je suis Etudiante en psychologie en VBA je démarre de 0 donc c'est déjà un véritable exploits