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]

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!]

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]

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]

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

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

@+

[Staple1600]

Bonjour le forum


Chapeau bas Monsieur Pierrot93

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