Condition d'arret sur une macro

bonjour a tous

j'ai un petit soucis de macro

Sur la feuille, des donnes sont actualisé tout les jours

en colonne G, les valeurs renseignés

en colonne B, les dates

En colonne O, je calcule le numero de la

semaine correspondant a la date avec une macro

là pas de soucis

En colonne Q, je veux calculer la moyenne

des valeurs mesurées pendant la semaine

Ceci est fait correctement, jusqu'à la semaine en cours (ici S45)

renseignée. Là un message d'erreur apparait.

en fait tant que des valeurs de la semaine prochaine (S46)

ne sont pas renseignées, la moyenne de la semaine en cours

n'est pas calculé, d'où le message d'erreur.

Ce que je n'arrive pas à faire, c'est d'introduire une condition

d'arret afin de retourner la valeur "0" dans le calcul de la moyenne de la semaine

en cours afin aussi de supprimer ce message d'erreur

merci

Bonsoir,

Je t'ai modifié quelques une de tes références...

Je te laisse tester.

Maxime

Bonsoir

Bonsoir Darzou

A tester

Une question : Elle sert à quoi la formule en colonne O ?

Bonsoir à tous,

les 2 macros en une

Sub Moyenne()
Dim Lg&, i%, x%
    Application.ScreenUpdating = False
        Lg = Range("a" & Rows.Count).End(xlUp).Row

    '--- N° semaine ---
    Range("n1:n" & Lg) = _
        "=INT((b1+5-SUM(MOD(DATE(YEAR(b1-MOD(b1-2,7)+3),1,2),{1E+99;7})*{1;-1}))/7)"
    Range("n1:n" & Lg) = Range("n1:n" & Lg).Value 'en dur

    '--- moyenne ---
    For i = 1 To Lg
        If Cells(i + 1, "n") = Cells(i, "n") Then
                x = i
            Do While Cells(x + 1, "n") = Cells(i, "n")
                x = x + 1
            Loop
                Cells(i, "q") = "=Average(g" & i & ":g" & x & ")"
                i = x
        End If
    Next i
End Sub

Amicalement

Claude

rebonsoir

ça marche!!

merci a tous pour votre rapidité!!