VBA somme dans la moyenne

Magicdog36

XLDnaute Nouveau
Bonjour, je veux faire un tableau qui calcul une moyenne générale... mais le problème c'est la VBA...

J'ai donc fais mon tableau : Nom/UE1/UE2/UE3/moyenne des UE.
Premièrement, j'écris les noms et les notes des élèves à la main dans mon tableau.
Ensuite, j'ai créé un bouton qui calcul automatiquement les moyennes de chaque élève. Ça fonctionne très bien!

Ensuite, j'ai décidé de créer un formulaire sur une autre feuille comme ça je clique sur un bouton ; le formulaire s'ouvre ; je rentre le nom, la note 1, la note 2 et la note 3.
Les informations arrivent bien dans mon tableau mais mon problème c'est LA MOYENNE.

Ex : note 1 = 10 / note 2 =20 / note 3 =10
Normalement la moyenne = (10+10+10)/3=10
Mais là il me donne 33670...

Je sais que le problème vient de la somme qui ne fonctionne pas...
Quand je tape directement les nombres dans le tableau la moyenne fonctionne mais les nombres provenant du formulaire ne fonctionne pas.

Je pense que le problème est que dans mon formulaire j'écris les note dans un Textbox... Merci de m'aider à résoudre mon problème car je suis désespéré...

Merci pour vos réponses☺!!
 

Pièces jointes

  • Exercice.xlsm
    35.2 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Magicdog,
Les cellules sont prises comme des chaines. Ce qui donne 101010/3 =33670.
Val permet de passer les chaines en nombres :
VB:
Sub moyenne()
Dim L As Integer
For L = 2 To 30
    Cells(L, 5) = (Val(Cells(L, 2)) + Val(Cells(L, 3)) + Val(Cells(L, 4))) / 3
Next
End Sub
Les "+1" ne servent à rien, il suffit de partir de 2.
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
700
Haut Bas