Discussion :

[sash6]

Bonjour tout le monde,

Après maints essais, modifications et je ne sais quoi, je me rends
Voici la boucle qui me rend dans cet état:

Code :

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

1
2
3
4
5
intCell = 278
Do
    Range("D" & intCell).Value = Range("C" & intCell) / Range("C" & intFinalCell - 1)
    intCell = intCell + 1
Loop While Range("D" & intCell - 1).Value > 0.003

Ce qui me tracasse, c'est que avant de s'arrêter, le code m'inscrit une ligne de plus qui ne correspond plus à la condition >0.003. J'ai essayé avec loop until: ça ne change rien. J'ai également essayé de mettre la condition en haut de la boucle (au niveau du Do), pour ne plus dépendre du pas...ça ne change rien!

Siouplait quelqu'un a une idée?

[Lou Pitchoun]

Salut,

As tu essayé :

Code :

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

1
2
3
While ....
....
Wend

Code :

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

1
2
3
Do Until ...
...
Loop

[sash6]

Code :

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

1
2
3
Do Until
...
Loop

J'ai essayé: ça ne marche pas...

Wend? Comment l'utiliser?

[monf29]

Salut,

Moi j'aurais mis ça plutôt, mais franchement je suis pas sûr :

Code :

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

1
2
3
4
5
6
 
intCell = 278
Range("D" & intCell).Value = Range("C" & intCell).Value / Range("C" & intFinalCell - 1).Value
While Range("D" & intCell - 1).Value > 0.003
Range("D" & intCell).Value = Range("C" & intCell).Value / Range("C" & intFinalCell - 1).Value
Wend

Ptet que c'est parce que tu as oublié les .Value pour les range("C")...
Enfin j'imagine qu'y a bcp mieux mais tant que ça marche...

[Lou Pitchoun]

Code :

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

1
2
3
While Condition
Instructions
Wend

Tant que la condition n'est pas remplie : tu boucles.

[alsimbad]

salut
le fait qu'il t'écrive une ligne de plus est normal

Code :

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

1
2
3
4
5
6
 
Range("D" & intCell).Value = Range("C" & intCell) / Range("C" & intFinalCell - 1) 
 'ici j'écris la derniere valeur inferieur a 0.3 valeur A
    intCell = intCell + 1 ici, je passe au dessous de 0.3 valeur B
Loop While Range("D" & intCell - 1).Value > 0.003
ici je teste valeur A donc, je refais un tour

ce qui me fais penser que ta boucle fonctionne très bien, c'est juste ta limite qui est mal definie. tu devrais tester range("d" & intcell)

[sash6]

Merci monf29, mais ça ne marche pas
ni la boucle while...wend
ni de rajouter.value

[sash6]

t'as quasiment compris mon problème asllimbad. En effet, lorsque je fais

Code :

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

intcell=intcell+1

je descends d'une ligne et c'est pour cela que je retranche 1 pour lui faire comprendre que c'est la ligne d'au-dessus qui importe... si je fais seulement

Code :

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

Loop While Range("D" & intCell).Value > 0.003

je suis éjecté direct de la boucle puisque après le pas je me retrouve dans une cellule qui est vide. Je sais pas si c'est très clair...

[monf29]

Boh en tout cas, jpense qu'il te manque quand même les .Value (sinon tu divise une case par une case, et non pas les valeurs qu'elles contiennent!)

Sinon c'est bizarre que ça marche pas, ça a pas lair bien compliqué ton truc...

Ce que tu veux faire, c'est bien :

- Mettre ta variable intCell à 278
- Faire Range("D278").Value = Range("C278").Value divisé par Range("C277").Value
- Faire passer intCell à intCell + 1 (ici 279)
- Et boucler tant que Range("D" & IntCell - 1) (ici D278).Value est supérieur à 0.003

C'est bien ça?

[illight]

Pourquoi ne fais-tu pas tout ça avec une boucle for tout simplement, et lorsque tu rencontre ta condtion tu sors de ta boucle for en faisant un Exit for ? dans ce genre la :

Code :

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

1
2
3
4
5
 
For i = 278 to range("C65000").end(xlup).row
  Range("D" & intCell).Value = Range("C" & intCell).value / Range("C" & intFinalCell - 1).value
  if Range("D" & intCell).Value < 0.003 then exit for
next i

Par ailleurs fait gaffe à ta division, car si ta division est impossible ça te renverra une erreur, ilf aut que tu fass eune gestion d'erreur pour cela ou juste vérifier que ta cellule n'est pas égale à 0 enr ajoutant un ptit if dans ce que je viens d'écrire

[sash6]

Kikof,

Voici ce que j'ai fait ma syntaxe est-elle bonne?

Code :

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

1
2
3
4
5
6
7
intcell = 278
intfinalcell = 297
 
While Range("D" & intcell).Value >= 0.003
Range("D" & intcell).Value = Range("C" & intcell) / Range("C" & intfinalcell - 1)
intcell = intcell + 1
Wend

parce que ça "saute" d'entrée

[alsimbad]

tiens, j'ai testé pour toi
voila voila

Code :

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

1
2
3
4
5
6
 
intCell = 1
Do While Range("D" & intCell).Value > 0.003
Range("D" & intCell).Value = Range("C" & intCell) / Range("C" & intFinalCell - 1)
    intCell = intCell + 1
Loop

[Lou Pitchoun]

Kikof,

Imagine que je ne sois pas là pendant 6 mois : tu vas attendre ma réponse

Voici ce que j'ai fait ma syntaxe est-elle bonne?

Code :

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

1
2
3
4
5
6
7
intcell = 278
intfinalcell = 297
 
While Range("D" & intcell).Value >= 0.003
Range("D" & intcell).Value = Range("C" & intcell) / Range("C" & intfinalcell - 1)
intcell = intcell + 1
Wend

parce que ça "saute" d'entrée

La syntaxe est bonne.

Si tu dis que 'ça saute d'entrée' (donc ça ne rentre pas dans la boucle)
C'est que la valeur de la 1ère cellule est >= à 0.003. donc ce type de boucle ou la condition ne convient pas.

[sash6]

Merci illight, ton aiguillage m'a permis de trouver une esquive car même avec ta boucle ça me faisait le même problème. En fait, je calcule une serie de pourcentages avec des chiffres qui sont déjà classés par ordre décroissant dans les lignes. J'avais tout simplement envie qu'en dessous de 0.03% ma boucle s'arrête. Le problème c'est que, et apparemment quelque soit la méthode choisie, le code continue jusqu'à ce que la condition soit vérifiée. Mais en dessous de 0.03%, ça ne m'intéresse pas...Donc j'ai trouvé la solution suivante: au lieu de fixer 0.03% je prends une valeur au-dessus: 0.036% (qui à l'arrondi donne 0.04%). Du coup ma dernière valeur, qui est 0.00034 (soit 0.03% à l'arrondi), est inscrite et le code sort. Mais ça marche pour cette fois, et la prochaine lorsque j'aurais par exemple 0.034% et 0.032% à la suite? Je me demande s'il y a moyen de fixer des bornes?

[sash6]

euuuh pardon, je commence à m'embrouiller: c'est bien 0.3% et non 0.03% bref...
Kikof, crois-moi que ça fait tout l'aprèm que je suis dessus et que pendant que je check ce qui sort sur le forum je bosse dessus quand même

aslimbad, comment t'as fait pour que ça marche? je suis "éjecté" direct!

[Lou Pitchoun]

il a juste remplacé >= par >

[sash6]

je sais Kikof, >: strictement supérieur, >= supérieur ou égal , toujours est-il que le code ne sort pas au bon endroit

[alsimbad]

traduis

je suis "éjecté" direct!

ça veut dire quoi? sur un point de vue strictement fonctionel, es ce que ta boucle est bonne ? l'as tu testée avec F8
sur le point de vue de tourner avec des données, moi, j'ai mis des valeurs au pif

[sash6]

bah oui, je l'ai testé avec la pas à pas...!
Ca veut dire que dès que j'arrive sur Do While, je passe directement sur end sub

[Lou Pitchoun]

Excuse moi de paraitre.... idiot mais j'ai testé ton code du 1er post.
Avec les valeurs suivantes :

0,006
0,005
0,0045
0,003
0,002

La dernière cellule où j'affecte un résultat c'est celle en face de 0.003

Pour moi ça marche ou alors je n'ai pas compris ton problème.

Edit :J'ai changé juste une chose. J'ai basé le critère d'arrêt sur la colonne C et pas D. Et ça marche. Donc... il doit pas être difficile de trouver ce qui cloche.