Moyennes VBA

[Berjean]

Bonjour à Tous,

Je voudrais en VBA (sans utiliser la barre de formule de la feuille) calculer les moyennes du tableau ci joint.


ex: D5 reçoit la moyenne de C2,C3,C4,C5

E7 la moyenne (0 exclu ) de C2,C3,C4,C5,C6,C7.

Je n'y arrive pas.

Merci de votre aide

Berjean

[file name=MoyenneVBA.zip size=8637]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoyenneVBA.zip[/file]

 

[Baside]

Bonjour Berjean, le Forum,

En VBA les formules s'utilisent en anglais.
Voir le fichier joint où j'ai même mis une formule matricielle.

Bonne jounée, Baside. [file name=classeur1_20050502130410.zip size=8450]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20050502130410.zip[/file]

 

[Berjean]

Merci Baside pour ton fichier, je vais essayer d'utiliser cette piste pour calculer la moyenne pour chaque ligne.


Mon tableau (en PJ) n'est pas fixe, on doit pouvoir rajouter des lignes.

J'ai utilisé la variable Ligne = Range('B65536').End(xlUp).Row
pour calculer le temps passé pour chaque ligne. Je pense donc pouvoir continuer à l'utiliser pour calculer les Moyennes.

Encore Merci

Berjean

 

[Baside]

Bonjour Berjean, le Forum,

Je n'avais pas ouvert le fichier (erreur ), si je comprend bien, en D10, par ex tu veux afficher la moyenne de C2 à c10 et en E la moyenne sans compter les o de la même colonne.
Par contre, comment veux tu les afficher avec la macro ?
Case par case ou toutes d'un coup ou autre.

Bonne journée, Baside.

P.S. Pourquoi en VBA et pas sur la feuille, ce qui est beaucoup plus simple.

 

[Berjean]

REbonjour à Tous,

Chaque fois qu'une 'ligne' est remplie (colonne A,Colonne B) je souhaite que soient calculés le Temps passé et les moyennes.

Merci encore de ton aide

Berjean

 

[Baside]

Bonjour Berjean, le Forum,

J'ai changé la formule, elle marche trés bien sur mon fichier mais en fait il y a un calcul d'heures sur le tien dans les cellules ce la colonne C.
Je t'envoie le fichier et regarder ton calcul d'heure pour l'adapter.
Je ne comprend pas que du 06/04 au 09/04 donne 65
et que du 05/05 au 05/05 donne 72.

Baside

 

[Berjean]

Bonjour Baside, Bonjour à tous,



Ton fichier n'est pas parti.

Du 06/04 19h au 09/04 12h on a 65h

Du 05/05 18h au 05/05 18h30 on a 0h ce qui paraît normal.

A+

Berjean

 

[Berjean]

Bonsoir à tous,

Mon petit Prog. bogue toujours,

Voir en PJ.

Merci de votre aide.

Berjean [file name=MoyenneVBA1.zip size=9306]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoyenneVBA1.zip[/file]

 

[Baside]

Bonjour Berjean, le Forum,
Je t'envoie le fichier mai il y a la somme de la colonne C qui ne correspond à rien.
Sinon le calcul se déclenche en double cliquant sur la cellule de la colonne D.
Baside
[file name=moyenneVBA 2_20050502200130.zip size=8008]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/moyenneVBA 2_20050502200130.zip[/file]

 

[Baside]

Bonjour Berjean, le Forum,

Eureka

Tu relpis ta case A, la case B puis tu doble cil sur la E et la moyenne apparait et bonne ce coup ci.
Il y avai un coef de 24.

Baside

P.S. Je viens de m'apercevoir qu'il y avait des lcases en trop qui s'affichent (éssais), il faut suprimer les lignes correspondantes dans le code
[file name=moyenneVBAtermine.zip size=10030]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/moyenneVBAtermine.zip[/file]

 

[Baside]

Bonjour Berjean, le Forum,

Avec les deux moyennes ce coup ci

Baside

B) [file name=AvecLes2Moyennes.zip size=11013]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AvecLes2Moyennes.zip[/file]

 

[Berjean]

SUPER Baside,

Je vais essayer de bien placer le code pour que le prog. se lance dès la cellule B remplie. Peut-être avec : Private Sub Worksheet_Change(ByVal Target As Range).

Encore MERCI !

Berjean


🙂

 

[Baside]

Bonjour Berjean, le Forum,

Hélas il reste encore un petit souci sur le compte des cellules dont le contenu est different de 0.
je cherche pour que ce soit nickel

Baside

 

[Baside]

Bonjour Berjean, le Forum,

Tout est bon comme le nom du fichier, j'ai tout recontrôler ligne par ligne.

>Maintenant le problème venait du fait que la ligne 10 montre 0 comme valeur mais en fait comme le format ne montre que les H ET PAS LES MN?
En VBA cette cellule n'est pas considérée comme nul donc non totalisée pour la moyenne sans 0.

Si tu considères que 0 H 30 doit être considèrée comme nulle, il faudra mettre une condition style if < 1 ...

Bonne soirée. Baside.

Tiens moi au courant

 

[Baside]

Mauvais clic

Le fichier [file name=ToutEstBon.zip size=10445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ToutEstBon.zip[/file]