pb boucle

Question

' On ajoute les points confirmés dans le filtre numérique ' Déclaration des variables '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim IcaptFiltre(32) As Double Dim Calculmoy As Byte Dim IcaptFiltrePos As Double Dim IcaptFiltreCount As Double Dim x As Double Dim imoy As Double x = 0 IcaptFiltreCount = 1 Dim j As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Ajoute les points confirmés dans le filtre numérique '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If Calculmoy = 1 Then While Range("C2").Offset(x, 0).Value <> "" If IcaptFiltrePos >= TextBox2.Text Then IcaptFiltrePos = 0 End If If IcaptFiltreCount > TextBox2.Text Then IcaptFiltreCount = TextBox2.Text End If IcaptFiltre(IcaptFiltrePos) = Worksheets("Données Converties").Range("C2").Offset(x, 0) imoy = 0 For j = 0 To IcaptFiltreCount - 1 imoy = imoy + IcaptFiltre(j) Next j imoy = imoy / IcaptFiltreCount Worksheets("Données Converties").Range("G2").Offset(x, 0).Value = imoy IcaptFiltrePos = IcaptFiltrePos + 1 IcaptFiltreCount = IcaptFiltreCount + 1 x = x + 1 Wend End If STABILITE = 0 If STABILITE = 0 Then ' Déclaration des variable Dim x1 As Double x1 = 0 ' Vérification que la stabilité est revenue While Worksheets("Données Converties").Range("C2").Offset(x1, 0) <> "" If (Worksheets("Données Converties").Range("C2").Offset(x1, 0) < Worksheets("Données Converties"). _ Range("E2").Offset(x1, 0)) Or (Worksheets("Données Converties").Range("C2").Offset(x1, 0) > Worksheets("Données Converties"). _ Range("F2").Offset(x1, 0)) Then Cstable = 0 IcaptFiltrePos = 0 IcaptFiltreCount = 1 Else Cstable = Cstable + 1 Cinf = 0 Csup = 0 If Cstable >= TextBox3.Text Then STABILITE = 1 Calculmoy = 1 Else Calculmoy = 1 End If End If Wend 'Else voila mon souci ... c'est un programme qui va moyenner des points et rejeter des point qui sont hor une certaine fenetre avec un maximum de rejet toléré ! je fai ma fonction moyenne ... le problem c que qd je l apel apré dans le prog il ne le fé pa ! j ai des prob de boucle mais je m en sort pas merci

econs · Answer

Salut,

Execute d'abord ton programme en pas &#224; pas pour voir dans quelles boucles il ne rentre pas, ou quels IF ne fonctionnent pas.


Comme tu ne nous donnes pas la totalit&#233; de ton code, on ne peut pas vraiment voir ce qu'il fait.

On ne sait pas quand et comment est appel&#233;e ta proc&#233;dure.

Manu

jack bauer 57070 · Answer

en fait ce que je comprend pas ... 

c'est que quand je dit : SI ...........

                                ALORS moyenne = = 1 

                                IN SI 

par exemple et bien il ne va pas &#224; : SI moyenne = = 1 
                                                      ALORS .........................;

???

je sais c pa trop clair 

a+

econs · Answer

Si tu es conscient que ce n'est pas clair (et tu as raison de l'&#234;tre), alors trouve une autre explication.

Ce n'est pas &#224; nous de deviner quel est ton probl&#232;me.

Manu

jack bauer 57070 · Answer

oula !  j'ai pas eu l'impression de te manquer de respect ... si ? alors pas la peine de prendre ce ton la stp 

je viens pas la pour qu'on me resolve directe mes pbs ou qu'on me fasse mon tag ! je viens juste voir si je peux trouver des pistes 
bye

jack

cs_CanisLupus · Answer

ON SE CALME !!!

Il ne s'agit pas de manque de respect.
Il est vrai que ce n'est pas trop clair mais quand je vois ton code :

...
STABILITE = 0
If STABILITE = 0 Then
...
else
...
end if

Il est &#233;vident que le code apr&#232;s le else ne sera jamais ex&#233;cut&#233;.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

econs · Answer

Ah ? Mon ton n'est pourtant pas mont&#233; d'un iota ...


Je vais m'exprimer autrement :



Si tu es conscient que ce n'est pas clair (et tu as raison de l'&#234;tre), alors essayes de trouver une autre explication.

 Ce n'est pas &#224; nous de deviner quel est ton probl&#232;me.



Que pourrais-je dire d'autre ?

Il ne faut pas te sentir agress&#233; &#224; la moindre remarque. On est l&#224;
pour s'entraider, mais avec un minimum de dialogue et d'explications,
on y arrive mieux.




Manu
Gentil VBiste.

PCPT · Answer

salut,

d&#233;j&#224; c'est du VBA donc je ne te serais pas d'une grande aide, mais le premier "truc" qui me saute aux yeux c'est &#231;&#224; :

IcaptFiltreCount =  TextBox2.Text

un Double qui re&#231;oit une String, &#231;&#224; peut jouer des tours.....



ensuite je vois un :

 While Worksheets("Donn&#233;es Converties").Range("C2").Offset(x1, 0)  

pour X1 =0, mais en  alors que ni X1Worksheets ne changent.



&#224; voir de plus pr&#234;t....



PCPT   [AFCK]

VBiste moins Gentil que Manu mais un peu gentil quand m&#234;me ^^.

Pb boucle

7 réponses

Discussions similaires