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]

 

[Berjean]

Bonjour Baside, le Forum



Merci encore pour ton boulot et tes explications qui vont me permettre de comprendre le fonctionnement du programme.



Bonne journée à vous Tous,


Berjean

 

[Berjean]

REberjean

Baside, pour éviter de prendre en compte le 0h30 on peut remplacer

'>0 ' par '>=1' dans :

p = Application.WorksheetFunction.CountIf(Range('C2', 'C' & ligne), '>0').


Berjean

 

[Baside]

Bonjour Baside, le Forum

Tout à fait, c'est bien la première fois que je vois quelqu'un ne pas compter les interventions > 1 h ( LOl )

Suis un peu long car plus que le bras gauche valide.

Bonne jounée, Baside.

 

[Baside]

Bonjour Baside, le Forum

Cette version ne se déclenche réellement que suite à double clic sur les cellules vides de la colonnz E et >1 mis dans la condition

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

 

[Berjean]

Merci Baside,



Lorsque je déplace ton prog. dans Private Sub Worksheet_Change(ByVal Target As Range). , pour le faire calculer dès la saisie de la cellule B ça plante!


Berjean

 

[Berjean]

C'est encore Berjean,

Je ne comprends pas le pourquoi de :

Dim y As Byte
For x = 5 To 6 Step 2
If Target.Column = x Then
If IsEmpty(ActiveCell.Value) Then


A+

Berjean

 

[Baside]

Rebnonjour,

Pour le choix de la colonne sur laquelle le double clouble clic sur une celuule vide déclenche la macro.

Je regarde pour changer sur Private Sub Worksheet_Change(ByVal Target As Range)

Baside

 

[Baside]

En fait si j'ai changé, c'est qu'hier je me suis aperçu que si la macro remplit plus d'une cellule, excel redéclenche sans arret la procédure et j'ai du redémarrer l'ordi deux fois

Baside

Vais regarder les paramètres