Boucle ne s'initialisant pas

Version imprimable

20/05/2008, 00h55
Lameth

Boucle ne s'initialisant pas
Bonsoir,

J'ai souvent des problèmes avec des boucles toutes betes:
Code:

1 2 For xxx= 1 to 9 Next xxx
La variable, parfois, ne s'initalise pas et prend directement la valeur 9 (ce qui vous en convenez est assez embetant!

Ca m'arrive relativement souvent. Parfois je change le nom de la variable et ça se met à marcher, parfois non... Car je me disais que ça pouvait etre un conflit avec d'autres variables...

Problème de mémoire?

J'en sais rien...

Ca vous arrive jamais?

Lameth
20/05/2008, 07h27
SilkyRoad

bonjour

Citation:

La variable, parfois, ne s'initalise pas et prend directement la valeur 9

Peux tu préciser dans quel cas car il est difficile de répondre sans plus de détail:
* Tu réutilises la variable à l'intérieur de la boucle ? (ce qui est peu conseillé).
* xxx est un argument ByRef dans une fonction récursive ?
... etc ...

http://silkyroad.developpez.com/vba/boucles/

bonne journée
michel
20/05/2008, 08h06
Gorfael
Salut Lameth et le forum
Citation:
J'ai souvent des problèmes avec des boucles toutes betes:

Code:

1 2 For xxx= 1 to 9 Next xxx

La variable, parfois, ne s'initalise pas et prend directement la valeur 9 (ce qui vous en convenez est assez embetant!
Je pense que t'as tout faux :mouarf:
Contrairement à ce que tu peux penser, Excel ne peut pas ne pas exécuter ce que tu lui demandes de faire. Par contre, ce que tu veux qu'il fasse...

Si le pointeur de probramme passe sur la ligne for, il initialisera ta variable à la valeur demandée => puisque tu sembles avoir le problème qui s'installe parfois, au point d'être obligé de changer le nom de la variable : au lieu de le changer, rajoute une boîte de dialogue, à la ligne juste après le for :
Msgbox "xxx=" & xxx
tu verras à chaque passage de la boucle la valeur de ta variable, et tu auras 2 solutions :
- le message n'apparaît pas => un test en amont fait que le pointeur ne passe pas dessus la ligne
- le message apparaît, mais il n'y a pas l'action que tu espérais => un test dans la boucle empêche l'action de celle-ci.
Et ce dans le cas où les causes possibles proposées au poste au-dessus ont déjà été vérifiées. J'ai mis test, mais ce peut être une autre action : changement de feuille, utilisation d'une macro function, sans "volatile" etc...

Mais avec le code on pourrait sans doute te faire des propositions (honnêtes) sur les causes, ou donner des solutions.

Te fais aucune illusion : t'es ni le premier, ni le dernier a être sûr que l'erreur de fonctionnement est du à un bug d'excel (et je parle en connaissance de cause=. Mais souvent, pris dans le raisonnement du traitement, on oublie le contexte.
A+

Si je souleve ce probleme c'est que en effet je me demande si ca vient de moi (c'est a dire du code), de la machine du du logiciel.

C'est sur qu'apres 6 heures de codage intensif, on a beau repasser sur la meme ligne erronee, elle parait tout de meme correcte.

Mon probleme etait au debut de la sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Correl() Application.ScreenUpdating = False Application.DisplayAlerts = False NumSS = ThisWorkbook.Sheets("InitBase").Range("D1") Path = ThisWorkbook.Sheets("Param").Range("B1") Base = ThisWorkbook.Sheets("Param").Range("B2") Devise = ThisWorkbook.Sheets("InitBase").Cells(ThisWorkbook.Sheets("InitBase").Range("F1") + 1, 5) For SSDupli = 1 To 7 If ThisWorkbook.Sheets("Param").Cells(4 + SSDupli, 4) = True Then For SSSelec = 2 To NumSS ThisWorkbook.Sheets("Param").Cells(4 + SSDupli, 3 + SSSelec ).Formula = "TRUE" Next SSSelec End If Next SSDupli ... ...
Le prog passait (execute en pas a pas pour verifier tout de meme on est jamais trop prudent) par le premiere boucle et affectait direct le 7 a SSDupli.

J'ai change le nom de mes variables, ainsi SSDupli est devenu Dupli et SSSelec est devenu SelSS... Et... Ca marche... Je n'ai change que ca...

Franchement, je ne comprends pas...

20/05/2008, 12h25
mayekeul

bonjour,

une petite question
à quel niveau sont déclaré les variables?
20/05/2008, 12h53
Lameth

Je n'ai pas l'habitude de declarer mes variables...
20/05/2008, 12h58
mayekeul

mauvaise habitude!
:P
20/05/2008, 13h00
Godzestla
Je confirme, mauvaise habitude:aie:

Il est préférable de toujours déclarer toutes les variables.

Pour ce faire utilise
Code:

1 2 Option Explicit
au début de ton code.

cela peut paraitre fastidieux mais cela évite tout un tas de problèmes, dont peut-être le tien.
20/05/2008, 18h35
Lameth

Oui je sais mauvaise habitude...
Le probleme c'est ceci dit reproduit...
21/05/2008, 11h37
Gorfael

Salut Lameth

Citation:

La variable, parfois, ne s'initalise pas et prend directement la valeur 9 (ce qui vous en convenez est assez embetant!

Comment tu as contrôler que ta variable est passée directement à 9 ?
A+
21/05/2008, 13h02
Lameth

Je mets mon curseur sur la variable pour controler la valeur (en pas a pas) et en continuant (supposons que c'etait une erreur d'affichage) l'execution se fait effectivement bien avec la derniere valeur de la boucle (et donc, le programe ne passe qu'une seule fois dans la boucle - logique, puisque avec le next la borne superieure se fait overshooter).

BONJOUR
Isole le code

Code:

1
2
3
4
5
6
7
 For SSDupli = 1 To 7
    If ThisWorkbook.Sheets("Param").Cells(4 + SSDupli, 4) = True Then
        For SSSelec = 2 To NumSS
            ThisWorkbook.Sheets("Param").Cells(4 + SSDupli, 3 + SSSelec ).Formula = "TRUE"
        Next SSSelec 
    End If
Next SSDupli

et execute le dans une autre macro sur le meme fichier

22/05/2008, 20h27
Godzestla

Et si du déclarais finalement tes variables, en tous cas celles qui posent problème ?
Car une solution fiable n'est pas mise en péril par une déclaration des données.:lol:

Cela dérape toujours ou pas ?
23/05/2008, 13h19
Lameth

Ca dérape... De temps en temps... Mais pas tout le temps! Bref pour moi c'est incompréhensible...
Beaucoup moins avec une déclaration des variables ceci dit.
C'est un truc qui m'arrive depuis une dizaine d'année et que je n'ai jamais compris...