Message d'erreur "1004" : Impossible de lire la propriété Average de la classe W

Signaler
Messages postés
9
Date d'inscription
vendredi 8 juin 2012
Statut
Membre
Dernière intervention
27 juin 2012
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour,

J'ai un problème lors de l'exécution de ma macro me permettant de faire la moyenne de temps qui fonctionne bien dans un fichier d'essai mais pas dans le fichier final.

Je vous joins ma macro ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, c As Range
If Target.Row = 1 Then Exit Sub
For Each c In Target
Sheets("Recap TU").Range("G" & c.Row).Value = WorksheetFunction.Average(Sheets("Valeur TU CHEF").Range("C" & c.Row & ":" & _
Sheets("Valeur TU CHEF").Range("IV" & c.Row).End(xlToRight).Address(0, 0)))
Next c
End Sub

PS : La feuille Recap TU est la feuille recevant le résultat de la moyenne
et la Feuille Valeur TU CHEF est la feuille avec l'ensemble des valeurs (en centième heures)

Merci pour aide

1 réponse

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Bonjour,
Si utilisation d'une plage et non d'un Array, cette fonction traite les donnée de la plage d'une feuille, pas ton curieux "mélange"


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ