moyenne en VBA Résolu/Fermé

Question

Bonjour, 

Je cherche à faire une moyenne de plusieurs valeurs d'une ligne.
Voici mon code, qui ne fonctionne pas. Quelqu'un peut-il me dire pourquoi ?

Merci d'avance 

Sub Bouton18_QuandClic()

Dim dercol5 As Byte
Dim derline5 As Byte
dercol5 = Range("B4").End(xlToRight).Column
derline5 = Range("B4").End(xlDown).Row

Dim b As Byte
For b = 6 To dercol5 - 1
Cells(4, dercol5).Value = "=AVERAGE(Cells(4, 6).Value, Cells(4, dercol5 - 1).Value)"
Next


End Sub


Configuration: Windows XP / Safari 532.5

Utilisateur anonyme · Answer

Petite précision, 

Je cherche donc sur une ligne à afficher dans la dernière colonne du tableau, la moyenne des colonnes précédentes (depuis la 4ème).

Personne ?

Utilisateur anonyme · Answer

Pas de réponse, donc j'en donne une, ça peut peu-être aider des gens :

Il manquait Application devant Average;

Voilà, sujet résolu ;-)

Moyenne en VBA

2 réponses

Discussions similaires