Discussion :

[tiger837]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[halaster08]

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 ?

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.

[tiger837]

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...

[halaster08]

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.

[tiger837]

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"

[halaster08]

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

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

les valeurs que je devrais obtenir (453 et 500)

essaye le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tu obitens quoi ?
Et celui là:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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.