Discussion :

[kilitiger]

Bonjour,

J'ai quelques notions en programmation mais je n'avais jamais fait du VBA jusque là.
J'ai des tableau à "trier" (plus de 350 lignes chacun ) autant dire que je vais pas le faire à la main donc je me suis mis à la rédaction d'une macro. Ma macro est relativement longue mais pas très compliqué puisqu'elle ne s'appuie que sur des boucles If, while et for (je connais un peu que ça).
J'ai identifié une partie de mon code qui pose problème et je l'ai isolé en une seule macro pour essayer de comprendre ce qui clochait (il doit y avoir d'autre problème dans ma macro générale mais autant réglé un seul problème à la fois)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
i = 5
test=0
While test = 0
test1 = 0
For n = 1 To 15
    If n <> 4 Then    
        If Cells(i, n).Value <> Cells(i, n + 16).Value Then
              test1 = 1
        End If
    End If
Cells(i, 16).Value = test1
Next n
i = 1 + 1
If i = 100 Then
    test = 1
End If
Wend

Voici donc le bout que j'ai isolé. Globalement j'ai deux tableaux de 15 colonnes que je veux comparer (sans tenir compte de la colonne 4) sur ce bout la de macro.
Le problème c'est quand je lance cette macro elle tourne à "l'infini" quand je fais "débuger" il m'indique que le problème vient du Next n
Il arrive bien à traiter toute la première ligne, je recupère bien une valeur dans ma cellule (5,16) mais après il est incapable de continuer le programme.
Qu'est ce qu'il ne va pas dans ces quelques lignes de codes ?

essai.xlsm

[ZX12R]

Bonjour,

Dans ce bout de code, c'est ton test de condition While test=0 qui détermine ta sortie de boucle...

Or je vois nul part ta variable test évoluer... dans ton code. Donc test vaut toujours 0, à priori.

Remarque : utilise une balise code (#) pour présenter du code indenté, celà facilitera la lecture !

Cordialement.

Bruno

[Zirak]

Bonjour,

Un problème :

Code :

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

1
2
i = 1 + 1
 If i = 100 Then

Il faudrait mettre i = i+1, sinon ton i est toujours égal à 2 et ne progresse jamais, du coup tu n'arrive jamais à 100 et ta variable test reste à 0.


@ZX12R : sa variable test évolue tout en bas (effectivement le manque d'indentation ne facilite pas la lecture).

[ZX12R]

Zirak a tout à fait raison... et bien du coup j'ai nettoyé mes lunettes !!!

[kilitiger]

... Je me désespère tout seul ...
Merci Zirak je pouvais chercher longtemps mon problème... je cherchais un truc compliqué j'ai relu mon programme 15 fois mais j'ai pas vu ma faute de frappe ...
Merci !