Discussion :

[mjp06]

Bonjour,

Dans excel 2003, j'ai la formule suivante pour calculer la moyenne d'une plage en excluant les cellules N/A :

Code :

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

=SOMME(plage)/NB.SI(plage;">=0")

J'aimerais savoir si je peux faire le même genre de calcul en utilisant des combobox (zone de liste déroulante ayant comme valeur N/A, 0, 1, 2, 3).

Je pense avoir environ 40 combobox.

La personne remplie son formulaire et en bas de la feuille elle doit obtenir sa moyenne. Sa moyenne doit changer automatiquement si elle change ses réponses.

Merci beaucoup à l'avance,

mjp06

[ucfoutu]

Bonsoir,

Très clair

Mais encore ?

Quielle est la valeur de ta formule qui est modifiée par le choix dans ta combo (et laquelle, de combo, puisque tu en as plusieurs) ?
J'au des difficultés, personnellement, à deviner ...

[JackOuYA]

Bonsoir,

je rajouterai : elle sont où ces combobox et comment ce nomment'elles?

[fring]

Bonsoir tlm,

Si je peux me permettre (je me le permet parce que je viens de terminer le bricolage )

Vu qu'il y a 40 ComboBox à gérer, il serait intéressant de passer par un UserForm et un module de Classe pour éviter de devoir encoder l'événement Change de chaque ComboBox (adapté de l'exemple de Silkyroad dans la FAQ : Comment identifier sur quel contrôle l'utilisateur a cliqué ?)

• dans le module du UserForm
  

  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
  Private Sub UserForm_Initialize()
  Dim Ctrl As Control, Cl As Classe1, i As Byte, Tablo As Variant
   
  Set Col = New Collection
  Tablo = Array("N/A", "0", "1", "2", "3")
   
  For Each Ctrl In Me.Controls
      If TypeOf Ctrl Is MSForms.ComboBox Then
          Set Cl = New Classe1
          Set Cl.Cb = Ctrl
          Col.Add Cl
          For i = 0 To UBound(Tablo)
              Ctrl.AddItem Tablo(i)
          Next
      End If
  Next Ctrl
   
  End Sub

• dans un module standard
  

  Code :

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

  1
  2
  3
  4
  5
  Public Col As Collection
   
  Sub afficher_usf()
      UserForm1.Show
  End Sub

• dans un module de classe nommé "Classe1"
  

  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
  Public WithEvents Cb As MSForms.ComboBox
   
  'gérer l'evenement Change des ComboBox
  Private Sub Cb_Change()
  Dim CtrlCb As Control, Result As Integer, Nbr As Byte, Moy As Single
   
  For Each CtrlCb In UserForm1.Controls
      If TypeOf CtrlCb Is MSForms.ComboBox Then
          Select Case CtrlCb
              Case 0, 1, 2, 3
              Result = Result + CtrlCb
              Nbr = Nbr + 1
          End Select
      End If
  Next
  Moy = Result / Nbr
   
  UserForm1.TextBox1 = Moy
  End Sub

Testé sur 10 ComboBox et No Problemo, peut s'adapter si les contrôles sont directement sur la feuille
.

[mjp06]

Désolé de ne pas être assez clair,

C'est un formulaire d'évaluation dans excel 2003

Mon combobox sert de liste déroulante et j'ai les valeurs suivantes :

N/A = non applicable donc pas de point
0 = 0 point
1 = 1 point
2 = 2 points
3 = 3 points


Chaque question aura les même choix dans la liste déroulante.

Donc 40 questions, donc 40 combobox...

Donc lorsqu'une personne aura complété son évaluation j'aurai 40 questions avec des notes qui varient de "non applicable" à 3 points.

Il ne faut pas que les "non applicable" fassent baisser la moyenne.

Elle pourra avoir sa note, par exemple : 2,4/3

J'aime mieux la présentation du combobox (on voit vraiment un bouton avec liste déroulante) comparativement à la liste déroulante→données→validation→liste. (on ne voit pas le bouton de défilement avant d'être sur la cellule.

Si vous avez d'autres questions, n'hésitez pas,

Merci à l'avance,

mjp06

[JackOuYA]

Tu n'as toujours pas répondu aux question posées ..

tes combobox ils sont ou ? s'ils sont sur un UserForm adapte le code à Fring..

s'ils sont sur des feuilles de calcul dis nous leur nom à tes combobox (afin qu'on sache de qu'elle boîte à outils ils viennent ?)

[fring]

(afin qu'on sache de qu'elle boîte à outils ils viennent ?)

Bonne question, parce que s'ils proviennent du menu "Formulaires"...

[mjp06]

Désolé mais quand j’ai répondu à ucfoutu je ne voyais pas encore vos autres questions…

Mes combobox sont dans une feuille excel. Elles s’appellent ComboBox1 à ComboBox40 (je ne les ai pas renommées). Elles viennent de la boite à outils contrôles→Zone de liste déroulante, et non pas de formulaires…

Pour l’instant, j’ai fait un document test et tous les combobox sont sur ma feuille excel.

Si vous pensez que je suis mieux de faire comme le code de fring avec Userform dit-le moi ou si je peux le faire directement dans la feuille. (le moins compliqué svp…)

Et si je protège ma feuille avec un mot de passe est-ce que je vais avoir des problèmes pour l’exécution des macros? La dernière fois j’ai eu des problèmes et les macros étaient dans la feuille excel.

Merci beaucoup de m’aider,

mjp06

J’ai fait un test avec les codes de fring et ça semble fonctionner.

Cependant, je ne suis pas habituée avec les UserForm, mais je pense que j’aimerais mieux le faire dans la feuille excel. Je pense que ce serait plus facile lorsque les utilisateurs complèteront le formulaire. Ils vont ouvrir le document excel et le formulaire serait déjà là à l’écran(feuille1). De plus, je dois ajouter des images et beaucoup de texte et je suis plus à l'aise de le faire sur une feuille.

Alors est-ce qu’on peut modifier le code de fring si je place tous mes ComboBox dans la feuille excel?

N.B. Je vais protéger la feuille par un mot de passe, donc je veux que ma macro fonctionne quand même…

Merci beaucoup,

mjp06