Moyenne en vba

[pierrot132]

Bonsoir à tous.

Ma question ce soir est la suivante.

J'ai un tableau, dont la première me sert à calculer les moyennes des dix autres colonnes pour chaque ligne.

Comme tous les jours j'ajoute des valeurs dans les colonnes suivantes, je dois à chaque fois changer la formule =moyenne(A2:G2) en par exemple =moyenne(A2:h2).

J'aurais donc voulu grâce à une macro via un bouton automatiser tout ça en prenant en compte la dernière colonne que je viens de saisir pour calculer ma moyenne.

J'ai vu dans les posts précédents la formule suivante Application.worksheetsFunction.average=.... mais j'avoue ne pas très bien comprendre son utilisation.

Merci d'avance pour votre aide.

 

[Marc77]

Re : Moyenne en vba

Bonsoir Pierrot et le Forum

Tu peux ecrire la fonction suivante et tu n'as plus à toucher à ta fonction.
=MOYENNE(B4:IV4)

Bonsoir Didier

 

[myDearFriend!]

Re : Moyenne en vba

Bonsoir pierrot132,

Plutot que d'imaginer une usine VBA qui ne fera qu'alourdir ton classeur, pourquoi ne pas mettre tout simplement en A4 :
=MOYENNE(B4:IV4)
et tirer cette formule vers le bas ?

Sauf erreur, la fonction MOYENNE() sait très bien gérer les cellules vides et donc n'en tient pas compte...

Cordialement,

EDITION : Arf, bonsoir Marc77, on a frôlé l'embouteillage...

 

[Staple1600]

Re : Moyenne en vba

Bonsoir


Dire que je me suis embêté (mais pas trop) à en créer une d'usine à gaz: mad:

Sub MOYENNEtest()
Dim dercol As Long
Dim Plage As Range
Dim cell As Range

dercol = Range("IV4").End(xlToLeft).Column
Set Plage = Range("B4", Range("B65536").End(xlUp))

For Each cell In Plage
    debut = cell.Address(0, 0) 'cf Pierrot93
    fin = cell.Offset(0, dercol - 2).Address(0, 0)
    cell.Offset(0, -1).Formula = "=AVERAGE(" & debut & " : " & fin & ")"
Next cell
End Sub

 

[Pierrot93]

Re : Moyenne en vba

Bonjour Pierrot, Marc, Didier, Stapple

une autre solution vba, renvoie en A1 la moyenne de la ligne 2 :

Range("A1").Value = WorksheetFunction.Average(Range("A2:" & Range("IV2").End(xlToRight).Address(0, 0)))

bonne journée
@+

 

[Pierrot93]

Re : Moyenne en vba

Re

ton fichier en retour, avec une procédure événementielle.

@+

 

[Staple1600]

Re : Moyenne en vba

Bonjour le forum


Chapeau bas Monsieur Pierrot93

Ta limpidité de ton cote éclaire mon petit-déjeuner