Moyenne en VBA

Résolu
Utilisateur anonyme -  
 Utilisateur anonyme -
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



2 réponses

Utilisateur anonyme
 
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 ?
0
Utilisateur anonyme
 
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 ;-)
0