Creer un bouton calcul de moyenne
Fermé
syll.junior2
-
11 févr. 2016 à 11:26
XFlywin Messages postés 313 Date d'inscription mardi 9 février 2016 Statut Membre Dernière intervention 9 novembre 2016 - 11 févr. 2016 à 11:30
XFlywin Messages postés 313 Date d'inscription mardi 9 février 2016 Statut Membre Dernière intervention 9 novembre 2016 - 11 févr. 2016 à 11:30
A voir également:
- Creer un bouton calcul de moyenne
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Calcul moyenne excel - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
1 réponse
XFlywin
Messages postés
313
Date d'inscription
mardi 9 février 2016
Statut
Membre
Dernière intervention
9 novembre 2016
47
11 févr. 2016 à 11:30
11 févr. 2016 à 11:30
Bonjour,
Tu as ma permission :D
Voici le code.
C'était au cours d'un de mes projet, il te faut modifier les variables et les colonnes, rien de bien compliqué, si tu as un problème demande moi :)
Sub nbpoint()
Nb = 0
Range("B2").Select
While Not (IsEmpty(ActiveCell))
Nb = Nb + 1
Selection.Offset(1, 0).Select
Wend
MsgBox Nb
Sub Valeurmoyenne()
nbpoint
somme = 0
For i = 1 To Nb
somme = somme + Cells(i + 1, 2)
Next
Moyenne = somme / Nb
MsgBox Moyenne
End Sub
Cordialement :)
Tu as ma permission :D
Voici le code.
C'était au cours d'un de mes projet, il te faut modifier les variables et les colonnes, rien de bien compliqué, si tu as un problème demande moi :)
Sub nbpoint()
Nb = 0
Range("B2").Select
While Not (IsEmpty(ActiveCell))
Nb = Nb + 1
Selection.Offset(1, 0).Select
Wend
MsgBox Nb
Sub Valeurmoyenne()
nbpoint
somme = 0
For i = 1 To Nb
somme = somme + Cells(i + 1, 2)
Next
Moyenne = somme / Nb
MsgBox Moyenne
End Sub
Cordialement :)
