Moyenne sur plage variable VBA

Bonjour à tous,

Apres avoir longtemps cherché sur le forum, je n'ai malheureusement pas trouvé mon Bonheur, voila mon soucis:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim pSB0 As Integer Dim dSB0 As Integer Dim Range1 As Range   For i = 5 To 1700 If Cells(i, 36) = Cells(43, 34) Then pSB0 = Cells(i, 36).Row ElseIf Cells(i, 36) = Cells(47, 34) Then dSB0 = Cells(i, 36).Row End If Next Cells(45, 57) = Application.WorksheetFunction.Average(Range(Cells(pSB0, 53), Cells(dSB0, 53)))

---

Mon code VBA consiste, à partir d'un tableau de valeurs, d'effectuer une moyenne sur une plage de valeurs determine grâce à un numéro de ligne.
Le problem est que ce code me renvoie l'erreur 1004 sur la derniere ligne de mon code. Est-ce à cause des variables pSB0 et dSB0 ?

Merci d'avance pour l'aide apportée

Citation:

---

Envoyé par tiger837

Le problem est que ce code me renvoie l'erreur 1004 sur la derniere ligne de mon code.

---

Peux-tu préciser le descriptif de l'erreur en plus du code ?

Citation:

---

Est-ce à cause des variables pSB0 et dSB0 ?

---

Ca c'est a toi de nous le dire:
-As tu essayer de les remplacer par des valeurs fixes pour voir si le problème persiste ?
-Quels valeurs ont ces deux variables au moment de l'erreur ?
edit: vu qu'elles ne sont pas initialisées, elles ont pour valeur par défaut 0 si jamais elles ne changent pas de valeurs dans ta boucle ça va causer une erreur.

Le descriptive de l'erreur est "Application-defined or object-defined error"


Je n'avais pas essayé, mais en remplacant par les valeurs que je devrais obtenir (453 et 500) cela marche sans soucis.

Il me semble que mes variables valent 0 au moment de l'erreur...

Citation:

---

Il me semble que mes variables valent 0 au moment de l'erreur...

---

C'est bien ce que je pensais (cf l'edit de ma première réponse)
Si au moins l'une des variable vaut 0 tu lui demande de faire une moyenne sur une plage partant d'une ligne qui n'existe pas, d'où l'erreur.
Donc soit il y a un problème dans ta boucle, soit il suffit de les initialisées avec une valeur strictement positive.

J'ai essayé de les initialiser toutes les deux à 1, mais ca ne fonctionne toujours pas.
Et je ne vois pas ou il pourrait y avoir un probleme dans ma boucle, puisque les conditions If sont en realite toutes deux verifiees à un moment...

EDIT: en initialisant a 1, l'erreur change : " Unable to get the Average property of the WorksheetFunction class"

Citation:

---

Envoyé par tiger837

J'ai essayé de les initialiser toutes les deux à 1, mais ca ne fonctionne toujours pas.

---

Toujours le message d'erreur ? Normalement non
Par contre si tes valeurs restent à 1 au lieu de la bonne valeur le résultat sera faux

Citation:

---

Et je ne vois pas ou il pourrait y avoir un probleme dans ma boucle, puisque les conditions If sont en realite toutes deux verifiees à un moment...

---

Ce n'est visiblement pas l'avis de VBA puis qu'il laisse tes variable à 0 après le passage dans la boucle

Citation:

---

les valeurs que je devrais obtenir (453 et 500)

---

essaye le code suivant:

Code:

---

If Cells(453, 36) = Cells(43, 34) Then msgbox "453 ok"

---

tu obitens quoi ?
Et celui là:

Code:

---

if Cells(500, 36) = Cells(47, 34) Then msgbox "500 ok"

---

Et si tu ajoutes des .value dèrriere tout tes cells ?

Code:

---

if Cells(i, 36).value = Cells(47, 34).value Then

---

Que contiennent ces cellules ? des nombres ? du texte (attention aux espaces, aux majuscules ...) ?

Citation:

---

en initialisant a 1, l'erreur change : " Unable to get the Average property of the WorksheetFunction class"

---

C'est quand tu tentes de faire une moyenne sur des valeurs autres que numérique.
Oublie cette proposition, elle n'était valable que si c'était normal que ta boucles n'attribue pas de valeurs et qu'il fallait alors penser a les initialiser correctement, or visiblement ce n'est pas le cas puisque tu attendais les valeurs 453,500 , le problème se situe donc dans la boucle.

Je viens de trouver le problem, le probleme est que j'avais passé les calculs en manuels pour gagner du temps sur la macro, mais finalement, cela ne permettait plus de recalculer automatiquement la conversion de mes cellules en nombre, d'ou la comparaison impossible.
Merci pour ton aide !