VBA : Calcul de moyenne

Bonjour,

Voici le code mais ca ne correspond pas tout à fait à te demande mais dis moi si ca t'irait :

sub moyenne

dim i,j,nbre,addition, indicateur, semaine as string
sheets"données").select
i=""
do while i=""
i = inputbox("Sur quelle semaine voulez-vous calculer la moyenne ?","Définition de la semaine")
if not isnumeric(i) then
i = msgbox("Vous n'avez pas tapé un chiffre, Voulez-vous continuer?",vbyesno,"Erreur dans la saisie de la semaine")
if i = 7 then
end sub
else
i=""
end if

else
if i < 0 or i > 53 then
i = msgbox("Vous avez pas tapé une semaine erronnée, Voulez-vous continuer?",vbyesno,"Erreur dans la saisie de la semaine")
if i = 7 then
end sub
else
i=""
end if
end if
end if

semaine = i
if semaine <> ""
i= 2
j =5
cells(i,j).select
do while cells(i,j) <> semaine
j=j+1
if cells(i,j)="" then
cells(i,j) = semaine
semaine = ""
end if
loop

if semaine = "" then
semaine = 2
i =msgbox ("La semaine saisie n'est pas dans le tableau! voulez-vous continuer?", vbyesno, "Erreur dans la saisie")
if i = 7 then
end sub
else
i=""
end if
end if
end if
loop

if semaine <> "" then
nbre=0
addition = 0
i=3
cells(i,3).select
indicateur = selection
do while indicateur <> ""
cells(i,j).select
nbre=selection + nbre
addition = addition +1
i=i+1
do while cells(i,3) = ""
i=i+1
nbre = nbre+cells(i,j)
addition = addition +1
loop
sheets("kpis").select

cells(semaine,2) = indicateur
cells(semaine,3) = nbre / addition
semaine = semaine +1

sheets("données").select
cells(i,3).select
indicateur = selection
loop
end if
end sub

Regarde si il n'y a pas d'ereur et si ca t'irait

Bonsoir,

Je n'ai pas dû avoir la même comprehension mais sait-on jamais...
J'ai supposé que les X en colonnes R, V, ... n'y étaient pas en réalité.

    dercol = [IV3].End(xlToLeft).Column
    ' moyenne lignes 3 à 11
    moy1 = Application.WorksheetFunction.Average(Range(Cells(3, dercol), Cells(11, dercol)))

eric

Vos deux solutions marchent.
Merci beaucoup !